Présentation de courbes_param_04.jps

/syracuse/bbgraf/albums/coniques/courbes_param_04.jpg
%% PhS %% fig_Rch06_fin_poly_courbes_param_04 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 %% fonction associee a la tangente /tangdex { 2 dict begin /x exch def M0vy M0vx div /lambda exch def x M0x sub lambda mul M0y add end } def %% definitions des couleurs /coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def %% traces noir continu [M0x M0y] points /hcolor {jaune} def -6 6 {tangdex} {5} Hachcourbes noir M0x M0y M0x M0y M0vx M0vy addv -2 2.5 bddroite vert continu -3 4 settrange {xdet} {ydet} courbeparam rouge 1 setlinewidth M0x M0y M0x M0y M0vx M0vy addv (->) line M0x M0y M0x M0y -0.25 2.5 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 <tex> $ \overrightarrow{f''(t_0)} $ </tex> M0x -0.2 add M0y 1.5 add [1.7 dup] urtexlabel vert <tex> $ \Gamma $ </tex> -4 3 [1.7 dup] urtexlabel