Fichier 810.jps — Modifié le 18 Septembre 2007 à 15 h 14
65 setxunit
40 setyunit
7.5 setborder
90 setangle_repere
-1.5 3 setxrange
-0.5 3 setyrange
%[1 1 .5 .5 .1 .1] {orange} Quadrillage
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
axesarrow
/f {setxvar
#rpn# x^3/20-x^2/8+1.5
} def
/g {setxvar
#rpn# x^3/20-x^2/8+1.2
} def
/h {setxvar
#rpn# x^3/20-x^2/8+1.8
} def
/fillstyle {jaune fill} def
1.9 neg 3 {g} {h} Fillcourbes
traceaxes
gsave
bleu
1.75 setlinewidth
continu
2 neg 4 {f} Courbe
grestore
gsave
noir
0.75 setlinewidth
continu
2 neg 4 {g} Courbe
2 neg 4 {h} Courbe
grestore
[-1.48 1.04 -1 1.04] (*-\() ligne
[-1.48 1.33 -1 1.33] (\)-*) ligne
[-1 1.51 2.5 1.51] (\)-*) ligne
[-1 1.33 2.5 1.33] (*-\() ligne
[2.5 1.51 2.98 1.51] (*-\() ligne
[2.5 1.72 2.98 1.72] (\)-*) ligne
-1.5 xtick
-1 xtick
2.5 xtick
3 xtick
[-1.3 1.8 -1.2 1.3] (->) ligne
[-1 2.2 -0.9 1.7] (->) ligne
[-1 0.6 -0.9 1.05] (->) ligne
[1.5 2 1.6 1.5] (->) ligne
[0.5 0.8 0.6 1.3] (->) ligne