-3 3 setxrange
-4 4 setyrange
1 1 setsubtkstep

quadrillage

tracerepere
marks

/f {
   setxvar
   x 3 exp
   x 3 mul sub
   1 add
} def

medium setlinewidth
{f} courbe

setTimesItalic
   (y = f) -2 -3.5 text
setTimes
   (\() show
setTimesItalic
   (x) show
setTimes
   (\)) show