Source
%% 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$
0 0 [2.5 2.5]dctexlabel

#tex# $b$
9 0 [2.5 2.5]dctexlabel

#tex# $c$
2 0 [2.5 2.5]dctexlabel

#tex# $d$
6 0 [2.5 2.5]dctexlabel

#latex# $\mathcal{C}_f$
0 180 [2.5 2.5]dctexlabel

#latex# $P([c~;~d])$
4 200 [3 3]uctexlabel