Source
%% 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
<latex>
$M$
</latex>
M [1.5 dup] ultexlabel

noir
<latex>
$\mathcal{C}$
</latex>
R [1.5 dup] ultexlabel

noir
<latex>
$\vec{\imath}$
</latex>
F 0.8 -0.2 addv [1.5 dup] cctexlabel

<latex>
$\vec{\jmath}$
</latex>
F -0.2 0.7 addv [1.5 dup] cctexlabel

noir
<latex>
$\theta$
</latex>
F 1.5 0.8 addv [1.5 dup] cctexlabel

noir
<latex>
$V$
</latex>
M 1.5 1.7 addv [1.5 dup] cctexlabel