-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