n=$counter
XSIZE=500
image=0
cols=25
rows=1
math=0
# geen wiskunde in antwoord
questiontype=0
checkfile=exos/checkfile1.proc
question$n=!record 6 of lang/remarks.$taal
sometext=!record 29 of lang/remarks.$taal
helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/exo12.jpg>')">$sometext</a>
!if $level=0
    R=$counter
!else
    R=$level
!endif
!if $options<2 or $options>10
    options=5 
!endif
inputs=$options
textanswer=$empty
textanswer=$empty
#LETTERLIJK CHECK VERVALT DOOR CHECK OP HAAKJES
# var1 = letter1                                                                                               
# var2 = letter2                                                                                               
# var3 = varcount  varcnt
# var4 = letterlijk
# var5 = controle
var1=!randitem x,t,a
var2=!randitem m,r,y,p
var4=0
var6=1
var7=0


!if $R=1
    wims_rawmath_variables=$var1
    var3=1
    numbers=2,3,4,5,6,7,8
    numbers=!shuffle $numbers
    
    !for p=1 to $options
	keuze=!randitem 1,2,3
        number1=!item $p of $numbers
        number2=!item $[$p + 1] of $numbers
        number3=!item $[$p + 2] of $numbers
	number4=!randitem 2,3,4,5
        mp=!randitem +,-
        pm=!randitem +,-
	!if $keuze=1
	    vraag=($var1^$number4 $pm $number1)*($var1^$number4 $mp $number2)
	!endif
	!if $keuze=2
	    vraag=($number3*$var1^$number4 $pm $number1)*($var1^$number4 $mp $number2)
	!endif
	!if $keuze=3
	    vraag=($var1 $pm $number1)*($number2 $mp $var1^$number4)
	!endif
	var5=!append item $vraag to $var5
	inputtext$p=!htmlmath $vraag
	answer=!exec pari $vraag
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath $answer
	textanswer=!append line <td>$(inputtext$p) <font size="+1">=</font> $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table border="1"   width="100%" $paperbg cellpadding="10">$textanswer</table>
 !exit
!endif

!if $R=2
    wims_rawmath_variables=$var1,$var2
    var3=2
    numbers=2,3,4,5,6,7
    numbers=!shuffle $numbers
    
    !for p=1 to $options
	keuze=!randitem 1,2,3
        number1=!item $p of $numbers
        number2=!item $[$p + 1] of $numbers
        mp=!randitem +,-
        pm=!randitem +,-
	!if $keuze=1
	    vraag=($var1 $pm $var2)*($var1 $mp $number2*$var2)
	!endif
	!if $keuze=2
	    vraag=(-$var1 $pm $var2)*($number1*$var2 $mp $var1)
	!endif
	!if $keuze=3
	    number3=!randitem 2,3,4
	    vraag=($number3*$var1 $pm $var2)*($var2 $mp $var1)
	!endif
	var5=!append item $vraag to $var5
	inputtext$p=!htmlmath $vraag
	answer=!exec pari $vraag
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath $answer
	textanswer=!append line <td>$(inputtext$p) <font size="+1">=</font> $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table border="1"   width="100%" $paperbg cellpadding="10">$textanswer</table>
 !exit
!endif

!if $R=3
    wims_rawmath_variables=$var1
    var3=1
    numbers=2,3,4,5,6,7,8,9,10
    numbers=!shuffle $numbers
    
    !for p=1 to $options
	keuze=!randitem 1,2,3
        number1=!item $p of $numbers
        number2=!item $[$p + 1] of $numbers
        number3=!item $[$p + 2] of $numbers
        mp=!randitem +,-
        pm=!randitem +,-
        ppm=!randitem +,-
	!if $keuze=1
	    vraag=$number3 $ppm ($var1 $pm $number1)*($var1 $mp $number2)
	!endif
	!if $keuze=2
	    vraag=$number3*$var1 $ppm ($var1 $pm $number1)*($number2 $mp $var1)
	!endif
	!if $keuze=3
	    number4=!randitem 2,3,4
	    vraag=($number4*$var1 $pm $number1)*($number2 $mp $var1) $ppm $number3*$var1
	!endif
	var5=!append item $vraag to $var5
	inputtext$p=!htmlmath $vraag
	answer=!exec pari $vraag
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath $answer
	textanswer=!append line <td>$(inputtext$p) <font size="+1">=</font> $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table border="1"   width="100%" $paperbg cellpadding="10">$textanswer</table>
 !exit
!endif

!if $R>3
    getal=!randitem -2,-3,2,3
    numbers=2,3,4,5,6,7,8,9
    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
	wims_rawmath_variables=$var1
	var3=1
	!if $keuze=1
	    vraag=$var1*($var1 $pm $number1)*($var1 $mp $number2)
	!else
	    vraag=$getal*$var1*($number1 $pm $var1)*($number2 $mp $var1)
	!endif
	var5=!append item $vraag to $var5
    	inputtext$p=!htmlmath $vraag
    	answer=!exec pari $vraag
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath  $answer
	textanswer=!append line  <td>$(inputtext$p) <font size="+1">=</font> $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table border="1"   width="100%" $paperbg cellpadding="10">$textanswer</table>
 !exit
!endif


