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

0 9 {f} Fillcourbe 

.75 setlinewidth
0 9 {f} Courbe


/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


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

#latex# $P([a~;~b])=1$
4 200 [3 3]uctexlabel