!set n=$teller
bewerking=bewerking1.proc
letter$n=!randitem $letters
    q=4
    a=!randitem 1,2,3,4,5,6,7,8
    b=!randitem 1,2,3,4,5,6,7,8
    f$n=(x - $a)*(x + $b)*x^2 
    totaal=!exec pari A=($(f$n))\
    printtex(A)
    functie$n=!line 1 of $totaal
    F$n=!line 2 of $totaal
    
    GOED$n=$a,$[-1*$b],0
    aantal_nulpunten=3
    !if $MAXIMUM=1
	diff=!exec maxima tussenstand:diff($(functie$n),x);\
	solve(tussenstand=0,x);
	ff$n=!line 1 of $diff
	maxima=!line 2 of $diff
	goed$n=!replace [x=] by $empty in $maxima
	mijn_antwoord2$n=!texmath $maxima
	aantal_maxima=!itemcnt $(goed$n)
    !endif
graad=!item $q of $rangwoorden
!if $taal=nl
    nivo_title=!nospace $graad - graads &nbsp; polynomen 
!else
    nivo_title=!nospace $graad - degree &nbsp; polynomials
!endif
mijn_antwoord1$n=<em>x<sub>1</sub>=$a<br>x<sub>2</sub>=0<br>x<sub>3</sub>=$[-1*$b]</em>

!if $PLAATJE=1
    min=$[5*($a+$b)^2]
    plotsteps=300
    plotjump=150
    XRANGE=$[-1*($b+1)],$[$a+1]
    YRANGE=-$min,$min
    XSCHAAL=1
    YSCHAAL=$[10*ceil($min/50)]

    !readproc nivo/plaatje.proc
!endif