Présentation de 3017.jps

/syracuse/bbgraf/albums/belles/3017.jpg
100 setxunit 7.5 setborder 90 setangle_repere -1.5 1.5 setxrange -0.5 1.5 setyrange /quadrillagegray 0.2 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 1.75 setcurvelinewidth continu bleu {X} {Y} courbeparam grestore