n=$teller
bewerking=bewerking4.proc
r=!randitem 1,2,3,4

!if $taal=nl
    nivo_title=Geef de groeiformule.
    dingen=!shuffle zalm:Noordse fjorden,zeehonden:Waddenzee,kabeljauw:Atlantische Oceaan,platvis:Noordzee,dolfijnen:Stille Zuidzee,kokkels:Waddenzee,paling:Sargasso Zee,forel:de Rijn
    TIJD=!item $r of tijd,dagen,weken,maanden
    H=!item $r of hoeveelheid,vangst,opbrengst,tonnage
    ding=!randitem $dingen
    ding=!replace internal : by , in $ding
    beest=!item 1 of $ding
    zee=!item 2 of $ding
    keuze=!randitem 1,0
    getal=!randint 5,200
    somtekst$n=Voor een milieu onderzoek wordt de -in testnetten gevangen<br>\
     hoeveelheid- $beest in de $zee nauwlettend gevolgd<br>\
    en staat in de onderstaande tabel ingevuld.<br>\
    Er is sprake van een exponti&euml;el verband.<br>\
    Geef de formule die hoort bij de tabel.<br>\
    <p><small><em>geen zorgen: deze gegevens zijn gruwelijk uit m'n duim gezogen...</em></small>
!else
    nivo_title=Determine the "growth formula"
    dingen=!shuffle salmon:Nordic Fjords,seals:Dutch Wadden,cod:Atlantic Ocean,flatfish:North Sea,eel:Sargasso Sea,dolphins:Indian Ocean
    TIJD=!item $r of time,days,weeks,month
    H=!item $r of amount,fish,catch,tons
    ding=!randitem $dingen
    ding=!replace internal : by , in $ding
    beest=!item 1 of $ding
    zee=!item 2 of $ding
    keuze=!randitem 1,0
    getal=!randint 5,200
    somtekst$n=During a scientific test, the quantity of $beest in the $zee , caught in fishing nets, is monitored accurately<br>\
    and is shown in the table below.<br>\
    the relation is exponential.<br>\
    Give the formula of the Growth formula.<br>\
    <p><small><em>don't worry: all given data are made up... ;)</em></small>

!endif

#we geven 1 tabel met $aantal_sommen kolommen...
afrondingsfactor=10
p=!randint 5,15
!if $p=10
    p=11
!endif
p=$[$p/10]
A=!randint 10,200
GOED$n= $H=$A*$p^$TIJD
goed$n= $[$A*$p]

!if $graad=0
    R=$teller
!else
    R=$graad
!endif    

!if $R=1
    B=0,1,2,3,4,5,6,7,8,9,10
!endif
!if $R=2 
    B=1,2,3,4,5,6,7,8,9,10,11,12
!endif
!if $R=3
    B1=2,3,4,5,6,7
    B2=1,2,3,4,5,6
    B3=3,4,5,6,7,8
    B4=4,5,6,7,8,9
    B5=5,6,7,8,9,10
    t=!randitem 1,2,3,4,5
    B=$(B$t)
!endif
!if $R>3
    B1=2,4,6,8,10,12
    B2=-5,-2,1,4,7,10
    B3=1,3,5,7,9,11,13
    B4=-7,-5,-3,-1,1,3
    t=!randitem 1,2,3,4
    B=$(B$t)
!endif

!for s=1 to $aantal_vragen
    :KLAAR
    b=!item $s of $B 
    lijst1=!append line <td>$b</td> to $lijst1
    c=$[$A*$p^($b)]
    lijst2=!append line <td>$c</td> to $lijst2
!next s
    
opgave$n=<table width="80%" border="1" cellpadding="10"><td>$TIJD</td>$lijst1<tr><td>$H</td>$lijst2</table>
