
c=!random -0.5,0.5
w=!random 0,1.6
c1=$[$c-$w]
c2=$[$c+$w]
der=!rawmath (x-$c1)*(x-$c2)
v1=!evalsubst x=(-$comprange) in $der
v2=!evalsubst x=($comprange) in $der
max=$[max(max($v1,$v2),-($c1)*($c2))]
max=$[$yrange/$max]

cc=!random $max*0.5,$max*0.9
cc=!randitem $cc,-$cc

der=$cc*$der
root=$c1,$c2
f=$cc*(x^3/3+$[-($c1+($c2))/2]*x^2+$[$c1*($c2)]*x)

