2 setxyrapport
50 setxunit
7.5 setborder
90 setangle_repere
-3 5 setxrange
-7 11 setyrange
/quadrillagegray 0.4 def
1 setquadrillagexstep
1 setquadrillageystep
quadrillage
1 1 settkstep
1 1 setsubtkstep
1 1 setmkstep
ticks
marks
traceaxes
axesarrow
unites
/A {3 -3} def
/B {1 3} def
/C {0 6} def
/D {-1 5} def

/f {setxvar
#rpn#   (x^2-3)*(x-4)/2
} def
/f' {setxvar
#rpn#   (3*x^2-8*x-3)/2
} def
gsave
   noir
   .75 setlinewidth
   continu
  3 neg  5 {f} Courbe
grestore
8.5 settailletangente
0 (f) tangente
1 (f) tangente
-1 (f) tangente
3 (f) tangente

[A B C D] dashpoints
setTimesItalic
(A) 3 -3 drtext
(B) 1 3 urtext
(C) 0 6 dltext
(D) -1 5 drtext