input courbescp13; beginfig(1); cadre((0,0),(10.5,7.5)); origine((1,0.5)); draw grille(0.5) withcolor bleu; draw axes; unites(0.5,1/100); legendex(btex $x$ en cm etex); legendey(btex y en cm$^3$ etex); draw courbe1(0,8,100,18*pi*((1+x/6)**3-1)); for k=5 step 5 until 15: graduationx(""&decimal(k)&"",k); endfor; for k=100 step 100 until 600: graduationy(""&decimal(k)&"",k); endfor; endfig; end