%% PhS
%% fig_Rch06_fin_poly_courbes_param_01

40 setxunit
-4 5.5  setxrange
-4 2 setyrange


%% parametrage de la parabole
/xdet {settvar t} def
/ydet {settvar t dup mul 5 div neg} def

/xpdet {settvar 2} def
/ypdet {settvar t 2 mul 5 div neg 2 mul} def


%% definition des points

/M0x {1 xdet} def
/M0y {1 ydet} def
/M0vx {1 xpdet} def
/M0vy {1 ypdet} def




%% definition d'une couleur
/coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def
coul1



%% traces
continu
[M0x M0y] points


vert
-3 4 settrange
{xdet} {ydet} courbeparam

rouge
continu
[M0x M0y M0x M0y M0vx M0vy addv] (->) ligne
[M0x M0y M0x M0y M0vx neg M0vy neg addv] (->) ligne




%% texte

setTimesItalic
coul1 

<tex>
$ M(t_0) $
</tex>
M0x -0.3 add M0y -0.25 add [1.7 dup] dctexlabel