%% auteur : 

-1 9 setxrange
-2 14 setyrange
60 setxunit
30 setyunit
/quadrillagewidth[.7 .4 .1] def
[1 1 .5 .5 ]{.7 setgray} Quadrillage
12 setfontsize
1.2 setlinewidth
1 1 setmkstep
  ticks
subticks
marks

traceaxes
ticks
%marks
traceaxes
axesarrow
/f{setxvar
8 x mul 4 3 div x 2 exp mul sub
} def
0 6 {f} Courbe



setTimesItalic
   (Valeurs de x) xmax 0 (-10 0) [1.5 1.5]ultext
   (Valeurs de A(x)) 0 ymax  (0 -10) [1.5 1.5] drtext
(O) O dltext