Présentation de hyperbole_brut.jps

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

4 setlinewidth
-4 4 settrange
{X} {Y} courbeparam
{X2} {Y} courbeparam
[F F'] points

2 setlinewidth
D droite
D' droite

mixte
O a b droite
O a b neg droite