n=$counter
image=0
XSIZE=500
questiontype=0
cols=25
rows=1
# rows=1 geeft andere form phtml file
math=0
var5=$empty
cellpadding=10
checkfile=exos/checkfile1.proc
text2=!record 5 of lang/remarks.$taal
#@ Vul in en schrijf zo kort mogelijk.
!if $level=0
    R=$counter
!else
    R=$level
!endif
!if $options<2 or $options>10
    options=5 
!endif
inputs=$options
textanswer=$empty 
# var1 = letter1                                                                                               
# var2 = letter2                                                                                               
# var3 = varcount  varcnt                                                                                      
# var4 = letterlijk                                                                                            
# var5 = controle 
var4=1
var1=!randitem a,s,k,q,u,x,c,n,z 
var2=!randitem b,g,m,r,v,y,d,p,t

!if $R=1
    text1=!record 1 of lang/remarks.$taal
    question$n=$text1
    #@ Schrijf zo eenvoudig mogelijk:<br> optellen & aftrekken met &eacute;&eacute;n variabele	
    wims_rawmath_variables=$var1
    var3=1
    
    numbers=2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30
    numbers=!shuffle $numbers    
    !for p=1 to $options
	keuze=!randitem 1,2
	number1=!item $p of $numbers
	number2=!item $[$p + 1] of $numbers
	mp=!randitem -1,1
	pm=!randitem +,-
	number1=$[$mp*$number1]
	!if $keuze=1
	    vraag=$number1*$var1 $pm $number2*$var1
	!else
	    number3=!randitem 2,3,4,5
	    vraag=$number1*$var1^$number3 $pm $number2*$var1^$number3
	!endif	    
	inputtext$p=!htmlmath $vraag
	var5=!append item $vraag to $var5
	answer=!exec pari $vraag
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath $answer
	textanswer=!append line <td>$(inputtext$p) &nbsp;<font size="+1">=</font>&nbsp; $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table  width="100%" $paperbg cellpadding="10" border="1">$textanswer</table>
 !exit
!endif
!if $R=2
    text1=!record 2 of lang/remarks.$taal
    question$n=$text1
    #@ Schrijf zo eenvoudig mogelijk:<br>delen & vermenigvuldigen met &eacute;&eacute;n variabele	
    wims_rawmath_variables=$var1
    var3=1
    
    numbers=2,3,4,5,6,7,8,9
    numbers=!shuffle $numbers
    nummers=2,3,4,5,6
    nummers=!shuffle $nummers

    !for p=1 to $options
	mp=!randitem -1,1
	pm=!randitem -1,1
	number1=!item $p of $numbers
	number1=$[$pm*$number1]
	number2=!item $[$p + 1] of $numbers
	number2=$[$mp*$number2]
	number3=!item $p of $nummers
	number4=!item $[$p + 1] of $nummers
	inputtext$p=!htmlmath $number1*$var1^$number3 times $number2*$var1^$number4
	var5=!append item $number1*$var1^$number3*$number2*$var1^$number4 to $var5
	answer=!exec pari $number1*$var1^$number3*$number2*$var1^$number4
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath $answer
	textanswer=!append line <td>$(inputtext$p) &nbsp;<font size="+1">=</font>&nbsp; $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table  width="100%" $paperbg cellpadding="10" border="1">$textanswer</table>
 !exit
!endif

!if $R=3
    text1=!record 3 of lang/remarks.$taal
    question$n=$text1
    #@ Schrijf zo eenvoudig mogelijk:<br> optellen & afrekken met twee variabelen	
    wims_rawmath_variables=$var1,$var2
    var3=2
    numbers=2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
    numbers=!shuffle $numbers
    !for p=1  to $options
	keuze=!randitem 1,2
	pm=!randitem +,-
	mp=!randitem +,-
	number1=!item $p of $numbers
	number2=!item $[$p + 1] of $numbers
	number3=!item $[$p + 2] of $numbers
	number4=!item $[$p + 3] of $numbers
	number5=!item $[$p + 4] of $numbers
	number6=!item $[$p + 5] of $numbers

	!if $keuze=1
	    var5=!append item $number1*$var1 $pm $number2*$var2 $mp $number3*$var2 $pm $number4*$var1 to $var5
	    inputtext$p=!htmlmath $number1*$var1 $pm $number2*$var2 $mp $number3*$var2 $pm $number4*$var1
	    answer=!exec pari $number1*$var1 $pm $number2*$var2 $mp $number3*$var2 $pm $number4*$var1
	!else
	    vraag=$number1*$var1^$number5 $pm $number2*$var2^$number6 $mp $number3*$var2^$number6 $pm $number4*$var1^$number5
	    var5=!append item $vraag to $var5
	    inputtext$p=!htmlmath $vraag 
	    answer=!exec pari $vraag
	!endif    
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath $answer
	textanswer=!append line  <td>$(inputtext$p) &nbsp;<font size="+1">=</font>&nbsp; $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table  width="100%" $paperbg cellpadding="10" border="1">$textanswer</table>
 !exit
!endif
!if $R>3
    #bolleboosjes
    text1=!record 4 of lang/remarks.$taal
    question$n=$text1
    #@ Schrijf zo eenvoudig mogelijk:<br>delen & vermenigvuldigen met &eacute;&eacute;n of twee variabele	
    numbers=2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
    numbers=!shuffle $numbers
    wims_rawmath_variables=$var1
    var3=1
    !for p=1 to $options
	number1=!item $p of $numbers
	number2=!item $[$p + 1] of $numbers
	number3=!item $[$p + 2] of $numbers
	number4=!item $[$p + 3] of $numbers
	var5=!append item $var1^$number1/$var1^$number4 to $var5
    	inputtext$p=!htmlmath $var1^$number1 : ($var1^$number4)
    	answer=!exec pari ($var1^$number1)/(($var1)^$number4)
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath $answer
	textanswer=!append line  <td>$(inputtext$p) &nbsp;<font size="+1">=</font>&nbsp; $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table width="100%" $paperbg cellpadding="10" border="1">$textanswer</table>
 !exit
!endif

