!set n=$teller
!if $BEREKENINGEN=1
    bewerking=bewerking4.proc
!else
    bewerking=bewerking1.proc
!endif
max_aantal=6
min_aantal=2
!if $graad =0
    R=$teller
!else
    R=$graad
!endif    

!if $variabelen=1
    X$n=!randitem a,b,c,d,f,x,y,z,p,g,k,t,r,n,m
!else
    X$n=x
!endif

gg=!randint 2,25
pm=!randitem -1,1
G$n=$[$pm*$gg]

!if $breuken=0	
    !if $taal=nl
	nivo_title=Los de volgende vergelijking op (alle bewerkingen)
    !else
	nivo_title=Solve the equation
    !endif

    a=!randitem 2,3,4,5,6
    b=!randitem 2,3,4,5,6
        
    !if $R=1 
	#ax+b=c
	c=$[$a*$(G$n) + $b]	    
	som$n=$a\cdot $(X$n) + $b \,\,\,=\,\,\, $c 
	extra$n=$a\cdot $(X$n) = $c - $b \Longrightarrow $(X$n) = \frac{$[$c - $b]}{$a} = $(G$n)
     !exit
    !endif
    !if $R=2 
	#ax-b=c
	c=$[$a*$(G$n) - $b]	    
	som$n=$a\cdot $(X$n) - $b \,\,\,=\,\,\, $c 
	extra$n=$a\cdot $(X$n) = $c + $b \Longrightarrow $(X$n) = \frac{$[$c + $b]}{$a} = $(G$n)
     !exit
    !endif
    !if $R=3 
	#ax + bx = c
	c=$[$(G$n)*($a+$b)]
	som$n=$a\cdot $(X$n) + $b\cdot $(X$n) \,\,\,=\,\,\, $c 
	extra$n=$[$a + $b] \cdot $(X$n)\,\,=\,\, $c \Longrightarrow $(X$n) \,\,=\,\, \frac{$c}{$[$a + $b]} = $(G$n)
     !exit
    !endif
    !if $R>3 
	#ax - bx = c
	a=!randitem 7,8,9,10
	b=!randitem 2,3,4,5
	c=$[$(G$n)*($a-$b)]
	som$n=$a\cdot $(X$n) - $b\cdot $(X$n) \,\,\,=\,\,\, $c 
	extra$n=$[$a - $b] \cdot $(X$n)\,\,=\,\, $c \Longrightarrow $(X$n) \,\,=\,\, \frac{$c}{$[$a - $b]} = $(G$n)
     !exit
    !endif
 !exit
!else
    !if $taal=nl
	nivo_title=Los de volgende vergelijking op (alle bewerkingen)<br>Met Breuken 
    !else
	nivo_title=Solve the equation
    !endif
    a=!randitem 1/2,1/3,1/4,1/5,1/6,1/7,1/8,1/9,1/10,2/3,3/4,2/5,3/5,5/6,2/7,3/7,4/7,5/7,6/7,3/8,5/8,7/8,2/9,5/9,7/9,8/9,3/10,7/10,9/10	
    aa=!replace internal / by , in $a
    a1=!item 1 of $aa
    a2=!item 2 of $aa
    b=!randint 2,25
    !if $R=1 	
	#ax+b=c
	cc=!exec pari A=$a*$(G$n) + $b\
	printtex(A)
	c=!line 1 of $cc
	C=!line 2 of $cc
	som$n=\frac{$a1}{$a2} \cdot $(X$n) + $b = $C 
	extra$n=$(X$n) = \frac{$a2}{$a1} \cdot \left($C - $b\right) \Longrightarrow $(X$n) = \frac{$[$a2*($c - $b)]}{$a1} = $(G$n)
     !exit
    !endif
    
    !if $R=2 
	#ax-b=c
	cc=!exec pari A=$a*$(G$n) - $b\
	printtex(A)
	c=!line 1 of $cc
	C=!line 2 of $cc
	som$n=\frac{$a1}{$a2} \cdot $(X$n) - $b = $C 
	extra$n=$(X$n)=\frac{$a2}{$a1} \cdot \left($C + $b\right) \Longrightarrow $(X$n) = \frac{$[$a2*($c + $b)]}{$a1} = $(G$n)
     !exit
    !endif
	
    !if $R=3 
	#ax + bx = c
	cc=!exec pari A=$(G$n)*($a + $b)\
	printtex(A)
	c=!line 1 of $cc
	C=!line 2 of $cc    
	som$n=\frac{$a1}{$a2}\cdot $(X$n) + $b\cdot $(X$n) \,\,\,=\,\,\, $C 
	extra$n=\frac{$[$a2*$b + $a1]}{$a2} \cdot $(X$n)\,\,=\,\, $C \Longrightarrow $(X$n)  =\frac{$a2}{$[$a2*$b + $a1]}\cdot $C = $(G$n)
     !exit
    !endif
	
    !if $R>3 
	#ax - bx = c
	cc=!exec pari A=$(G$n)*($a - $b)\
	printtex(A)
	c=!line 1 of $cc
	C=!line 2 of $cc    
	som$n=\frac{$a1}{$a2}\cdot $(X$n) - $b\cdot $(X$n) \,\,\,=\,\,\, $C
	extra$n=\frac{$[$a1 - $a2*$b]}{$a2} \cdot $(X$n)\,\,=\,\, $C \Longrightarrow $(X$n)  =\frac{$a2}{$[$a1-$a2*$b]}\cdot $C = $(G$n)
     !exit
    !endif
!endif

