# Présentation de tangente_hyperbole_02.jps

```

%% PhS

%% fig_conique_18

35 setxunit
-8 8  setxrange
-6.5 6.5 setyrange

/bddroite {
8 dict begin
/kd exch def
/kg exch def
/By exch def
/Bx exch def
/B {Bx By} def
/Ay exch def
/Ax exch def
/A {Ax Ay} def
gsave
[A A B vecteur kg mulv addv A A B vecteur kd mulv addv] ligne
grestore
end
} def

%% definition des points

/a {4} def
/c {7} def
/b {c c mul a a mul sub sqrt} def
/e {c a div} def
/Kx {a e div} def
/K {Kx neg 0} def
/K+ {K 0 6 addv} def
/K- {K 0 -6 addv} def
/Kp {Kx 0} def
/Kp+ {Kp 0 6 addv} def
/Kp- {Kp 0 -6 addv} def
/O {0 0} def
/F {c neg 0} def
/Fp {c 0} def
/S1 {a neg 0} def
/S2 {a 0} def
/B {0 b} def

/R11 {a neg b} def
/R12 {a b} def
/R21 {a neg b neg} def
/R22 {a b neg} def
/omeg {F O milieu} def
/Ry {1 e e mul 1 exch div sub sqrt a mul} def
/R {Kx neg Ry} def

/xdet {settvar t t mul b b mul div 1 add sqrt a mul} def
/ydet {settvar t} def

/Mx {b 0.6 mul xdet} def
/My {b 0.6 mul ydet} def
/M {Mx My} def
/H {M Kp Kp+ orthoproj} def

/bissec {F M Fp bissectrice} def
/T {bissec Kp Kp+ interdroite} def
/U {bissec M perp Kp Kp+ interdroite} def

%% traces

/coul1 {188 255 div 128 255 div 9 255 div setrgbcolor} def

[O F Fp S1 S2 B K Kp M T H R] points
F Fp -0.05 1.05 bddroite
[O 0 -6.5 addv O 0 6.5 addv] ligne

b -1.2 mul b 1.2 mul settrange
{xdet} {ydet} courbeparam

vert
[K+ K-] ligne
[Kp+ Kp-] ligne
M H Kp angledroit
pointilles
[M H] ligne

bleu
continu
[F M Fp T] ligne
M Fp T angledroit
F M T 0.5 (=) tripointarc
T M Fp 0.7 (=) tripointarc

coul1
continu
M T -0.4 1.3 bddroite
M U -1.3 1.8 bddroite

jaune
pointilles
[R11 R12 R22 R21] polygone
continu
omeg O IAcercle cercle
[F R O] ligne
F R O angledroit

%% texte

setTimesItalic
noir
(O) O dltext
(F) F drtext
(F') Fp drtext
(B) B ultext

<tex>
\$ S_1 \$
</tex>
S1 [1.3 dup] dltexlabel

<tex>
\$ S_2 \$
</tex>
S2 [1.3 dup] drtexlabel

orange
(R) R urtext

bleu
(M) M (-5 3) uctext

vert
(K) K (0 -3) dltext
(K') Kp drtext
(H) H cltext
(D) K 0 -5 addv [1.5 dup] cltext
(D') Kp 0 -5 addv [1.5 dup] crtext

coul1
(T) T cltext

```