Fichier ode_07_euler.jps — Modifié le 23 Décembre 2006 à 19 h 23
18 setfontsize
-1.9 1.9 setxrange
-1.9 1.9 setyrange
100 setxunit
[1 1 .5 .5 .1 .1] {noir} Quadrillage
.7 setlinewidth
/g {Sin} def
tracerepere
marks
setTimesItalic
(O) O drtext
<tex>
$$
\Gamma
$$
</tex>
bleu
-1.4 0.8 neg [1.5 dup] cctexlabel
<tex>
$$
\Delta\;:\;y=x
$$
</tex>
noir
1.5 1.3 [1.5 dup]{45} cctexlabel
1.5 setlinewidth
gsave
bleu
pi neg 2 div pi 2 div {g} Courbe
pointilles noir
1.8 neg 1.8 {} Courbe
grestore
%%%% L'équation différentielle y'=F(x,y) et y0=y(x0) sur l'intervalle %[a;b]
/F {
2 dict begin
/y exch def
/x exch def
#rpn# 1/ (sqrt (1-x^2))
end
} def
/x0 {0} def
/y0 {0} def
/a {1 neg} def
/b {1} def
%%%%%%%%% calcul des sommets et tracés %e'approxparméthoded'Euler%%%%%
/pas {0.25} def
rouge
[a b {F} x0 y0 pas Euler ] ligne
0 setlinewidth
boxit
/fillstyle {blanc fill} def
#tex# $$y' = {1\over \sqrt {1-x^2}}$$
0 -1.5 [1.5 dup] cctexlabel