Présentation de lissajoux.jps

%% 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