-4 4 setxrange
-4 4 setyrange

/d1 {-2 0 0 2} def
/d2 {1 0 1 1} def

/f {setxvar
   x 2 add
   4
   x -1 add
   div
   add
} def
/f' {pop 0} def

1 xmark
-1 xmark
-2 xmark
1 ymark
-1 ymark
2 ymark

-1 -1 dashpoint

tracerepere
d1 droite
d2 droite
xmin .9 (f) Courbe
1.6 settailletangente
-1 (f) tangente

setTimesItalic
   (A) -1 -1 ultext
   (O) O drtext
   (C) -3.5 dup f drtext
   (D) 1 ymin urtext
   (1) indice
   (D) 1.5 3 rtext
   (2) indice