!set n=$teller
bewerking=bewerking1.proc
!if $nivo=7
    nivo_title=Klassemiddens en gemiddelden en tabel
!else
    nivo_title=Klassemiddens en gemiddelden en histogram
!endif
wims_read_parm=$empty
gemiddelde$n=$empty
som=0
deler=0
aantal_vragen=2
fruit=!randitem appels,peren,handperen,goudreinetten,notarisappels,aardappels,komkommers,perziken,grapefruit,sinaasappels,bananen,druivetrossen
klassen=!randitem 6,7,8,9,10
klassebreedte=!randitem 4,5,6,7,8
min=!randint 60,120
maxhoogte=!randint 75,155
data$n=$empty
data=$empty
meting$n=$empty
meting=$empty
HTEXT=$empty
RECT=$empty
RECT2=$empty
meting=$empty

!for p=1 to $klassen
    r=!randint 70,100
    r=$[$r/100]
    L$p=$[$min + ($p-1)*$klassebreedte]
    R$p=$[$min + $p*$klassebreedte - 1]
    hoogte$p=$[$r*$maxhoogte*sin(pi*$p/$klassen)] 
    totaal=$[$totaal + $(hoogte$p)]
    KM$p=$[($(L$p)+$(R$p))/2]
!next p
h=1
KT=0
tp=0
!for p=1 to $[$klassen-1]
    percent$p=$[(round(1000*$(hoogte$p)/$totaal))/10]
    !if $p=$[$klassen-1]
	percent$p=$[100-$tp]
    !endif	
    tp=$[$(percent$p)+$tp]
    KT=$[$KT + $(KM$p)*$(percent$p)/100] 
    data=!append line <td>$(KM$p)</td><td>$(percent$p)</td><tr> to $data
    meting=!append line <td>$(L$p) - $(R$p)</td><td>$(percent$p)</td><tr> to $meting
    HTEXT=!append line text black,$[$p-0.8],$[0.75*$(hoogte$p)],normal,$(percent$p) % to $HTEXT
    !if $h=1
	HTEXT=!append line text black,$[$p-0.8],-2,normal,$(L$p)-$(R$p) to $HTEXT
	h=0
    !else
	HTEXT=!append line text black,$[$p-0.8],-5,normal,$(L$p)-$(R$p) to $HTEXT   
	h=1
    !endif	
!next p
GOED1$n=$KT
!for p=1 to $[$klassen-1]
    SD=$[($(percent$p)/100)*($(KM$p)-$KT)^2 + $SD]
!next p

GOED2$n=$[sqrt($SD)]
data$n=<table border="1" cellpadding="5"><th>Klasse middens (gram)</th><th>Percentage $fruit</th><tr>$data</table>
meting$n=<table border="1" cellpadding="5"><th>Klassen (gram)</th><th>Percentage $fruit</th><tr>$meting</table>

!for p=1 to $[$klassen-1]
    RECT=!append line rect $[$p-1],0,$p,$(hoogte$p),black to $RECT   
    RECT2=!append line frect $[$p-1],0,$p,$(hoogte$p),orange to $RECT2
!next p

plaatje$n=400,400\
transparent $white\
xrange -1,$klassen\
yrange -20,$[$maxhoogte+10]\
linewidth 3\
$RECT2\
$RECT\
$HTEXT\
rect -1,-20,$klassen,$[$maxhoogte+10],black

goed1$n=Het klassemidden is dus $(GOED1$n).
goed2$n=De standaardafwijking $m_sigma is $(GOED2$n)
