n=$counter
XSIZE=600
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
questiontype=7
inputs=1
image=0
math=0
checkfile=exos/checkfile3.proc
!if $level=0
    R=$counter
!else
    R=$level
!endif
javascript=js/exo3.js
sometext=!record 33 of lang/remarks.$taal
!if $R=1
    helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/help/exo3.jpg>')"> $sometext </a>
    # enkele tree
    options=!randitem 2,3,4,5,6
    g=0,1,2,3,4,5,6,7,8,9
    k=!randint 1,5
    getallen=$empty
    sum=0
    tick=0
    !for p=1 to $options
	oranje=!append item $k to $oranje
	tree=!append line  <th bgcolor=orange>$k</th> to $tree
	S=!randint 1,7
	gt=$empty
	!for s=1 to $S
	    g1=!randitem $g
	    gt=!append item $g1 to $gt
	!next s 
	gt=!sort numeric item $gt
	!for s=1 to $S
	    d=!item $s of $gt
	    tree=!append line <td bgcolor=lightgreen>$d</td> to $tree
	    getallen=!append item $[$k*10 + $d] to $getallen
	    sum=$[$sum + $k*10 + $d]
	    !increase tick 
	!next s
	tree=!append line <tr> to $tree
	!increase k
    !next p
    half=$[ceil($tick/4)]
    !for p=1 to $tick
	g=!item $p of $getallen
	!increase c
	answertabel=!append line <th>$g</th> to $answertabel
	!if $wims_user=supervisor
	    inputtabel=!append line <th><input size=3 name="$p" align="center" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000" value="$g"></th> to $inputtabel
	!else
	    inputtabel=!append line <th><input size=3 name="$p" align="center" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000" ></th> to $inputtabel
	!endif
	!if $c=$half
	    tabel=!append line <tr> to $tabel
	    answertabel=!append line <tr> to $answertabel
	    inputtabel=!append line <tr> to $inputtabel
	    c=0
	!endif
    !next p
    options=$tick
    tree=<table $paperbg border="1" cellpadding="6">$tree</table>
    textanswer$n=<table $paperbg border="1" cellpadding="4"><th><table border=1>$answertabel</table></th><th><table><th>$tree</th></table></table>
    inputtabel=<table $paperbg border="1">$inputtabel</table>

    answer$n=$getallen
    
    ss=!record 34 of lang/remarks.$taal
    question$n=$ss
    
    #@Maak van het onderstaande <em>steelblad diagram</em> een tabel met getallen.<br>In de oranje "stam" staan de tientallen.<br>In de "groene bladeren" de eenheden.<br><br><font color=green><small><em>Niet vergeten:<br>voor een goed cijfer moet je de getallen in de goede volgorde zetten.<br>Van links naar rechts, van boven naar beneden<br>en van klein naar groot</em></small></font>
     exotext=<center><table><th valign="top"><table><th align="center">$tree</th><th><form name="myform1" action=""></th><th valign="top">$inputtabel</center></form></th></th></table></table>
 !exit
!endif

!if $R=2
    helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/help/exo3b.jpg>')"> $sometext </a>
    options=!randitem 4,5,6,7,8
    g=0,1,2,3,4,5,6,7,8,9
    k=!randint 1,8
    getallen=$empty
    sum=0
    tick=0
    !for p=1 to $options
	oranje=!append item $k to $oranje
	tree=!append line  <th bgcolor=orange>$k</th> to $tree
	S=!randint 1,7
	gt=$empty
	!for s=1 to $S
	    g1=!randitem $g
	    gt=!append item $g1 to $gt
	!next s 
	gt=!sort numeric item $gt
	!for s=1 to $S
	    d=!item $s of $gt
	    tree=!append line <td bgcolor=lightgreen>$d</td> to $tree
	    getallen=!append item $[$k*10 + $d] to $getallen
	    sum=$[$sum + $k*10 + $d]
	    !increase tick 
	!next s
	tree=!append line <tr> to $tree
	!increase k
    !next p
    max=!item -1 of $getallen
    min=!item  1 of $getallen
    mean=$[(round(100*$sum/$tick))/100]
    options=5
    answer$n=$max,$min,$tick,$sum,$mean
    ss=!record 35 of lang/remarks.$taal
    question$n=$ss
    #@Bekijk het onderstaande steelblad diagram.<br>En vul de vragen in.<br>In de oranje "stam" staan de tientallen.<br>In de "groene bladeren" de eenheden.<br>
    
    rr=!record 36 of lang/remarks.$taal
    textanswer$n=$rr
    #@<table><th valign="top"><table $paperbg border="1" cellpadding="6">$tree</table></th><th valign="top"><table $paperbg border="1" cellpadding="6"><td>1.</td><td>Wat is het grootste getal ?</td><td> $max</td><tr><td>2.</td><td>Wat is het kleinste getal ?</td><td>$min</td><tr><td>3.</td><td>Hoeveel getallen staan er ?</td><td>$tick</td><tr><td>4.</td><td>Wat is de som van alle getallen ?</td><td>$sum</td><tr><td>5.</td><td>En wat is het gemiddelde ?</td><td>$mean</td></table></th></table>

    vv=!record 37 of lang/remarks.$taal
    exotext=$vv
    #@<table><th><table $paperbg border="1" cellpadding="6">$tree</table></th><th><table><form name="myform1" action=""><td>1.</td><td>Wat is het grootste getal ?</td><td><input size="5" name="1" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>2.</td><td>Wat is het kleinste getal ?</td><td><input size="5" name="2" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>3.</td><td>Hoeveel getallen staan er ?</td><td><input size="5" name="3" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>4.</td><td>Wat is de som van alle getallen ?</td><td><input size="5" name="4" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>5.</td><td>En wat is het gemiddelde ?<br>rond af op 2 decimalen</td><td><input size="5" name="5" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td></table></form></th></table>
 !exit
