Fichier 1203.jps — Modifié le 22 Mars 2007 à 17 h 59
%% auteur : gh
%% conique_parabole.jps
700 setwidth
1200 setheight
-1.5 2 setxrange
-3 3 setyrange
/O {0 0} def
/f {sqrt 2 mul} def
/g {sqrt 2 mul neg} def
/F {1 0} def
/D {-1 0 -1 1} def
traceaxes
axesarrow
<tex>
$$O$$
</tex>
O [3 dup] dltexlabel
3 setlinewidth
continu
bleu
[F] points
D droite
<tex>
$$F$$
</tex>
F [3 dup] dltexlabel
<tex>
$$D$$
</tex>
-1 0 0 3 addv [3 dup] dltexlabel
6 setlinewidth
rouge
0.0001 2 {f} Courbe
0.0001 2 {g} Courbe
2 setlinewidth
noir
/x 0.5 def
/M {x dup f} def
/H {-1 x f} def
[M H] points
<tex>
$$M$$
</tex>
M [3 dup] ultexlabel
<tex>
$$H$$
</tex>
H [3 dup] cltexlabel
F M (-) line
M H (-) line
<latex>
$$
\frac{p}{2}
$$
</latex>
F [3 dup] drtexlabel
<latex>
$$
-\frac{p}{2}
$$
</latex>
-1 0 [3 dup] dltexlabel