Fichier 6465.jps — Modifié le 27 Octobre 2009 à 09 h 43

6465.pdf
Source
25 setxunit
7.5 setborder
-10 15 setxrange
-10 15 setyrange
jpegmode
/a 5 def
/b 1 def
/c 5 def
/resolution 100 def
      
2 2 settkstep
1 1 setsubtkstep
2 2 setmkstep
%ticks
%traceaxes
%axesarrow
%unites
.75 setlinewidth
continu
bleu
/X {settvar
    a b add t Cos mul c t 1 a b div add mul Cos mul sub
} def
/Y {settvar
    a b add t Sin mul c t 1 a b div add mul Sin mul sub
} def
  0  20 pi mul {X} {Y} Courbeparam