Présentation de 4406.jps

/syracuse/bbgraf/albums/belles/4406.jpg
100 setxunit 20 setborder 90 setangle_repere -1.5 1.5 setxrange -.5 1.5 setyrange /quadrillagegray 0.05 def 0.5 setquadrillagexstep 0.5 setquadrillageystep quadrillage 1 1 settkstep .5 .5 setsubtkstep 2 2 setmkstep ticks subticks marks traceaxes axesarrow /X {settvar t Sin } def /Y {settvar t Cos 2 exp 2 t Cos sub div } def 0 2 pi mul settrange gsave .75 setcurvelinewidth continu noir {X} {Y} courbeparam grestore