400 setwidth
600 setheight
18 setfontsize
-4 4 setxrange
-6 6 setyrange

jpegmode

/f {
   3 exp
} def

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

   setTimesItalic
      (C) Xmax dup f ultext
      (f) indice
      (O) O drtext
      (Cubique : y = x) -3.5 1.5 text
   setTimes
      (3) exposant
   
} def

{dessin} relief