-5 8 setxrange
-3 8 setyrange
15 setxunit
quadrillage
/arrowscale {.6 dup} def
tracerepere
marks

1 setlinewidth
-3 -1 0 1 droite   %% D3

setTimesItalic
   (D) 6 6 dltext