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