300 setheight
-2 10 setxrange
-4.5 10 setyrange
1.5 setxyrapport
/f {
   setxvar
   x 1 sub
   x ln x dup mul div
   sub
} def

tracerepere
marks

/I {1 0} def

I times2

.00001 xmax {f} Courbe

/hstep 2 def
1 .5 Exp {f} {1 sub} Hachcourbes
[.5 Exp 0 2 -2 3 -2] (<-) ligne
<tex>
$\sqrt e$
</tex>
3 -2 0 4 ptojpoint addv drtexlabel

<tex>
$\cal D$
</tex>
xmin dup 1 sub drtexlabel
<tex>
$\cal C$
</tex>
8 dup 1 sub ultexlabel

<tex>
$$
   f (x) = x - 1 - {\ln x\over x^2}
$$
</tex>
1 7 urtexlabel

mixte
{1 sub} courbe

.5 setlinewidth
pointilles
[.5 Exp 0 .5 Exp dup 1 sub] (-) ligne

setTimesItalic
   (I) I ultext