input courbescp13;

beginfig(1);
  depart((0,0),(10,10),(5,3),2,1);
  draw grille(0.1);
  draw axes;
  graduantx.bot;
  graduanty.ulft;
  draw courbe1(-2.5,2.5,100,x**2) withcolor orange;
  draw courbe2(-2.5,2.5,100,x+1) withcolor violet;
  draw labelise1(btex $y=x^2$ etex,0.1);
  draw labelise2(btex $y=x+1$ etex,0.1);
  marque_re:="hachure";
  draw entrecourbes(Cb1,Cb2);
endfig;
end