-4 4 setxrange
-4 4 setyrange

1 1 setsubtkstep
/unites {} def
quadrillage
tracerepere

-3.99 4 setxrange %% pour ne pas avoir la graduation -4
marks

/f {setxvar
#rpn# (x+2) * Exp (-x)
} def

1 setlinewidth
{f} courbe

setTimesItalic
   (O) O dltext
   (x) xmax 0 dltext
   (y) 0 ymax dltext