Fichier ode_01_eulermod.jps — Modifié le 11 Mars 2006 à 10 h 53
-5 5 setxrange
-7 5 setyrange
-5 5 setyrange
30 setxunit
gsave
masque
quadrillage
/f {
pop 1 exch div
} def
-5 -.1 setxrange
.5 setlinewidth
/arrowscale {.5 dup} def
.4 setgray
%% syntaxe: f s1 s2 l champvecteur --> dessin du champ de vecteur
%% on separe en 2 pour eviter les pbms en x=0
%% rque : on aurait egalement pu prendre -4.9 5 setxrange => decalage
%% a droite de .1, et on ne passe plus par x=0
-5 -.1 setxrange
{f} .5 .5 .5 (->) champvecteur
.5 5 setxrange
{f} .5 .5 .5 (->) champvecteur
-5 5 setxrange
/arrowscale {.75 dup} def
.7 setlinewidth
noir
tracerepere
1 setlinewidth
%% on represente quelques solutions
-3 1 3 {
/i exch def
bleu
[-5 Exp xmax {f} 1 i .1 Eulermod] ligne
rouge
[xmin -5 neg Exp {f} -1 i .1 Eulermod] ligne
} for
grestore
#tex# $y' = {1\over x}$
0 -6 [2 dup] cctexlabel