30 setxunit 
30 setyunit
-7 6 setxrange
-3 11 setyrange

/z0 {-6 -2} def
/z1 {-4 0} def
/z2 {-2 7} def
/z3 {1 10} def
/z4 {3 7} def
/z5 {5 4} def
%/z6 {3 2} def
%/z7 {5 0} def
%/z8 {6 -1} def
%/z9 {7 0} def
30 setfontsize
/quadrillagewidth [2]def
1 1 setquadrillagestep

quadrillage
1 setlinewidth

[-5 3 5] {xmark} apply
[5] {ymark} apply

traceaxes
axesarrow

1.5 setlinewidth
[z0 .. z1 .. z2 .. z3 {right} .. z4 .. z5] draw

%pointilles%
[z0 z5] points

setTimesItalic
   (O) O dltext
    (I) 1 0 dctext
    (J) 0 1 cltext
   (x ) xmax 0 ultext
   (y ) 0 ymax dltext
   (C) 4 6 text
   (f) indice