%% auteur : 


100 setxyrapport
36 setxunit
7.5 setborder
90 setangle_repere
-1 11 setxrange
-100 600 setyrange


traceOx
axeOxarrow
<span style="color:#2435A8">/f</span> {setxvar
#rpn#   x*<span style="color:green">(</span>22-2*x<span style="color:green">)</span>*<span style="color:green">(</span>18-2*x<span style="color:green">)</span>
} <span style="color:blue">def</span>
<span style="color:#2435A8">/fillstyle</span> {0.9 0.9 0.9 <span style="color:fuchsia">setrgbcolor</span> <span style="color:teal">fill</span>} <span style="color:blue">def</span> 0 9 {f} Fillcourbe 

0 9 {f} Fillcourbe