Présentation de hyperbole_brut.jps

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