!set n=$teller
!if $printbaar >0
    white=magenta
!else
    white=white    
!endif    
!if $graad=0	
    aantal_vragen=5
!else
    aantal_vragen=3
!endif
bewerking=bewerking1.proc
wims_read_parm=$empty
som=0
data=$empty
GRID=$empty
HTEXT=$empty
nivo_title=De Boxplot
# maxcounter=aantal leerlingen
maxcounter=!randint 7,18
maxcounter=$[$maxcounter*2]
D=1,2,2,3,3,4,4,4,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9,10
!for s=1 to 10
    freq$s=0
!next s    
!for p=1 to $maxcounter
    cijfer$p=!randitem $D
    !for s=1 to 10
	!if $(cijfer$p)=$s
	    freq$s=$[$(freq$s)+1]
	!endif    
    !next s
    wims_read_parm=!append item $(cijfer$p) to $wims_read_parm
    som=$[$som + $(cijfer$p)]
!next p    


wims_read_parm=!sort numeric list of $wims_read_parm
!if $[gcd($maxcounter,2)]=2
    even=1
    # mediaan
    # !readproc slib/stat/median $wims_read_parm 
    # GOED3$n=$slib_out
    m1=!item $[0.5*$maxcounter] of $wims_read_parm
    m2=!item $[0.5*$maxcounter+1] of $wims_read_parm
    mediaan=$[($m2+$m1)/2]
    
    !if $[gcd((0.5*$maxcounter),2)]=2
        w1=$[0.25*$maxcounter]
	w11=$[0.25*$maxcounter+1]
	w3=$[0.75*$maxcounter]
	w33=$[0.75*$maxcounter+1]
	q1=!item $w1 of $wims_read_parm
	q11=!item $w11 of $wims_read_parm
	q3=!item $w3 of $wims_read_parm
	q33=!item $w33 of $wims_read_parm
    !else
	w1=$[0.25*$maxcounter+0.5]
	w3=$[0.75*$maxcounter+0.5]
	w33=$w3
	q1=!item $w1 of $wims_read_parm
	q11=$q1
    	q3=!item $w3 of $wims_read_parm
	q33=$q3    
    !endif
!else
    even=0
    # mediaan
    # !readproc slib/stat/median $wims_read_parm 
    # GOED3$n=$slib_out
    mediaan=!item $[($maxcounter+1)/2] of $wims_read_parm
    $[gcd((0.5*($maxcounter-1)),2)]
    !if $[gcd((0.5*($maxcounter-1)),2)]=2
	w1=$[0.25*$maxcounter - 0.25]
	w11=$[0.25*$maxcounter + 0.75]
	w3=$[0.75*$maxcounter + 0.25]
	w33=$[0.75*$maxcounter + 1.25]
	q1=!item $w1 of $wims_read_parm
	q11=!item $w11 of $wims_read_parm
	q3=!item $w3 of $wims_read_parm
	q33=!item $w33 of $wims_read_parm
    !else
	w1=$[0.25*$maxcounter+0.25]
	w3=$[0.75*$maxcounter+0.75]
	w33=$w3
	q1=!item $w1 of $wims_read_parm
	q11=$q1
	q3=!item $w3 of $wims_read_parm	
	q33=$q3
    !endif
!endif

    
Q1=$[($q1+$q11)/2]
Q3=$[($q3+$q33)/2]

$wims_read_parm
max=!item -1 of $wims_read_parm
min=!item 1 of $wims_read_parm
!for p=1 to 10
    GRID=!append line line $p,-0.5,$p,1,black to $GRID
    GRID=!append line dline $p,1,$p,10,black to $GRID
    GRID=!append line line $[$p-0.5],0,$[$p-0.5],0.5,red to $GRID
    data=!append line <tr><th>$p</th><th>$(freq$p)</th> to $data
    HTEXT=!append line text black,$[$p-0.1],-1.5,huge,$p to $HTEXT
!next p
data$n=<table border=1 cellpadding="4"><th>Proefwerk cijfer</th><th>frequentie</th>$data</table>

plaatje$n=transparent $white\
xrange -1,11\
yrange -4,10\
line -1,0,11,0,black\
frect $Q1,5,$mediaan,9,red\
frect $mediaan,5,$Q3,9,blue\
$GRID\
arrow 2,-1,6,-1,20,black\
linewidth 4\
line $min,4.5,$min,9.5,red \
line $min,7,$Q1,7,red\
line $Q3,7,$max,7,blue\
line $max,4.5,$max,9.5,blue\
$HTEXT\
text  black,6,-0.65,huge,cijfers

GOED1$n=$mediaan
GOED2$n=$[$Q3 - $Q1]
GOED3$n=$[$max-$min]
GOED4$n=$maxcounter
GOED5$n=$[$som/$maxcounter]
goed1$n=De mediaan $m_mu is $mediaan
goed2$n=De kwartielafstand $Q3 - $Q1 = $(GOED2$n)
goed3$n=De spreidingsbreedte is $max -$min = $(GOED3$n)
goed4$n=je kunt het aantal leerlingen alleen aflezen uit de bijhorende tabel<br>\
en dat waren er $maxcounter 
goed5$n=Het gemiddelde cijder voor dit proefwerk was dus de som van alle cijfers<br>\
gedeeld door het totale aantal leerlingen ->  $som/$maxcounter = $(GOED5$n)
