Présentation de 128.jps

/syracuse/bbgraf/tmp/128.jpg
%% PhS %% fig_conique_16 35 setxunit -10 10 setxrange -8 8 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 {6} def /c {5} def /b {a a mul c c 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 /xdet {settvar t cos a mul} def /ydet {settvar t sin b mul} def /Mx {60 xdet} def /My {60 ydet} def /M {Mx My} def /H {M Kp Kp+ orthoproj} def /bissec {F M Fp bissectrice} def /bixx {bissec O S2 interdroite}def /Mbixx {M bixx vecteur} def /T {bissec M perp Kp Kp+ interdroite} def /MT {M T vecteur} def /theta1 {c neg a div arccos} def /Fcons1 {theta1 xdet theta1 ydet} def /Fcons2 {theta1 neg xdet theta1 neg ydet} 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 Fcons1 Fcons2] points [K -0.5 0 addv Kp 0.5 0 addv] ligne [O 0 -6.5 addv O 0 6.5 addv] ligne 0 360 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 bixx 0.5 (=) tripointarc bixx M Fp 0.7 (=) tripointarc coul1 continu M bixx -0.5 1.5 bddroite M T -1.3 1.8 bddroite T M bixx angledroit rouge Fcons1 Fcons2 -0.2 1.2 bddroite K Fcons1 -0.05 1.3 bddroite K Fcons2 -0.2 1.3 bddroite %% texte setTimesItalic noir (O) O dltext (F) F drtext (F') Fp dctext (B) B ultext <tex> $ S_1 $ </tex> S1 [1.3 dup] dltexlabel <tex> $ S_2 $ </tex> S2 [1.3 dup] drtexlabel bleu (M) M (-5 3) uctext vert (K) K (0 -3) dltext (K') Kp drtext (H) H crtext (D) K 0 -5 addv [1.5 dup] crtext (D') Kp 0 -5 addv [1.5 dup] cltext coul1 (T) T urtext