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
|