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