-1 11 setxrange
-1.5 6.7 setyrange

/K {1 3} def
/alpha 2 Exp def

/f {
   setxvar
   x 2 add x ln add x div
} def

/g {
   setxvar
   x 2 add x div
} def

/h {pop 1} def

2 setxmkstep
tracerepere
marks
alpha xtick

.05 xmax {f} Courbe

gsave
   pointilles
   .3 setlinewidth
   [alpha 0 alpha dup f] ligne

   .8 setlinewidth
   bleu
   .05 xmax {g} Courbe
grestore

K dashpoint
45 sethangle
alpha 1 {f} {g} Hachcourbes

%% l'asymptote
mixte
{h} courbe

setTimesItalic
   (D) Xmin 1 drtext
   (C) Xmax dup f ultext
   (f) indice
   (K) K urtext
   (H) .4 dup g rtext
   (x) xmax 0 dltext
   (y) 0 .98 Ymax mul ltext
setSymbol
   (a) alpha 0 dtext