1 setxyrapport
30 setxunit
10 setborder
-15 15 setxrange
-15 15 setyrange
jpegmode
/a 5 def
/b 4.8 def
/c 5 def
/resolution 500 def
      
/quadrillagegray 0.4 def
1 setquadrillagexstep
1 setquadrillageystep
quadrillage
2 2 settkstep
1 1 setsubtkstep
2 2 setmkstep
ticks
xmarks
traceaxes
axesarrow
unites
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 20 pi mul  {X} {Y} Courbeparam
 
%% adresse IP : 84.163.197.238