2 setxyrapport
100 setxunit
7.5 setborder
90 setangle_repere
-3.5 3 setxrange
-1 11 setyrange
/quadrillagegray 0.4 def
1 setquadrillagexstep
1 setquadrillageystep
quadrillage
1 1 settkstep
.25 .5 setsubtkstep
1 2 setmkstep
xsubticks
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn#   -x^3-x^2+4*x+4
} def
/g {setxvar
#rpn#   1/x
} def
gsave
   bleu
   .75 setlinewidth
   continu
  3 neg  2 {f} Courbe
grestore