4 setxyrapport
50 setxunit
7.5 setborder
90 setangle_repere
-2 5 setxrange
-11 21 setyrange
1 5 settkstep
1 20 setmkstep
ticks
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn#   -(2/3)*x^3+5*x^2-12*x
} def
/g {setxvar
#rpn#   -24*x-19/3
} def
gsave
   bleu
   1 setlinewidth
   continu
   {f} courbe
grestore
gsave
   rouge
   .75 setlinewidth
   continu
   {g} courbe
grestore

[ 0 53 3 div -1 53 3 div ] .5 setlinewidth pointilles ligne
[ -1 0 -1 53 3 div ] .5 setlinewidth pointilles ligne
#latex# $\frac{53}{3}$
 0 53 3 div [1.5 dup ] crtexlabel
[2 0 2 -28 3 div ] .5 setlinewidth pointilles ligne
[3 0 3 -9 ] .5 setlinewidth pointilles ligne
[0 -28 3 div 2 -28 3 div ] .5 setlinewidth pointilles ligne
[0 -9 3 -9 ] .5 setlinewidth pointilles ligne
#latex# $\frac{-28}{3}$
 0 28 3 div neg[1.5 dup ] ultexlabel
#latex# $-9$
 0 -9 [1.5 dup ] cltexlabel