50 setxunit
-1 6 setxrange
-5 3 setyrange
ticks
subticks
marks
traceaxes
axesarrow
unites

/g {setxvar
#rpn#   ln  (x)
} def

/f {setxvar
#rpn# x-1
} def


.75 setlinewidth
bleu
0.01  6 {g} Courbe
noir
{f} courbe

/A {e 1} def
A dashpoint

setTimesItalic
(O) O drtext

6.5 settailletangente
e {g} tangente

#latex# $y=\ln x$
4.2 dup g [1.3 dup] drtexlabel
#latex# $y= x-1$
4 dup f [1.3 dup] drtexlabel

#latex# $e$
e 0 [1.3 dup] dctexlabel