!set n=$teller
aantal_vragen=3
bewerking=bewerking1.proc
wims_read_parm=$empty
nivo_title=Het gemiddelde
bandje=!randitem Beatles,Gun'n Roses,Neil Young,\
Nick Cave & the Bad Seeds,U2,Shakira,\
Normaal,Marco Bossato,The Fall,The Cramps,Johnny Cash

jongens=0
meisjes=0
Jtotaal=$empty
Mtabel=$empty
Jtabel=$empty
hoofd=$empty
start=!randint 10,15
tot=!randint 5,10
eind=$[$start + $tot]
hoofd=<th>Aantal CD's</th>
Jtabel=<td>Aantal Jongens</td>
Mtabel=<td>Aantal Meisjes</td>
D= 0,1,2,3,4,5,2,3,4,1,2
!for p=$start to $eind
    jongens$p=!randitem $D
    meisjes$p=!randitem $D
    jongens=$[$jongens + $(jongens$p)]
    meisjes=$[$meisjes + $(meisjes$p)]
    Jtotaal=$[$p*$(jongens$p) + $Jtotaal]
    Mtotaal=$[$p*$(meisjes$p) + $Mtotaal]
    hoofd=!append line <th>$p</th> to $hoofd
    Jtabel=!append line <td>$(jongens$p)</td> to $Jtabel
    Mtabel=!append line <td>$(meisjes$p)</td> to $Mtabel
!next p

data$n=<table border="1" cellpadding="6">$hoofd<tr>$Jtabel<tr>$Mtabel</table>
leden=$[$jongens+$meisjes]

GOED1$n=$[$Jtotaal/$jongens]
GOED2$n=$[$Mtotaal/$meisjes]
GOED3$n=$[($Mtotaal + $Jtotaal)/($jongens + $meisjes)]
goed1$n=Het gemiddelde aantal CD's per jongen is $(GOED1$n)
goed2$n=Het gemiddelde aantal CD's per meisje is $(GOED2$n)
goed3$n=Het gemiddelde aantal CD's per lid van de fanclub is dus $(GOED3$n)
somtekst$n=De fanclub van $bandje heeft $leden leden<br>\
$jongens jongens en $meisjes meisjes.<br>\
In de onderstaande tabel zie je hoeveel CD's ze van hun idool hebben<br>


!if $graad=0
    aantal_vragen=4
    extra=!randint 10,20
    Mextra=!randint 100,200
    Mextra=$[$Mextra/10]
    
    meting$n=De club organiseert een speciale leden werfactie<br>\
    Er melden zich $extra jongens met gemiddeld $Mextra CD's als nieuw lid.<br>\
    Hoe groot wordt nu het gemiddelde aantal CD's per fanclublid ? 
    GOED4$n=$[($extra*$Mextra + $Mtotaal + $Jtotaal)/($extra + $meisjes + $jongens)]
    goed4$n=Het gemiddelde aantal CD's per lid word nu:<br>\
     <small><b>(</b> $extra nieuwe_leden &times; $Mextra extra_CD's_gemiddeld  \
     + ($Mtotaal CD's_totaal_meisjes) + ($Jtotaal CD's_totaal_jongens)<b>)</b>\
     <font size="+1"> &divide;</font> <b>(</b> $extra nieuwe_leden  + $meisjes meisjes + $jongens jongens<b>)</b></small> = $(GOED4$n)
!endif




