%% PhS %% fig_conique_04 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 {3} def /c {3.8} 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 1.3 mul xdet} def /My {b 1.3 mul ydet} def /M {Mx My} def /H {M Kp Kp+ orthoproj} def %% traces /coul1 {188 255 div 128 255 div 9 255 div setrgbcolor} def [O F Fp S1 S2 B K Kp M] points F Fp -0.5 1.5 bddroite [O 0 -6.5 addv O 0 6.5 addv] ligne b -2.2 mul b 2.2 mul settrange {xdet} {ydet} courbeparam {xdet neg} {ydet} courbeparam vert [K+ K-] ligne [Kp+ Kp-] ligne rouge [Fp M] ligne Fp 1 0 addv Fp M 1 (->) tripointarc bleu pointilles [R11 R12 R22 R21] polygone continu R11 R22 -1 2 bddroite R12 R21 -1 2 bddroite %% texte setTimesItalic noir (O) O dltext (F) Fp drtext (B) B ultext (M) M crtext vert (K) Kp dltext (D') K 0 -5 addv [1.5 dup] cltext (D) Kp 0 -5 addv [1.5 dup] crtext rouge $ \theta $ Fp 1.5 0.7 addv [2 dup] ultexlabel