# maak een boxplot : DHTML
n=$counter
!if $level=0
    R=$counter
!else
    R=$level
!endif
javascript=js/exo16.js
checkfile=exos/checkfile16.proc
mathview=0
showmath=0
math=0
questiontype=7
helptext=$empty
image=1
draw=1
XSIZE=500
YSIZE=100
delta=2
vline=$empty
hline=$empty
vtext=$empty
!if exam isin $session
    sometext=$empty
!else
    sometext=!record 67 of lang/remarks.$taal
!endif
!if $R=1
    getal=!randitem 40,50,60
    xmin=!randint 1,$getal
    xmin=4
    xmin=10*(floor($xmin/10))
    d1=!randint 1,$getal
    d2=!randint 1,$getal
    d3=!randint 1,$getal
    d4=!randint 1,$getal
    d5=!randint 1,$getal
    d6=!randint 1,$getal
    x1=!randint $xmin,$d1
    x2=$[$x1+$d2]
    x3=$[$x2+$d3]
    x4=$[$x3+$d4]
    x5=$[$x4+$d5]
    xmax=$[$x5+$d6]
    xmax=$[10*(ceil($xmax/10))]
    step1=$[10*(round(($xmax-$xmin)/100))]
    step2=$[round($step1/2)]
    step3=$[round($step1/10)]
    spreidingsbreedte=$[$x5-$x1]
    answer$n=$x1,$x2,$x3,$x4,$x5
    var1=$[$xmin-$delta]
    var2=$[$xmax+$delta]
    !for p=$xmin to $xmax step $step3
	vline=!append line line $p,0,$p,1.5,orange to $vline
    !next p
    !for p=$xmin to $xmax step $step2
	vline=!append line line $p,0,$p,2,green to $vline
    !next p
    !for p=$xmin to $xmax step $step1
	vline=!append line line $p,0,$p,3,blue to $vline
	vtext=!append line text black,$[$p-1.5],-0.5,huge,$p to $vtext
    !next p
    image$n=transparent white\
    xrange=$xmin-$delta,$xmax+$delta\
    yrange=-1,3\
    $vline\
    $vtext
    
    var3=linewidth 6\
    line $x1,2,$x2,2,black\
    line $x4,2,$x5,2,black\
    line $x1,1,$x1,3,black\
    line $x5,1,$x5,3,black\
    frect $x2,1,$x3,3,blue\
    frect $x3,1,$x4,3,red

    rr=!record 64 of lang/remarks.$taal
    #@<ol><li>Q1=$x2</li><li>mediaan=$x3</li><li>Q3=$x4</li><li>spreidingsbreedte=$spreidingsbreedte</li><li>beginwaarde=$x1</li></ol>
    textanswer$n=$rr

    ss=!record 63 of lang/remarks.$taal
    #@Maak een boxplot van de onderstaande gegevens:$(textanswer$n)<a onmouseover="return escape('<img src=$module_dir/gifs/help/boxplot.gif>')"><font color=blue>kijk hier</font></a> voor de gebruiksaanwijzing...<br> 
    question$n=$ss <br>$sometext
!endif

!if $R>1
    xmin=0
    xmax=!randint 10,15
    #minuten
    g0=1
    gmax=25
    som=0
    header=!record 65 of lang/remarks.$taal
    #@tijd (min),aantal gesprekken
    header1=!item 1 of $header
    header2=!item 2 of $header
    !for p=$xmin to $xmax
	!if $p=0
	    g=0
	!else
	    g=!randint $g0,$gmax
	!endif
	tabel1=!append line <td>$p</td> to $tabel1
	tabel2=!append line <td>$g</td> to $tabel2
	som=$[$som+$g]
	gt=!append item $g to $gt
	#2,2,3,5,12,3....
	vline=!append line line $p,0,$p,3,blue to $vline
	!for s=1 to 4
	    r=$[$s/5]
	    vline=!append line line $p+$r,0,$p+$r,1,orange to $vline	
	!next s
	vtext=!append line text black,$p,0,huge,$p to $vtext
    !next p
    m1=$[$som/4]
    m2=$[$som/2]
    m3=$[3*$som/4]
    tot=0
    !for p=$xmin to $xmax
	g=!item $p of $gt
	tot=$[$tot+$g]
	!if $m1>=$tot
	    Q1=$[$p+1]
	!endif
	!if $m2>=$tot
	    Q2=$[$p+1]
	!endif
	!if $m3>=$tot
	    Q3=$[$p+1]
	!endif
    !next p
    answer$n=$xmin,$Q1,$Q2,$Q3,$xmax

    var1=$xmin
    var2=$xmax
    ss=!record 66 of lang/remarks.$taal
    #@We bekijken een telefoonrekening...<br>Hier onder staat de tabel van het aantal gesprekken uitgezet<br>tegen de lengte van het telefoongesprek (in minuten)<p><center><table $paperbg border="1" cellpadding="5"><th>$header1</th>$tabel1<tr><th>$header2</th>$tabel2</table><p>"Teken" de bijhorende boxplot.<a onmouseover="return escape('<img src=$module_dir/gifs/help/boxplot.gif>')"><font color=blue>kijk hier</font></a> voor de gebruiksaanwijzing...<br>
    question$n=$ss <br>$sometext

    image$n=transparent white\
    xrange=$xmin,$xmax+0.25\
    yrange=-1,3\
    $vline\
    $vtext\
    text black,5,-0.35,huge,min.\
    arrow 2,-0.7,4.5,-0.7,15,black
    
    
    var3=linewidth 6\
    line $xmin,2,$Q1,2,black\
    line $Q3,2,$xmax,2,black\
    line $xmin,1,$xmin,3,black\
    line $xmax,1,$xmax,3,black\
    frect $Q1,1,$Q2,3,blue\
    frect $Q2,1,$Q3,3,red

    textanswer$n=<ol><li>Q1=$Q1</li><li>Q2=$Q2</li><li>Q3=$Q3</li></ol>
!endif


exotext=<center><form name="myform">\
<img name="B1" src="$module_dir/gifs/boxplot/l.gif">\
<img name="B2" src="$module_dir/gifs/boxplot/L.gif">\
<img name="B3" src="$module_dir/gifs/boxplot/R.gif">\
<img name="B4" src="$module_dir/gifs/boxplot/r.gif">\
</form></center>

dhtml=<script type="text/javascript">SET_DHTML( CURSOR_MOVE , RESIZABLE , "B1" + HORIZONTAL, "B2" + HORIZONTAL , "B3" + HORIZONTAL , "B4" + HORIZONTAL );</script>
