!set n=$teller
bewerking=bewerking1.proc

letter$n=!randitem $letters
    q=!randitem 5,5,5,6,7
    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^$q 
    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  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
    plotsteps=400
    plotjump=300
    XRANGE=$[-1*($b+1)],$[$a+1]
    YRANGE=-1000,1000
    XSCHAAL=1
    YSCHAAL=500

    !readproc nivo/plaatje.proc
!endif