prologues:=2;
input courbescp13;
beginfig(1);
  depart((0,0),(8,8),(1,4),1,1);
  draw grille(0.5) withcolor orange;
  draw axes;
  graduantx.bot;
  graduanty.llft;
  draw courbe1(0.02,7,100,ln(x)) withcolor violet;
  draw labelise1(btex $y=\ln x$ etex,0.9);
  marque_re:="hachure";
  draw airesouscourbe1(1,5.6,0);
endfig;
end