%% auteur : jpv

-4 4 setxrange
-12 12  setyrange
2 setxyrapport
2 2 setsubtkstep

/f {setxvar
#rpn# -x^3 + 3*x -7
} def

.2 setlinewidth
tracerepere
xmarks
[11 -5 -7 -9] {ymark} apply
[-3 -1 1 2] {dup f dashpoint} apply

.7 setlinewidth
-3 2 {f} Courbe