# Lees een turftabel
n=$counter
!if $level=0
    R=$counter
!else
    R=$level
!endif
javascript=js/exo13.js
checkfile=exos/checkfile13.proc
mathview=0
showmath=0
math=0
questiontype=7
image=0
draw=0
XSIZE=500
YSIZE=100
R=1
!if $R=1
    options=!randitem 4,5,6
    vijf=<img src=$module_dir/gifs/turven/5.gif>
    vier=<img src=$module_dir/gifs/turven/4.gif>
    drie=<img src=$module_dir/gifs/turven/3.gif>
    twee=<img src=$module_dir/gifs/turven/2.gif>
    een=<img src=$module_dir/gifs/turven/1.gif>
    is=<img src=$module_dir/gifs/turven/is.gif>
    lijst=$een,$twee,$drie,$vier
    turftabel=<table border="0">
    getallen=$empty
    extratext=$empty
    exotext=$empty
    min=5
    max=50
    !for p=1 to $[$options+10]
	a=!randint $min,$max
	getallen=!append item $a to $getallen
    !next p
    getallen=!listuniq $getallen
    t=!randitem 24,25,26
    vervoer=!record $t of lang/remarks.$taal
    dingen=!shuffle $vervoer
    max=0
    min=100
    maxding=$empty
    minding=$empty
    A=$empty
    var1=$empty
    !for p=1 to $options
	a=!item $p of $getallen
	ding=!item $p of $dingen
	var1=!append item ' $ding ' to $var1
	!if $a>$max
	    max=$a
	    maxding=$p
	    maxvervoer=$ding
	!endif
	!if $a<$min
	    min=$a
	    minding=$p
	    minvervoer=$ding
	!endif
	answer$n=!append item $a to $(answer$n)
	r=$[floor($a/5)]
	rr=$[$a - ($r*5)]
	!if $a>4
	    !for s=1 to $r
		A=!append line $vijf to $A
	    !next s
	    !if $rr !=0
		t=!item $rr of $lijst
		A=!append line $t to $A    
	    !endif
	!else
	    A=!item $a of $lijst
	!endif
	turftabel=!append line <td><font size=+2><em>$ding</em></font></td><td>$A</td><td>$is</td><td><input value="" name="in$p" id="in$p" size="10"  style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr> to $turftabel
	A=$empty
    !next p
    # pas op: var1 -> javascript array !!!!
    var1=[ $var1 ]
    textanswer$n=<table border="1" cellpadding="5">
    !for p=1 to $options
	a=!item $p of $(answer$n)
	modus=$empty
	!if $p=$maxding
	    kleur=lightgreen
	    modus=(MODUS)
	!else
	    !if $p=$minding
		kleur=red
	    !else
		kleur=white
	    !endif
	!endif
	ding=!item $p of $dingen
	textanswer$n=!append line <td bgcolor=$kleur>$ding $modus</td><td  bgcolor=$kleur>$a</td><tr> to $(textanswer$n) 
    !next p
    textanswer$n=$(textanswer$n)</table>
    rr=!record 69 of lang/remarks.$taal
    #@<table><td>Welk vervoermiddel is de <em>modus</em> van deze rij waarnemingen ?</td><td><input name="in$[$options+1]" id="in$[$options+1]" size="20"  style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr><td>En welk vervoermiddel kwam het minst vaak voorbij?</td><td><input name="in$[$options+2]" id="in$[$options+2]" size="20"  style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td></table>

    extrainfo=$rr
    answer$n=$(answer$n),$maxvervoer,$minvervoer
    
    ss=!record 68 of lang/remarks.$taal
    #@Leerlingen hebben een dag lang, bij een kruispunt zitten turven...<br>Hieronder staan de resultaten<br>Zet de turftabel om in een <em>frequentietabel</em><br>En beantwoord de vragen.
    question$n=$ss
    vv=<form name=myform1>$turftabel</table><br>$extrainfo</form>
    exotext=$vv
!endif

