Présentation de courbes_param_01.jps

/syracuse/bbgraf/albums/coniques/courbes_param_01.jpg
%% 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