Présentation de 112.jps

/syracuse/bbgraf/albums/phs/112.jpg
%% 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