Fichier 514.jps — Modifié le 29 Décembre 2007 à 13 h 01
%% auteur : Abidi
50 setxunit
-4 4 setxrange
-2.5 1 setyrange
/O {0 0} def
/i {1 0} def
/j {0 1} def
vert
<latex>
\LARGE $0$
</latex>
O dltexlabel
O i vect
<latex>
\LARGE $1$
</latex>
i drtexlabel
O j vect
<latex>
\LARGE $i$
</latex>
j dltexlabel
/X {settvar t sin 3 exp} def
/Y {settvar t cos t cos 4 exp neg add} def
/X2 {settvar t cos 2.5 add} def
/Y2 {settvar t sin 1 neg add} def
2 setlinewidth
bleu
0 360 settrange
{X} {Y} courbeparam
-180 0 settrange
{X2} {Y2} courbeparam
[-3.5 0 -1.5 0] ligne
[-2.5 0 -2.5 -2] ligne
[-3.5 -2 -1.5 -2] ligne
[1.5 0 1.5 -1] ligne
[3.5 0 3.5 -1] ligne