500 setwidth
500 setheight
18 setfontsize
-1 11 setxrange
-8 4 setyrange

jpegmode

/f {
   ln
} def


/val 3.14 2 div def

/dessin {
   tracerepere
   marks
   gsave
      bleu
      1.75 setlinewidth
      .0001 xmax {f} Courbe
   grestore

   setTimesItalic
      (O) O drtext
      (Logarithme népérien : y = ) 2 -3 text
   setTimes
      (ln ) show
   setTimesItalic
      (x) show
   
} def

{dessin} relief