Présentation de 112.jps

%% PhS

%% fig_S_cours_ch03_equations_differentieles_05_v01.jps


40 setxunit
-7 7 setxrange
-7 7 setyrange
tracerepere
marks

/k1 1 def
/k2 1 def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% definitions des couleurs

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% procédures

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





%% parametrage de la courbe

/xdet {
1 dict begin
	/t exch def
	t
end
	} def


/ydet_1 {
1 dict begin
	/t exch def
	t dup mul -1 exch div Exp k1 mul
end
	} def


/ydet_2 {
1 dict begin
	/t exch def
	t dup mul -1 exch div Exp k2 mul
end
	} def


%% tracé du champ de vecteurs

coul1




%% tracé de la courbe intégrale

1 setlinewidth
rouge
continu
-6 1 5 {
	/k1 exch def
	-6 -0.001 settrange
	{xdet} {ydet_1} courbeparam
} for


bleu
continu
-6 1 5 {
	/k2 exch def
	0.001 6 settrange
	{xdet} {ydet_2} courbeparam
} for






%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% texte

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

setTimesItalic


noir
<latex>
O
</latex>
0 0 [1.5 dup] dltexlabel

<latex>
$ k_1e^{-\frac{1}{x^2}} $
</latex>
-4 5 [2 dup] urtexlabel

<latex>
$ k_2e^{-\frac{1}{x^2}} $
</latex>
2 5 [2 dup] urtexlabel