Fichier 002.jps — Modifié le 27 Juillet 2006 à 18 h 16
%% auteur : GM
100 setxyrapport
36 setxunit
7.5 setborder
90 setangle_repere
-1 11 setxrange
-150 600 setyrange
traceOx
axeOxarrow
/f {setxvar
#rpn# x*(22-2*x)*(18-2*x)
} def
/fillstyle {0.9 0.9 0.9 setrgbcolor fill} def
2 6 {f} Fillcourbe
.75 setlinewidth
0 9 {f} Courbe
[2 0 2 504] ligne
[6 0 6 360] ligne
/A{0 0} def
/B{9 0} def
2 setlinewidth
[A B] ligne
#tex# $a$
2 0 [2.5 2.5]dctexlabel
#tex# $b$
6 0 [2.5 2.5]dctexlabel
#tex# $I$
4.5 -80 [2.5 2.5]dctexlabel
#latex# $\mathcal{C}_f$
0 180 [2.5 2.5]dctexlabel
#latex# $P([a~;~b])$
4 200 [3 3]uctexlabel