%% auteur : Peric
42.675 setxunit
28.45 setyunit
/xmarkstyle {[1.4 dup] dctext} def
/ymarkstyle {[1.4 dup] ultext} def
-5.9 5.9 setxrange
-6.5 6.5 setyrange
1 1 settkstep
1 1 setmkstep
ticks
marks
(0) 0 0 [1.4 dup] dltext 
traceaxes
axesarrow
unites
/a{1.5}def
/f {setxvar
#rpn#   -x/4+2-1/(x+1)
} def
/f' {setxvar
#rpn# 0
} def
/g{setxvar
#rpn#   -x/4+2
} def
/m{9 4 div} def

gsave
  % bleu
   2 setlinewidth
   continu
   xmin -1.01 {f} (-) Courbe
   -0.99 xmax {f} (-) Courbe
   %1 settailletangente
   %2 ln (f) tangente
   1 setlinewidth
   xmin xmax {g} (-) Courbe
   [-1 ymin -1 ymax] ligne
grestore

gsave
#latex# $D_1$
-5.5 dup g [a dup] dctexlabel

#latex# $A$
-1 m [a dup] ultexlabel

#latex# $B$
0 1 [a dup] drtexlabel

#latex# $D_2$
-1 -6 [a dup] cltexlabel

grestore