600 setwidth
450 setheight
18 setfontsize
-10 6 setxrange
-1 11 setyrange

jpegmode

/f {
   Exp
} def


/val 3.14 2 div def

/dessin {
   tracerepere
   marks
   gsave
      bleu
      1.75 setlinewidth
      {f} courbe
   grestore

   setTimesItalic
      (O) O drtext
      (Exponentielle : y = e) -9 5 text
%%    setTimes
%% 	 (ln ) show
%%    setTimesItalic
      (x) exposant
   
} def

{dessin} relief