%% auteur : jpv
-4 4 setxrange
-12 12 setyrange
2 setxyrapport
2 2 setsubtkstep
/f {setxvar
#rpn# -x^3 + 3*x -7
} def
/quadrillagewidth[.7 .4 .1] def
[1 1 1 1 1 1]{.7 setgray} Quadrillage
.2 setlinewidth
%%tracerepere
traceaxes
xmarks
ymarks
%% [11 -5 -7 -9] {ymark} apply
[-3 -1 1 2] {dup f dashpoint} apply
.7 setlinewidth
-3 2 {f} Courbe
|