input courbescp13;
beginfig(1);
  cadre((0,0),(11,14));
  draw millimetrepourcourbe withcolor orange;
  origine((5,3));
  unites(2,2);
  draw axes;
  graduantx.bot;
  graduanty.lft;
  draw courbe1(-2,2.4,100,x*x-x-1);
  for k=-2 step 0.2 until -0.4:
    marquepoint(placepoint(k,k*k-k-1));
  endfor;
  for k=-0.1 step 0.2 until 1.5:
    marquepoint(placepoint(k,k*k-k-1));
  endfor;
  for k=1.6 step 0.1 until 2.4:
    marquepoint(placepoint(k,k*k-k-1));
  endfor;
endfig;
end