autocrop
-5 5 setxrange
-7 5 setyrange
-5 5 setyrange
30 setxunit
gsave
masque
quadrillage
/f {
2 dict begin
/y exch def
/x exch def
x 0 eq x -1 eq or {
0
} {
y 1 sub x dup dup mul add div
} ifelse
end
} def
.5 setlinewidth
/arrowscale {.5 dup} def
.4 setgray
%% syntaxe: f s1 s2 l champvecteur --> dessin du champ de vecteur
{f} .25 .25 .1 (-) champvecteur
/arrowscale {.75 dup} def
.7 setlinewidth
noir
tracerepere
.3 setlinewidth
%% on represente quelques solutions
bleu
/a 1 def
-10 .5 10 {
/a exch store
-10 -1.01 {} {/t exch def 1 add a t mul 1 t add div} Courbeparam
-.99 10 {} {/t exch def 1 a t mul add 1 t add div} Courbeparam
} for
grestore
#tex# $(x + x^2)y' - y = -1$
0 -6 [2 dup] cctexlabel
|