Fichier lissajoux.jps — Modifié le 11 Mars 2006 à 10 h 52
%% auteur : gh
210 setxunit
-1.1 1.1 setxrange
-1.1 1.1 setyrange
traceaxes
axesarrow
/O {0 0} def
16 setfontsize
setTimesItalic
(O) O cltext
/X {setxvar x 2 mul Sin} def
/Y {setxvar x 3 mul Sin} def
/X' {setxvar x 2 mul Cos 2 mul} def
/Y' {setxvar x 3 mul Cos 3 mul} def
orange
1 setlinewidth
pi 2 div pi 2 mul settrange
{X} {Y} courbeparam
1.7 setlinewidth
rouge
0 pi 2 div settrange
{X} {Y} courbeparam
bleu
0.4 settailletangente
0 (X)(Y) ptangente
pi 6 div (X)(Y) ptangente
pi 4 div (X)(Y) ptangente
pi 2 div (X)(Y) ptangente
pi 3 div (X)(Y) ptangente
noir
<tex>
$$ M(\pi /2) $$
</tex>
pi 2 div X pi 2 div Y [1.3 1.3] dctexlabel
<tex>
$$ M(\pi /3) $$
</tex>
pi 3 div X pi 3 div Y [1.3 1.3] urtexlabel
<tex>
$$ M(0) $$
</tex>
0 X 0 Y [1.3 1.3] crtexlabel
<tex>
$$ M(\pi /6) $$
</tex>
pi 6 div X pi 6 div Y [1.3 1.3] uctexlabel
<tex>
$$ M(\pi /4) $$
</tex>
pi 4 div X pi 4 div Y [1.3 1.3] cltexlabel