Présentation de 2428.jps

/syracuse/bbgraf/tmp/2428.jpg
25 setxunit 7.5 setborder -6 6 setxrange -6 6 setyrange jpegmode /a 5 def /b 7 def /c 2.2 def 2 2 settkstep 1 1 setsubtkstep 2 2 setmkstep ticks traceaxes axesarrow 0.75 setlinewidth continu rouge /X {settvar #rpn# (a-b) * Cos (t) + c * Cos (t*(-1+a/b)) } def /Y {settvar #rpn# (a-b) * Sin (t) - c * Sin (t*(-1+a/b)) } def 0 15 pi mul {X} {Y} Courbeparam