Présentation de 682.jps

/syracuse/bbgraf/tmp/682.jpg
25 setxunit 7.5 setborder -10 10 setxrange -10 10 setyrange jpegmode /k 8 def 1 1 settkstep .5 .5 setsubtkstep 2 2 setmkstep ticks subticks marks traceaxes axesarrow unites 0.75 setlinewidth continu rouge /X {settvar #rpn# k*Cos (t) - Cos (k*t) } def /Y {settvar #rpn# k*Sin (t) - Sin (k*t) } def 0 2 pi mul {X} {Y} Courbeparam