Présentation de 005.jps

/syracuse/bbgraf/albums/coniques_03/005.jpg
%% PhS %% 50 setxunit 0 10 setxrange -3.5 3.5 setyrange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% definition des points %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /H1 {0 0} def /H2 {9 0} def /V1 {2 -3.5} def /V2 {2 3.5} def /K {2 0} def /F {5 0} def /D {1.8 -3} def /p {2} def /e {0.7} def /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 {60 rhox 5 add} def /My {60 rhoy} def /M {Mx My} def M point /H {M V1 V2 orthoproj} def H point %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% definition d'une couleur %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% tracÚs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1.3 setlinewidth continu [K F] points [H1 H2] ligne [V1 V2] ligne [M F] ligne [M H] ligne coul1 40 320 settrange {rhox 5 add} {rhoy} courbeparam rouge [F 6 0] ( ->) ligne [F 5 1] ( ->) ligne H2 F M 1.5 (->) tripointarc %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% texte %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% setTimesItalic noir (K) K [1.5 dup] dltext (M) M [1.5 dup] uctext rouge (F) F [1.5 dup] dtext bleu (H) H [1.5 dup] cltext noir <latex> $ \mathcal{D} $ </latex> D [1.5 dup] cctexlabel <latex> $ \Delta $ </latex> 8.5 0 [1.5 dup] dctexlabel rouge <latex> $ \theta $ </latex> 6.6 0.7 [1.5 dup] uctexlabel <latex> $ \vec{\imath} $ </latex> 5.8 -0.2 [1.5 dup] cctexlabel <latex> $ \vec{\jmath} $ </latex> 4.8 0.7 [1.5 dup] cctexlabel