%% auteur : 

-4 7 setxrange
-2 6 setyrange
50 setxunit
50 setyunit
.5 .5 setquadrillagestep
quadrillage

currentlinewidth 2 mul setlinewidth
traceaxes
axesarrow
ticks
15 setfontsize
/A{3 2} def
/B{5 3.3333} def
B point
B dashpoint
A point
A dashpoint
%marks
1 setlinewidth
O A droite
setTimes
(O) O dltext
setTimesItalic
   (d) -1 -1.5 [2 2] ultext
(2) 0 2 [1.5 1.5] ltext
setTimes
  (I) 1 0 dtext 
(J) 0 0.9 ltext
(A) A [1.5 1.5] drtext
(B) B [1.5 1.5] drtext
(2) 2 0 [1.5 1.5] dtext
(3) 3 0 [1.5 1.5] dtext
(5) 5 0 [1.5 1.5] dtext
(b) 0 3.333 [1.5 1.5] ltext
(4) 0 3.9 [1.5 1.5] ltext