Présentation de lissajoux.jps

/syracuse/bbgraf/albums/coniques/lissajoux.jpg
%% 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