Fichier hyperbole.jps — Modifié le 11 Mars 2006 à 10 h 52
%% auteur : gh
100 setxunit
-1.5 1.5 setxrange
-2.5 2.5 setyrange
/O {0 0} def
/a 0.6 def
/b 1 def
/c {a 2 exp b 2 exp add 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 {cosh a mul} def
/X2 {cosh a mul neg} def
/Y {sinh b mul} def
traceaxes
axesarrow
2 setlinewidth
rouge
-4 4 settrange
{X} {Y} courbeparam
{X2} {Y} courbeparam
1.2 setlinewidth
continu
bleu
[F F'] points
D droite
D' droite
setTimesItalic
(F) F dctext
(F') F' dctext
(D) Dx 0 1.5 subv urtext
(D') Dx' 0 1.5 subv urtext
noir
setTimesItalic
(a) a 0 urtext
(b) 0 b urtext
(c) F' uctext
(-c) F uctext
<tex>
$$
-{a^2 \over c}
$$
</tex>
Dx [1 1] drtexlabel
<tex>
$$
{a^2 \over c}
$$
</tex>
Dx' [1 1] dltexlabel
vert
O a b droite
O a b neg droite
<tex>
$$
y={b \over a} x
$$
</tex>
O a 2 mul b 2 mul addv [1 1] ultexlabel
<tex>
$$
y=-{b \over a} x
$$
</tex>
O a 2 mul neg b 2 mul addv [1 1] urtexlabel