Présentation de courbes_param_03.jps

/syracuse/bbgraf/albums/coniques/courbes_param_03.jpg
%% PhS %% fig_Rch06_fin_poly_courbes_param_03 40 setxunit -4.5 3.5 setxrange -2 4 setyrange %% parametrage de la parabole /xdet { 1 dict begin /t exch def t neg end } def /ydet { 1 dict begin /t exch def t dup mul 5 div end } def /xpdet { 1 dict begin /t exch def 2 end} def /ypdet { 1 dict begin /t exch def t 2 mul 5 div neg 2 mul end } def %% dessine un bout de droite /bddroite { %% Ax Ay Bx By kg (=proportion vers A) kd (=prop vers B) 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 /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 %% traces continu [M0x M0y] points %% definition d'une couleur /coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def coul1 noir M0x M0y M0x M0y M0vx M0vy addv -2 2 bddroite M0x M0y M0x M0y -0.1 1 addv -3 4 bddroite vert continu -3 4 settrange {xdet} {ydet} courbeparam rouge 1 setlinewidth M0x M0y M0x M0y M0vx M0vy addv (->) line %% texte setTimesItalic coul1 <tex> $ M(t_0) $ </tex> M0x M0y [1.7 dup] dltexlabel <tex> $ \overrightarrow{f'(t_0)} $ </tex> M0x 0.6 add M0y -0.65 add [1.7 dup] drtexlabel noir <tex> $ D $ </tex> -1.4 3.2 [1.7 dup] urtexlabel vert <tex> $ \Gamma $ </tex> -4 3 [1.7 dup] urtexlabel