Fichier 1800.jps — Modifié le 6 Janvier 2008 à 12 h 35

1800.pdf
Source
15 setxunit
5 setborder
-10 10 setxrange
-10 10 setyrange
jpegmode
/a 2.25 def
/b 1.5 def
/c 2 def
/resolution 500 def
      
1 1 settkstep
1 1 setsubtkstep
2 2 setmkstep
ticks
traceaxes
axesarrow
unites
0.75 setlinewidth
continu
bleu
/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 20 pi mul  {X} {Y} Courbeparam