# maak dubbel steelbladdiagram
n=$counter
XSIZE=600
# geeft een <tr> aan tabel...
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
questiontype=7
inputs=1
image=0
cols=30
rows=1
math=0
!if $level=0
    R=$counter
!else
    R=$level
!endif
sometext=!record 33 of lang/remarks.$taal
!if $R>0
    XSIZE=600
    # dubbel steelblad diagram,
    checkfile=exos/checkfile4b.proc
    javascript=js/exo4b.js
    options=!randitem 8,12
    m1=!randitem 10,20,30,40,50
    m2=!randitem 10,20,30,40
    m2=$[$m1+$m2]
    basis=10
    break=$[$round($options/2)]
    k=0
    vraagtabel1=<table cellpadding="10" border="1" $paperbg>
    vraagtabel2=<table cellpadding="10" border="1" $paperbg>
    getallen1=$empty
    getallen2=$empty    
    !for p=1 to $options
	g1=!randint $m1,$m2
	g2=!randint $m1,$m2
	getallen1=!append item $g1 to $getallen1
	getallen2=!append item $g2 to $getallen2
	vraagtabel1=!append line <th>$g1</th> to $vraagtabel1
	vraagtabel2=!append line <th>$g2</th> to $vraagtabel2
	!increase k
	!if $k=$break
	    k=0
	    vraagtabel1=!append line <tr> to $vraagtabel1
	    vraagtabel2=!append line <tr> to $vraagtabel2
	!endif
    !next p
    vraagtabel1=!append line </table> to $vraagtabel1
    vraagtabel2=!append line </table> to $vraagtabel2
    getallen1=!sort numeric item $getallen1
    getallen2=!sort numeric item $getallen2
    antwoordtabel=<table cellpadding="5" border=1 $paperbg><th>L</th><th></th><th>R</th><tr>
    !for check=0 to 9
	links=$empty
	rechts=$empty
	!for p=1 to $options
	    g1=!item $[$options-$p+1] of $getallen1
	    g2=!item $p of $getallen2
	    d1=$[floor($g1/$basis)]
	    d2=$[floor($g2/$basis)]
	    !if $d1=$check
		r1=$[$g1%$basis]
		links=!append line $r1 to $links
	    !endif
	    !if $d2=$check
		r2=$[$g2%$basis]
		rechts=!append line $r2 to $rechts
	    !endif
	!next p
	!if $links!=$empty or $rechts!=$empty
	    links=!sort reverse numeric line of $links
	    antwoordtabel=!append line <td align=right>$links</td><td bgcolor="orange">$check</td><td>$rechts</td><tr> to $antwoordtabel
	!endif
    !next check
    antwoordtabel=!append line </table> to $antwoordtabel
    sorteertabel=$empty
    !for p=1 to $options
	g2=!item $p of $getallen2
	sorteertabel2=!append line <th>$g2</th> to $sorteertabel2
	g1=!item $p of $getallen1
	sorteertabel1=!append line <th>$g1</th> to $sorteertabel1
    !next p
    sorteertabel=<table cellpadding="10" border="1" $paperbg><th>L</th>$sorteertabel1<tr><th>R</th>$sorteertabel2</table>
    inputtabel1=<table cellpadding="1">
    !for p=1 to $[(round(($m2-$m1))/10)+2]
	inputtabel1=!append line <td><input size="30" name="l$p" id=l$p" style="text-align:right;font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><td><input size="2" name="m$p" id="m$p" style="text-align:center;font-size:18px;background-color:orange;border:1px solid #ff0000"></td><td><input size="30" name="r$p" id=r$p" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr> to $inputtabel1
    !next p
    inputtabel1=!append line </table> to $inputtabel1
    question$n=!record 44 of lang/remarks.$taal
    #@Maak van de onderstaande tabel met getallen een <em>steelblad diagram</em><br><em><small>Gebruik bijvoorbeeld spaties op de "bladeren" te scheiden</small>
    exotext=<table><th align="center"><table><th valign="top">L<br>$vraagtabel1</th><th width="10" bgcolor="orange"></th><th valign="top">R<br>$vraagtabel2</th></table></th><tr><td valign="top"><form name="myform1">$inputtabel1</form></td></table>
    textanswer$n=<table><th valign="top">$sorteertabel</th><tr><th valign="top">$antwoordtabel</th></table>
    helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/help/exo4b.jpg>')"> $sometext </a>
    answer$n=!append line $getallen2 to $getallen1
 !exit
!endif

