bewerking=bewerking1.proc

!if $taal=nl
    nivo_title=Delen met 1 variabele
!else
    nivo_title=
!endif
sommen=$empty

R=$graad
    !for n=1 to $aantal_sommen
	!if $graad = 0
	    R=$n
	!endif    
	!if $R = 1
	    keuze=!randitem 1,2
	    B=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
	    f=!randitem 2,3,4,5,6,7,8,9,10
	    A=$[$f*$B]
	    a$n=!randitem  a,b,c,d,f,h,k
	    varlist$n=$(a$n)
	    !if $negatief=1
		pm=!randitem -1,1
		mp=!randitem -1,1
		A=$[$pm*$A]
		B=$[$mp*$B]
	    !endif
	    !if $keuze=1
		vergelijking=($A)*$(a$n)/($B)
		som$n=\frac{$A\cdot $(a$n)}{$B}
		letterlijk$n=$A*$(a$n)/$B
	    !else
		vergelijking=($A)*$(a$n)/(($B)*$(a$n))
		som$n=\frac{$A\cdot $(a$n)}{$B\cdot $(a$n)}
		letterlijk$n=$A*$(a$n)/$B*$(a$n)
	    !endif
	!endif
	!if $R = 2 
	    keuze=!randitem 1,2 
	    a$n=!randitem a,b,c,d,f,h,k
	    x=!randitem 2,3,4,5,6,7,8,9,10
	    B=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
	    f=!randitem 2,3,4,5,6,7,8,9,10
	    A=$[$f*$B]
	    !if $negatief=1
		pm=!randitem -1,1
		mp=!randitem -1,1
		A=$[$pm*$A]
		B=$[$mp*$B]
	    !endif
	    !if $keuze=1
		vergelijking=$A*$(a$n)^$x/($B*$(a$n)^$[$x-1])
		som$n=\frac{$A\cdot $(a$n)^{$x}}{$B\cdot $(a$n)^{$[$x-1]}}
		varlist$n=$(a$n)
		letterlijk$n=$A*$(a$n)^$x/$B*$(a$n)^$[$x-1]
	    !else
		vergelijking=$A*$(a$n)^$[$x-1]/($B*$(a$n)^$x)
		som$n=\frac{$A\cdot $(a$n)^{$[$x-1]}}{$B\cdot $(a$n)^{$x}}
		varlist$n=$(a$n)
		letterlijk$n=$A*$(a$n)^$[$x-1]/$B*$(a$n)^$x
	    !endif
	!endif
	!if $R = 3
	    a$n=!randitem a,b,c,d,f,h,k
	    A=!randitem 1,3,5,7,9,11
	    B=!randitem 2,4,6,8,10,12
	    f=!randitem 2,3,4,5
	    g=!randitem 2,3,4,5
	    x=!randitem 2,3,4,5,6
	    y=$[$x+$g]
	    A=$[$f*$A]
	    B=$[$f*$B]	    
	    !if $negatief=1
		pm=!randitem -1,1
		mp=!randitem -1,1
		A=$[$pm*$A]
		B=$[$mp*$B]
	    !endif
	    vergelijking=$B*$(a$n)^$y/($A*$(a$n)^$x)
	    som$n=\frac{$B\cdot $(a$n)^{$y}}{$A\cdot $(a$n)^{$x}}
	    varlist$n=$(a$n)
	    letterlijk$n=$B*$(a$n)^$y/$A*$(a$n)^$x
	!endif
	!if $R > 3
	    letters=!shuffle a,b,c,d,f,h,k,x,y,z
	    a$n=!item 1 of $letters
	    b$n=!item 2 of $letters
	    A=!randitem 1,3,5,7,9,11
	    B=!randitem 2,4,6,8,10,12
	    f=!randitem 2,3,4,5
	    h=!randitem 2,3,4,5
	    g=!randitem 2,3,4,5
	    x=!randitem 2,3,4,5,6
	    y=$[$x+$g]
	    A=$[$f*$A]
	    B=$[$f*$B]	    
	    pm=!randitem -1,1
	    mp=!randitem -1,1
	    y=$[$pm*$y]
	    x=$[$mp*$x]
	    !if $negatief=1
		A=$[$pm*$A]
		B=$[$mp*$B]
	    !endif
	    vergelijking=$B*$(a$n)^$y/($A*$(a$n)^$x)
	    som$n=\frac{$B \cdot  $(a$n)^{$y}}{$A\cdot $(a$n)^{$x} }
	    varlist$n=$(a$n)
	    letterlijk$n=$B*$(a$n)^$y/$A*$(a$n)^$x
	!endif
	sommen=!append line S=$vergelijking to $sommen
	sommen=!append line printtex(S) to $sommen
    !next n        

oplossingen=!exec pari $sommen
r=1
!for n=1 to $aantal_sommen
    GOED$n=!line $r of $oplossingen
    goed$n=!line $[$r+1] of $oplossingen
    r=$[$r+2]
!next n[21~