bewerking=bewerking3.proc
!if $taal=nl
    nivo_title=Twee breuken vermenigvuldigen; nu ook met variabelen
    somtekst1=Vermenigvuldig de volgende breuken met elkaar<br>\
    en vereenvoudig de uitkomst zo ver mogelijk:<br>
!else
    nivo_title=Multiplication of two fractions: with variables
    somtekst1=Calculate , fill in the blancs<br>\
    and reduce the answer:<br>
!endif    
!if $negatief=0
    lijst_a=!shuffle 1,2,3,4,5,6
    lijst_b=!shuffle 4,5,6,7,8,9,10
    lijst_c=!shuffle 2,3,4,5,6,7
    lijst_d=!shuffle 7,8,9,10,11,12,13,15
!else
    lijst_a=!shuffle 1,2,3,4,5,6,-1,-2,-3,-4,-5,-6
    lijst_b=!shuffle 4,5,6,7,8,9,10
    lijst_c=!shuffle 2,3,4,5,6,-2,-3,-4,-5,-6
    lijst_d=!shuffle 7,8,9,10,11,12,13,15
!endif
totaal=$empty    
R=$graad
!for n=1 to $aantal_sommen
    var$n=!randitem  a,b,c,d,f,g,h,x,y,z
    keuze=!randitem 1,1,2,3
    kans=!randitem 1,2
    !if $negatief=0
	pm=1
	mp=1
    !else
	pm=!randitem 1,-1
	mp=!randitem 1,-1
    !endif	
    !if $graad=0
	R=$n
    !endif
    !if $R=1    
	b=!item $n of $lijst_b
	a=$[$pm*($n+1)]
	c=$mp
	d=!randitem 2,3,4,5
    !endif
    !if $R=2    
	a=!item $n of $lijst_a
	b=!item $n of $lijst_b
	c=$[$pm*$a]
	d=$[2*$n]
    !endif
    !if $R=3    
	a=!item $n of $lijst_a
	b=!item $n of $lijst_b
    	c=!item $n of $lijst_c
    	d=!item $n of $lijst_d
    !endif
    !if $R>3    
	a=!item $n of $lijst_a
	b=!item $n of $lijst_b
	b=$[$pm*$b]
    	c=!item $n of $lijst_c
    	d=!item $n of $lijst_d
	d=$[$mp*$d]
    !endif
    !if $keuze=1
	AA=($(var$n)*$a)/$b
	BB=$c/($(var$n)*$d)
	!if $kans=1
	    opgave$n=\frac{$a \cdot $(var$n) }{$b} \cdot \frac{$c}{$d \cdot $(var$n)}
	!else
	    opgave$n=$(var$n) \cdot \frac{$a}{$b} \cdot \frac{$c}{$d \cdot $(var$n)}
	!endif
	tekst$n=<br> $(var$n) &ne; 0 <br> &ne; betekend <em>'niet gelijk aan'</em>
    !else
	!if $keuze=2
	    AA=($(var$n)*$a)/$b
	    BB=$c/$d
	    !if $kans=1
		opgave$n=\frac{$a \cdot $(var$n) }{$b} \cdot \frac{$c}{$d}
	    !else
		opgave$n=\frac{$(var$n) \cdot $a  }{$b} \cdot \frac{$c}{$d}
	    !endif
	!else
	    AA=$a/$b
	    BB=$c/($(var$n)*$d)
	    !if $kans=1
	    	opgave$n=\frac{$a}{$b} \cdot \frac{$c}{$d \cdot $(var$n)}
    	    !else
	    	opgave$n=\frac{$a}{$b} \cdot \frac{$c}{$(var$n) \cdot $d}
	    !endif
	    tekst$n=<br> $(var$n) &ne; 0 <br> &ne; betekend <em>'niet gelijk aan'</em>
	!endif
    !endif
	    
    som$n=$AA*$BB
    totaal=!append line (($AA)*($BB)) to $totaal
    totaal=!append line printtex(($AA)*($BB)) 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