!endif

!if $R>2
    # dubbele tree
    helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/help/exo3c.jpg>')"> $sometext </a>
    options=!randitem 4,5,6,7,8
    g=0,1,2,3,4,5,6,7,8,9
    k=!randint 1,8
    getallen1=$empty
    getallen2=$empty
    sum1=0
    sum2=0
    tick1=0
    tick2=0
    tree=$empty
    options=4
    !for p=1 to $options
	oranje=!append item $k to $oranje
	center=<td bgcolor=orange>$k</td>
	#links
	S=!randint 1,7
	gl=$empty
	!for s=1 to $S
	    g1=!randitem $g
	    gl=!append item $g1 to $gl
	!next s 
	gl=!sort numeric reverse item $gl
	!for s=$S to 10
	    links=!append line <td></td> to $links
	!next s
	!for s=1 to $S
	    d=!item $s of $gl
	    links=!append line <td bgcolor=lightgreen>$d</td> to $links
	    getallen1=!append item $[$k*10 + $d] to $getallen1
	    sum1=$[$sum1 + $k*10 + $d]
	    !increase tick1 
	!next s
	# voor symmetrie: center in't midden
	#rechts
	S=!randint 1,7
	gr=$empty
	!for s=1 to $S
	    g1=!randitem $g
	    gr=!append item $g1 to $gr
	!next s 
	gr=!sort numeric item $gr
	!for s=1 to $S
	    d=!item $s of $gr
	    rechts=!append line <td bgcolor=lightgreen>$d</td> to $rechts
	    getallen2=!append item $[$k*10 + $d] to $getallen2
	    sum2=$[$sum2 + $k*10 + $d]
	    !increase tick2 
	!next s
	# voor symmetrie: center in't midden
	!for s=$S to 10
	    rechts=!append line <td></td> to $rechts
	!next s
	tree=!append line $links $center $rechts<tr> to $tree
	center=$empty
	links=$empty
	rechts=$empty
	!increase k
    !next p
    getallen1=!sort numeric item $getallen1
    max1=!item -1 of $getallen1
    min1=!item 1 of $getallen1
    mean1=$[(round(100*$sum1/$tick1))/100]
    max2=!item -1 of $getallen2
    min2=!item 1 of $getallen2
    mean2=$[(round(100*$sum2/$tick2))/100]

    answer$n=$max1,$max2,$min1,$min2,$tick1,$tick2,$sum1,$sum2,$mean1,$mean2
    options=10
    ss=!record 38 of lang/remarks.$taal
    question$n=$ss
    #@Bekijk het onderstaande dubbele steelblad diagram.<br>En vul de velden in...<br>In de oranje "stam" staan de tientallen.<br>In de "groene bladeren" de eenheden.<br>\
    
    rr=!record 38 of lang/remarks.$taal
    textanswer$n=$rr
    #@<table $paperbg><th><table width=100%><th><font size=+2>A</font></th><th></th><th><font size=+2>B</font></th></table><table  border="1" cellpadding="6">$tree</table></th><th><table><td>1.</td><td>Wat is het grootste getal van A ?</td><td>$max1</td><tr><td>2.</td><td>Wat is het grootste getal van B ?</td><td>$max2</td><tr><td>3.</td><td>Wat is het kleinste getal van A?</td><td>$min1</td><tr><td>4.</td><td>Wat is het kleinste getal van B?</td><td>$min2</td><tr><td>5.</td><td>Hoeveel getallen staan er aan kant A ?</td><td>$tick1<td><tr><td>6.</td><td>Hoeveel getallen staan er aan kant B?</td><td>$tick2</td><tr><td>7.</td><td>Wat is de som van de getallen aan kant A?</td><td>$sum1</td><tr><td>8.</td><td>Wat is de som van de getallen aan kant B?</td><td>$sum2</td><tr><td>9.</td><td>En wat is het gemiddelde voor A ?</td><td>$mean1</td><tr><td>10.</td><td>En wat is het gemiddelde voor B ?</td><td>$mean2</td></table></th></table>
    
    vv=!record 40 of lang/remarks.$taal
    exotext=$vv
    
    #@<table><th><table width=100%><th>A</th><th></th><th>B</th></table><table $paperbg border="1" cellpadding="6">$tree</table></th><th><form name="myform1" action=""><table><td>1.</td><td>Wat is het grootste getal van A ?</td><td><input size="5" name="1" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>2.</td><td>Wat is het grootste getal van B ?</td><td><input size="5" name="2" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>3.</td><td>Wat is het kleinste getal van A?</td><td><input size="5" name="3" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>4.</td><td>Wat is het kleinste getal van B?</td><td><input size="5" name="4" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>5.</td><td>Hoeveel getallen staan er aan kant A ?</td><td><input size="5" name="5" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>6.</td><td>Hoeveel getallen staan er aan kant B?</td><td><input size="5" name="6" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>7.</td><td>Wat is de som van de getallen aan kant A?</td><td><input size="5" name="7" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>8.</td><td>Wat is de som van de getallen aan kant B?</td><td><input size="5" name="8" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>9.</td><td>En wat is het gemiddelde voor A ?</td><td><input size="5" name="9" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>10.</td><td>En wat is het gemiddelde voor B ?<br>rond af op twee decimalen</td><td><input size="5" name="10" value="" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td></table></form></th></table>
 !exit
!endif
