%% PhS %% fig_conique_15 40 setxunit 0 12 setxrange -1.5 7 setyrange %% definition des points /H1 {0 0} def /H2 {11.7 0} def /V1 {2 -1.8} def /V2 {2 6.2} def /K {2 0} def /Fx {4} def /F {Fx 0} def /Sx {3} def /S {Sx 0} def /S+ {Sx 7} def /S- {Sx -2} def /D {1.8 6} def /p {2} def /e {1} def /A {p 2 mul Sx add dup Sx sub} def /Axx {p 2 mul Sx add 0} def /Ayy {Sx p 2 mul} def /B {p 2 div Sx add p} def /Byy {Sx p} def %% parametrage de la parabole /rhox {settvar t cos e mul neg 1 add 1 exch div p mul t cos mul} def /rhoy {settvar t cos e mul neg 1 add 1 exch div p mul t sin mul} def /Mx {70 rhox Fx add} def /My {70 rhoy} def /M {Mx My} def /H {M V1 V2 orthoproj} def /HFv {H F vecteur} def /HFg {HFv -0.2 mulv H addv} def /HFd {HFv 0.2 mulv F addv} def /I {H F milieu} def /T {V1 V2 M I interdroite} def /TMv {T M vecteur} def /TMg {TMv -0.5 mulv T addv} def /TMd {TMv 1.6 mulv M addv} def %% traces continu [K F M F S A Axx Ayy H I T B Byy] points [H1 H2] ( ->) ligne [V1 V2] ligne [S- S+] ( ->) ligne [M F] ligne [M H] ligne [HFg HFd] ligne [T F] ligne M H T angledroit M F T angledroit F I M angledroit 40 320 settrange {rhox Fx add} {rhoy} courbeparam /coul1 {188 255 div 128 255 div 9 255 div setrgbcolor} def coul1 [TMg TMd] ligne vert pointilles [Axx A Ayy] ligne [F B Byy] ligne rouge continu [S Sx 0.8 add 0] ( ->) ligne [S Sx 0.8] ( ->) ligne %% texte setTimesItalic bleu (K) K dltext (F) F dltext (D) D [1.5 dup] ltext (M) M uctext (H) H cltext (S) S dltext (T) T (-4 0) cltext (I) I (-4 0) cltext vert (-p/2) K (0 -15) dltext (p/2) F (0 -15) dltext (A) A drtext (2p) Axx dctext (2p) Ayy cltext (p) Byy cltext bleu $ \Delta $ (x) 9 0 [1.7 dup] dctexlabel