Fichier 388.jps — Modifié le 6 Janvier 2008 à 12 h 37

388.pdf
Source
100 setxunit
7.5 setborder
90 setangle_repere
-1.2 1.2 setxrange
-0.5 0.5 setyrange
0.5 0.2 settkstep
0.1 .1 setsubtkstep
0.5 0.2 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
1.75 setlinewidth
continu
bleu
/X {settvar
#rpn#   Sin(t)*(1+Cos(t)*Cos(t))
} def
/Y {settvar
#rpn#   Sin(t)*Sin(t)*Cos(t)
} def
  0  2 pi mul {X} {Y} Courbeparam