Surprise graphic program (HP-48G, GX)

[Gilles]

Another way to do, using complex number to avoid B->R, lists conversions and scale transformation...

On 48 change DUPDUP with DUP DUP and screen size ...

EDIT : Update for 4 XROOT instead of SQRT

Code:


\<<
 #131d #80d BLANK PICT STO 
 (-66 -10) (65 9) PDIM

 0 60 FOR x
  x DUP 4 XROOT 2.5 * R\->C DUPDUP PIXON CONJ PIXON
  NEG DUP CONJ LINE
 NEXT
  
 (-64 -8) (64 8)  BOX 
 (-61 -8) (-61 8) LINE
 ( 61 -8) ( 61 8) LINE
 
 { # 0d # 0d } PVIEW
 1 WAIT
 
 60 0 FOR x
  x DUP 4 XROOT 2.5 * R\->C DUPDUP CONJ LINE 
  NEG DUP CONJ DUP2 TLINE PIXON PIXON
 -1 STEP

 0 WAIT DROP
\>>