Fichier ellipse_cercle.jps — Modifié le 26 Juin 2006 à 14 h 57
%% auteur : gh
100 setxunit
-2.5 5 setxrange
-2.5 2.5 setyrange
/O {0 0} def
/a 2 def
/b 1 def
/c {a 2 exp b 2 exp sub sqrt} def
/F {c neg 0} def
/F' {c 0} def
/Dx {a 2 exp c div neg 0} def
/Dx' {a 2 exp c div 0} def
/D {Dx Dx 0 1 addv} def
/D' {Dx' Dx' 0 1 addv} def
/X {Cos a mul} def
/Y {Sin b mul} def
traceaxes
axesarrow
16 setfontsize
setTimesItalic
(O) O dltext
2 setlinewidth
rouge
0 pi 2 mul settrange
{X} {Y} courbeparam
bleu
O a cercle
1.2 setlinewidth
/t {pi 3 div} def
/M {t dup X Y} def
/N {t Cos a mul t Sin a mul} def
/P {t Cos a mul 0} def
noir
setTimesItalic
(A) a 0 urtext
(B) 0 b urtext
(M) M urtext
(N) N urtext
setSymbol
(q) M P milieu O milieu O milieu urtext
O N (-) line
pointilles
P N (-) line
continu
/arrowangle -5 store
1 0 O N 0.2 (->) tripointarc
vert
/I {a t Cos div 0} def
M I droite
N I droite
noir
O N I angledroit
(I) I urtext