Présentation de 1520.jps

200 setxunit
7.5 setborder
90 setangle_repere
-1.95 1.95 setxrange
-1.95 1.95 setyrange
.25 0.25 settkstep
.125 .125 setsubtkstep
.5 5 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
/R {settvar
#rpn#   1+1.5*Sin(23*t)
} def
 0 2 pi mul  settrange
gsave
   .75 setlinewidth
   continu
   bleu
   (R) courbepolar
grestore