verbatimtex
%&latex
\documentclass{article}
\usepackage{mathrsfs}
\begin{document}
etex
%%
input courbescp13;
beginfig(1);
  depart((0,0),(13,10),(1,0.5),2,0.25);
  draw grille(0.5) withcolor orange;
  draw axes;
  graduationx(btex 1 etex,1);
  graduationy(btex 4 etex,4);
  legendex(btex $x$ (en cm) etex);
  legendey(btex ${\mathscr A}$ (en cm$^2$) etex); 
  draw courbe1(0,6,100,-(x**2)+12*x) withcolor bleu;
endfig;
end