Présentation de ode_01_eulermod.jps

-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