Fichier 531.jps — Modifié le 23 Janvier 2007 à 15 h 46
100 setxyrapport
20 setxunit
10 setborder
90 setangle_repere
-1.5 12 setxrange
-90 1200 setyrange
/quadrillagegray 0.4 def
1 setquadrillagexstep
100 setquadrillageystep
quadrillage
2 100 settkstep
.5 .5 setsubtkstep
2 100 setmkstep
ticks
marks
traceaxes
axesarrow
/f {setxvar
#rpn# (22-2*x)*(28-2*x)*x
} def
gsave
bleu
.75 setlinewidth
continu
0 11 {f} Courbe
grestore