!set n=$counter
!if $level =0
    R=$counter
!else
    R=$level
!endif        

!if $variabelen=1
    var1=!randitem a,b,c,d,f,x,y,z,p,g,k,t,r,n,m
!else
    var1=x
!endif
varlist=$var1
mathviewpanel=$module_title:->:/:*:-:+
question$n=!record 30 of lang/remarks.$taal
#@ Los de volgende vergelijking op <br>(Bereken dus de waarde van de letter)

!if $steps=1
    var5=6
    var4=2
    math=0
    checkfile=exos/checkfile4.proc
    tekst=!record 31 of lang/remarks.$taal
    #@En laat ook een paar tussenstappen zien...
    question$n=$(question$n)<br>$tekst
!else
    math=1
    var5=1
    var4=1
    checkfile=exos/checkfile1.proc
!endif

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

!if $breuken=1
    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
    A=\frac{$a1}{$a2}

    !if $R=1 	
	bb=!exec pari A=$(answer$n)+$a\
	printtex(A)
	b=!line 1 of $bb
	B=!line 2 of $bb
	formula$n=$A + $var1 \,\,\,=\,\,\,$B 
	texanswer$n=$A + $var1 - $A\,\,\,=\,\,\,$B - $A \Longrightarrow $var1 \,\,=\,\, $B - $A \Longrightarrow $var1 \,\,=\,\, $(answer$n)
     !exit	
    !endif

    !if $R=2 
	bb=!exec pari A=$a - $(answer$n)\
	printtex(A)
	b=!line 1 of $bb
	B=!line 2 of $bb
	formula$n=$A - $var1 \,\,\,=\,\,\,$B 
	texanswer$n=$A - $var1 + $var1\,\,\,=\,\,\,$B + $var1 \Longrightarrow $var1 \,\,=\,\, $A - $B \Longrightarrow $var1 \,\,=\,\, $(answer$n)
     !exit	
    !endif
	
    !if $R=3 
	bb=!exec pari A=$(answer$n)*$a\
	printtex(A)
	b=!line 1 of $bb
	B=!line 2 of $bb
	formula$n=$A \cdot $var1 \,\,\,=\,\,\,$B 
	texanswer$n=$var1  \,\,\,=\,\,\, \frac{$B}{$A} \Longrightarrow $var1 \,\,=\,\, $(answer$n)
     !exit	
    !endif
	
    !if $R>3 
	c=!randitem 1,2,3,4,5,6
	d=!randitem 7,8,9,10,11,12,13
	bb=!exec pari A=$c/$d\
	printtex(A)
	b=!line 1 of $bb
	B=!line 2 of $bb
	gg=!exec pari A=$b*$a\
	printtex(A)
	answer$n=!line 1 of $gg
	G=!line 2 of $gg
	formula$n=\frac{$var1}{$A} \,\,\,=\,\,\, $B
	texanswer$n=$var1 \,\,\,=\,\,\,$A \cdot $B \Longrightarrow $var1 \,\,=\,\, $G 
     !exit	
    !endif
!else

    a=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14
    !if $R=1 	
	b=$[$(answer$n)+$a]
	formula$n=$a + $var1 \,\,\,=\,\,\,$b 
	texanswer$n=$a + $var1 - $a\,\,\,=\,\,\,$b - $a \Longrightarrow $var1 \,\,=\,\, $b - $a \Longrightarrow $var1 \,\,=\,\, $(answer$n)
     !exit	
    !endif
	
    !if $R=2 
	b=$[$a - $(answer$n)]
	formula$n=$a - $var1 \,\,\,=\,\,\,$b 
	texanswer$n=$a - $var1 - $a\,\,\,=\,\,\,$b - $a \Longrightarrow - $var1 \,\,=\,\, $b - $a \Longrightarrow $var1 \,\,=\,\, $(answer$n)
     !exit	
    !endif
	
    !if $R=3 
	b=$[$(answer$n)*$a]
	formula$n=$a \cdot $var1 \,\,\,=\,\,\,$b 
	texanswer$n=\frac{\left($a \cdot $var1 \right)}{$a} \,\,\,=\,\,\, \frac{$b}{$a} \Longrightarrow $var1 \,\,=\,\, $(answer$n)
     !exit	
    !endif
	
    !if $R>3 
	b=!randitem 2,3,4,5,6,7,8
	answer$n=$[$b*$a]
	formula$n=\frac{$var1}{$a} \,\,\,=\,\,\, $b
	texanswer$n=\frac{$a \cdot $var1}{$a} \,\,\,=\,\,\, $a \cdot $b \Longrightarrow $var1 \,\,=\,\, $(answer$n) 
     !exit	
    !endif
!endif

