-.3 12.5 setxrange
-1.5 5.7 setyrange
90 setrotate
56.9054 setxunit %% 20mm
/resolution 500 def
quadrillage
/f {
   setxvar
   x 2 add x ln add x div
} def

traceaxes
marks
axesarrow

1.2 setlinewidth

.05 xmax {f} Courbe

setTimes
   (Courbe représentative de la fonction ) 3.5 4.5 text
setTimesItalic
   (f) show
   (x) xmax 0 (-10 -5) dltext
   (y) 0 ymax (-5 -10) dltext