#alleen optellen en aftrekken machten zonder voorvoegsels
n=$counter
XSIZE=600
wims_print_precision=8
wims_compare_precision=16
rounding=-1
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
questiontype=7
inputs=1
image=0
math=0
checkfile=exos/checkfile1.proc
javascript=js/exo1.js
data=exos/prefixes
maxpref=16
#max=!recordcnt $prefixes
!if $options<3
    options=4
!endif
!if $level=0
    R=$counter
!else
    R=$level
!endif

exotext=$empty
!for p=1 to $options
    eenheid=!randitem meter,sec.,Ohm,Coulomb,Joule,Newton,Watt,kg
    op=!randitem +,-
    va=!randint 1,$[$maxpref-$R]
    vb=!randint $va,$[$va + $R]
    # :18 , 10<sup><small> 18</small></sup>  , 10^18 , exa , E 
    v1=!record $va of $data
    v2=!record $vb of $data
    pp1=!item 1 of $v1
    ph1=!item 2 of $v1
    p1=!item 3 of $v1
    pp2=!item 1 of $v2
    ph2=!item 2 of $v2
    p2=!item 3 of $v2
    ph1=!htmlmath $ph1
    ph2=!htmlmath $ph2    
    getal1=!randint 1,9
    getal2=!randint 1,9
    getal1=$getal1 .
    getal2=$getal2 .
    !for s=2 to $[$R+1]
	a=!randint 0,9
	b=!randint 0,9
	getal1=!append word $a to $getal1
	getal2=!append word $b to $getal2
    !next s
    getal1=!nospace $getal1
    getal2=!nospace $getal2
    !if $getal1<$getal2
	g=$getal2
	getal2=$getal1
	getal1=$g
    !endif
    !if $pp1>=$pp2
	ant1=$[$getal1 $op $getal2*10^($pp2-$pp1)]
	t=$[floor(log($ant1)/(log(10)))]
    !else
	ant1=$[$getal2 $op $getal1*10^($pp1-$pp2)]
	t=$[floor(log(abs($ant1))/(log(10)))]
    !endif
    ant=$[$ant1/(10^$t)]*10^$[$pp1+$t]
    answer$n=!append item $ant to $(answer$n) 
    !if $wims_user=supervisor
	input=<input size="15" name="$p" align="center" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000" value="$ant">
    !else
	input=<input size="15" name="$p" align="center" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000" value="">
    !endif
    ans1=$getal1*$ph1 $eenheid  
    ans2=$getal2*$ph2 $eenheid
    ans1=!htmlmath $ans1
    ans2=!htmlmath $ans2
    antok=!htmlmath $ant
    ans=<td halign="left">$ans1</td><td halign="center"><font size=+1><b>$op</b></font></td><td halign="right">$ans2</td><td><font size=+1><b>=</b></font></td><td>$input $eenheid</td><tr>
    ansok=<td>$ans1</td><td><font size=+1><b>$op</b></font></td><td>$ans2</td><td><font size=+1><b>=</b></font></td><td>$antok $eenheid</td><tr>
    exotext=!append line $ $ans $ to $exotext
    answertext=!append line $ $ansok $ to $answertext
!next p
textanswer$n=<table $paperbg border="1" cellpadding="4"><th><table cellpadding="4"> $answertext </table></th></table>
inputtabel=<table $paperbg border="1">$inputtabel</table>
exotext=<center><form name="myform1" action=""><table border="1" cellpadding="5" $paperbg><th><table cellpadding="8"> $exotext </table></th></table></form></center>
ss=!record 5 of lang/remarks.$taal
!if exam notin $session
    question$n=<a onmouseover="return escape('<img src=$module_dir/gifs/exo7.jpg alt=hmm>')"> $ss </a>
!else
    question$n=$ss 
!endif
!exit


