%% code jps desormais obsolete (23/09/2003)

-.2 2 setxrange
-.3 1 setyrange

.5 setxmkstep
.2 setymkstep

marks
/f {
   setxvar
   x ln x dup mul mul
} def

traceaxes
axesarrow
.001 xmax Tracecourbe
.001 1 Hachurecourbe

setTimesItalic
   (O) O downlefttext