bewerking=bewerking1.proc


!if $negatief=0
    pm=+
    !if $taal=nl
	somtekst1=Reken de volgende som uit<br>\
	en vereenvoudig de uitkomst zo ver mogelijk:<br>
	nivo_title=Herhaald optellen van breuken.
    !else
	somtekst1=Calculate and reduce the outcome.
	nivo_title=Add the fractions.
    !endif    
    lijst_a=!shuffle 1,2,3,4,1,2,3,4,5,6,7,8
    lijst_b=!shuffle 2,4,5,6,8,10
!else
    pm=-
    !if $taal=nl
	nivo_title=Herhaal aftrekken van breuken.
	somtekst1=Reken de volgende som uit<br>\
	en vereenvoudig de ui
	tkomst zo ver mogelijk:<br>
    !else
	nivo_title=Subtract the fractions.
	somtekst1=Calculate and reduce the outcome:<br>
    !endif
    lijst_a=!shuffle 1,2,3,4,1,2,3,4,5,6,7,8,-1,-2,-3,-4,-1,-2,-3,-4,-5,-6,-7
    lijst_b=!shuffle 2,4,5,6,8,10,-2,-4,-5,-6,-8,-10
!endif
    
totaal=$empty
R=$graad
!for n=1 to $aantal_sommen
    !if $graad=0
	R=$n
    !endif
    !if $R=1	
	a=!randitem $lijst_a
	b=!randitem $lijst_b
	b=$[abs($b)]
	som=$empty
	tex=$empty
	r=!randitem 4,5,6
	!for s=1 to $r
	    som=!append item ($a)/($b) to $som
	    tex=!append item \frac{$a}{$b} to $tex 
	!next s
    !endif
    !if $R=2
	keuze=!randitem 1,2
	!if $keuze=1
	    b=!randitem $lijst_b
	    b=$[abs($b)]
	    som=$empty
	    tex=$empty
	    r=!randitem 5,6,7
	    !for s=1 to $r
		a=!randitem $lijst_a
		som=!append item ($a)/($b) to $som
		tex=!append item \frac{$a}{$b} to $tex 
	    !next s
	!else
	    som=$empty
	    tex=$empty
	    r=!randitem 5,6,7
	    c=!randitem 2,3,4
	    !for s=1 to $r
	        a=!randitem $lijst_a
	        b=$[$c*$a]
		b=$[abs($b)]
		som=!append item ($a)/($b) to $som
	        tex=!append item \frac{$a}{$b} to $tex 
	    !next s
	!endif
    !endif
    !if $R=3
	som=$empty
	tex=$empty
	r=$[2+$n]
	!for s=1 to $r
	    a=!randitem $lijst_a
	    b=!randitem $lijst_b
	    b=$[abs($b)]	
	    som=!append item ($a)/($b) to $som
	    tex=!append item \frac{$a}{$b} to $tex 
	!next s
    !endif
    !if $R>3
	som=$empty
	tex=$empty
	r=$[2+$n]
	!for s=1 to $r
	    a=!randitem $lijst_a
	    b=!randitem $lijst_b	
	    som=!append item ($a)/($b) to $som
	    tex=!append item \frac{$a}{$b} to $tex 
	!next s
    !endif
    som$n=!replace internal , by $pm in $som
    opgave$n=!replace internal , by $pm in $tex
    totaal=!append line $(som$n) to $totaal
    totaal=!append line printtex($(som$n)) to $totaal 
!next n

totaal=!exec pari $totaal

i=1
!for n=1 to $aantal_sommen
    GOED$n=!line $i of $totaal
    goed$n=!line $[$i+1] of $totaal
    i=$[$i+2]	 
!next n
