%% 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