Présentation de courbes_param_04.jps

%% 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