!set n=$teller
!if $graad =0
    R=$teller
!else
    R=$graad
!endif        
nivo_title=!record 63 of lang/remarks.$taal
# De Rekenkundige Rij<br>Geef de termen
ss=!record 64 of lang/remarks.$taal
# Gegeven de onderstaande <em>lineaire functie</em><br>Met <em>f</em>&nbsp;\
# kun je een rij maken met: u<sub>1</sub>=<em>f</em>(0) , u<sub>2</sub>=<em>f</em>(2) ,\
# u<sub>3</sub>=<em>f</em>(2) ...<br>Geef de eerst $aantal_vragen termen van deze rij.
keuze=!randitem 0,0
multiplechoice=0
aantal_vragen=!randitem 3,4,5,6
pm=!randitem +,-
somtekst$n=$ss
bewerking=nivo/bewerking1.proc

!if $R=1
    a=!randitem 2,3,4,5,6,7,8,9,10,11,12
    b=!randitem 2,3,4,-2,-3,-4
    opgave$n=!texmath f(x) = $b*x $pm $a
    !for p=1 to $aantal_vragen
	G=$[$b*$p $pm $a]
	GOED$n=!append item $G to $(GOED$n)
	goed$n=!append line <li>u<sub>$p</sub>=$G</li> to $(goed$n)
    !next p
    goed$n=<ul>$(goed$n)</ul>
 !exit
!endif

!if $R>1
    a=!randitem 2,3,4,5,6,7,8,9,10,11,12
    b=!randitem 2,3,1/2,1/3,1/4,1/5,2/3,3/4,4/5,-2,-3,-1/2,-1/3,-1/4,-1/5,-2/3,-3/4,-4/5
    opgave$n=!texmath f(x) = $b*x $pm $a
    parivraag=$empty
    !for p=1 to $aantal_vragen
	parivraag=!append line ($b)*$p $pm ($a) to $parivraag 
    !next p
    totaal=!exec pari $parivraag
    !for p=1 to $aantal_vragen
	G=!line $p of $totaal
	GOED$n=!append item $G to $(GOED$n)
	goed$n=!append line <li>u<sub>$p</sub>=$G</li> to $(goed$n)
    !next p
    goed$n=<ul>$(goed$n)</ul>
 !exit
!endif

