%% PhS %% 40 setxunit -3 7 setxrange -2.5 5.5 setyrange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% procédures %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /p {1.5} def /e {1} def /F {0 0} def /F2 {0 1} def /Kx {p e div neg} def /K {Kx 0} def /D {Kx -2.2} def /S {p -2 div 0} def /H1 {-8 0} def /H2 {8 0} def /V1 {Kx -3.5} def /V2 {Kx 6} 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 /ThM {60} def /My {ThM rhoy} def /M {ThM rhox My} def /H {Kx My} def /T {5 5.5} def /R {5 3.5} def /M2 {4 My} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% tracés %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% noir 40 130 settrange {rhox} {rhoy} courbeparam /arrowscale {1.3 dup} def noir [F F 1 0 addv] ( ->) ligne [F F 0 1 addv] ( ->) ligne noir F M 0 2 bddroite noir M M2 0 2.5 bddroite noir K F -5 5 bddroite noir F F2 -5 5 bddroite noir mixte 0.6 setlinewidth M M ThM 2 div cos ThM 2 div sin addv -5 5 bddroite noir [M] points noir continu /arrowscale {2 dup} def /arrowangle -8 def F 1 0 addv F M 1.3 (->) tripointarc %M 1 0 addv M M F M vecteur addv 1.3 (->) tripointarc noir /arrowangle 4 def M ThM 2 div cos ThM 2 div sin addv M M F M vecteur addv 2 (<-) tripointarc %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% texte %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% setTimesItalic noir (O) F [1.5 dup] dtext (Tangente en M) T [1.5 dup] dtext (Rayon parallèle à (Ox)) M2 [1.5 dup] dtext noir $M$ M [1.5 dup] ultexlabel noir $\mathcal{C}$ R [1.5 dup] ultexlabel noir $\vec{\imath}$ F 0.8 -0.2 addv [1.5 dup] cctexlabel $\vec{\jmath}$ F -0.2 0.7 addv [1.5 dup] cctexlabel noir $\theta$ F 1.5 0.8 addv [1.5 dup] cctexlabel noir $V$ M 1.5 1.7 addv [1.5 dup] cctexlabel