n=$counter
approx=<img src=$module_dir/gifs/approx.gif>
!if $rounding<1
    rounding=100
!endif
!readproc $remarkdir/rounding.$taal
R=$level
!if $level =0
    #doorlopen van makkelijk naar moeilijk
    R=$n
!endif    

dingen=!record 17 of lang/remarks.$taal
#@ zalm:Noordse fjorden,zeehonden:Waddenzee,kabeljauw:Atlantische Oceaan,platvis:Noordzee,dolfijnen:Stille Zuidzee,kokkels:Waddenzee,paling:Sargasso Zee,forel:de Rijn
tijden1=!record 18 of lang/remarks.$taal
#@ jaar:maand:1:12,maand:jaar:12:1,jaar:kwartaal:1:4,kwartaal:jaar:4:1,week:dag:1:7,dag:week:7:1
tijden2=!record 19 of lang/remarks.$taal
#@ uur:minuut:1:60,minuut:uur:60:1,minuut:seconde:1:60,seconde:minuut:60:1,uur:kwartier:1:4,kwartier:uur:4:1,kwartier:minuut:1:15,minuut:kwartier:15:1
bacterie=!record 30 of lang/remarks.$taal
#@ schimmel,gist,streptokokken,salmonella bacteri&euml;n

dingen=!shuffle $dingen 
tijden1=!shuffle $tijden1     
tijden2=!shuffle $tijden2
ding=!item $n of $dingen
ding=!replace internal : by , in $ding
beest=!item 1 of $ding
zee=!item 2 of $ding
keuze=!randitem 1,0
    
!if $R=1
    p=!randint 10,200
    p=$[$p/10]
    !if $keuze=1
	answer$n=$[(100+$p)/100]
	rr=!record 20 of lang/remarks.$taal
	#@ De groeifactor is dan <b>(100 + $p)/100 = $(answer$n)</b>
	ss=!record 21 of lang/remarks.$taal
	#@ De hoeveelheid $beest in de $zee neemt elk jaar met <b>$p</b> % toe.<br>Bepaal de <b>groeifactor</b> bij deze toename. 
    !else
	answer$n=$[(100-$p)/100]
	rr=!record 22 of lang/remarks.$taal
	#@ De <b>groeifactor</b> is dan <b>(100 - $p)/100 = $(answer$n)</b>
	ss=!record 23 of lang/remarks.$taal
	#@ De hoeveelheid $beest in de $zee neemt elk jaar met <b>$p</b> % af.<br>Bepaal de <b>groeifactor</b> bij deze afname. 
    !endif
    textanswer$n=$rr
    question$n=$ss
    # geen percentage maar een getal
    checkfile=$checkdir/number.proc
 !exit
!endif
    
!if $R=2
    p=!randint 10,200
    p=$[$p/10]
    !if $keuze=1
	factor=$[(100+$p)/100]
	answer$n=$p
	rr=!record 24 of lang/remarks.$taal
	#@ Het <b>groeipercentage</b> is <b>($factor - 1)&times;100 % = $(answer$n) %</b>
	ss=!record 25 of lang/remarks.$taal
	#@ De hoeveelheid $beest in de $zee neemt exponentieel toe.<br>De <b>groeifactor</b> per jaar bij deze toename is <b>$factor</b>. <br>Bepaal het hierbij horende <b>groeipercentage</b>.  
    !else
	factor=$[(100-$p)/100]
	answer$n=$p
	rr=!record 26 of lang/remarks.$taal
	#@ Het <b>groeipercentage</b> is <b>(1 - $factor)&times;100 % = $(answer$n) %</b>
	ss=!record 27 of lang/remarks.$taal
	#@ De hoeveelheid $beest in de $zee neemt exponentieel af.<br>De <b>groeifactor</b> per jaar bij deze afname is <b>$factor</b>.<br>Bepaal het hierbij horende <b>afname percentage</b> . 
    !endif
        
    # wel een percentage 
    checkfile=exos/checkfile1.proc
    textanswer$n=$rr
    question$n=$ss
 !exit
!endif
    
!if $R=3
    !if $keuze=1
	p=!randint 50,200
	!if $p=100
	    p=75
	!endif
	p=$[$p/100]
	tijd=!item $n of $tijden1
	tijd=!replace internal : by , in $tijd
	T1=!item 1 of $tijd
	T2=!item 2 of $tijd
	f1=!item 3 of $tijd
	f2=!item 4 of $tijd
	!if $f2=1
	    factor=$f1
	!else
	    factor=$f1/$f2
	!endif
	!if $p>1
	    ss=!record 28 of lang/remarks.$taal
	    #@ Een populatie $beest groeit exponentieel.<br> We weten dat de <b>groeifactor</b><b> $p </b> per <b> $T1 </b>  is<br>Reken deze factor om naar een <b>groeifactor</b> per <b> $T2 </b>
	!else
	    ss=!record 29 of lang/remarks.$taal
	    #@ Een populatie $beest krimpt exponentieel. We weten dat de <b>groeifactor</b> <b> $p </b> per <b> $T1 </b> is<br>Reken deze factor om naar een <b>groeifactor</b> per <b>$T2</b>
	!endif
    !else
	bacterie=!randitem $bacterie
	p=!randint 90,115
	!if $p=100
	    p=95
	!endif
	p=$[$p/100]
	tijd=!item $n of $tijden2
	tijd=!replace internal : by , in $tijd
	T1=!item 1 of $tijd
	T2=!item 2 of $tijd
	f1=!item 3 of $tijd
	f2=!item 4 of $tijd
	!if $f2=1
	    factor=$f1
	!else
	    factor=$f1/$f2
	!endif
	!if $p>1
	    ss=!record 31 of lang/remarks.$taal
	    #@ Op een agar-agar voedingsbodem groeit een hoeveelheid $bacterie exponentieel.<br>De <b>groeifactor</b> per <b>$T1</b> is <b>$p</b><br>Reken deze factor om naar een <b>groeifactor</b> per <b>$T2</b>
	!else
	    ss=!record 32 of lang/remarks.$taal
	    #@ Een desinfectiemiddel zorgt voor een exponenti&euml;le daling van een hoeveelheid $bacterie .<br>De <b>groeifactor</b> per <b>$T1</b> is <b>$p</b><br>Reken deze factor om naar een <b>groeifactor</b> per <b>$T2</b>		
	!endif
    !endif
    answer$n=$[(round($rounding*$p^($factor)))/$rounding]
    rr=!record 33 of lang/remarks.$taal
    #@ $p is de <b>groeifactor</b> per $T1 <br>De verhouding tussen een<b> $T1 </b> en een <b> $T2 </b> is <b> $f1:$f2 </b><br>Dus is de <b>groeifactor</b> per $T2 <b> $p<sup> $factor </sup> $approx  $(answer$n) </b>
    textanswer$n=$rr
    question$n=$ss
    # geen percentage maar een getal
    checkfile=$checkdir/number.proc
 !exit
!endif
    
!if $R>3
    var$n=0
    !if $keuze=1
	p=!randint 50,200
	!if $p=100
	    p=75
	!endif
	p=$[$p/100]
	tijd=!item $n of $tijden1
	tijd=!replace internal : by , in $tijd
	T1=!item 1 of $tijd
	T2=!item 2 of $tijd
	f1=!item 3 of $tijd
	f2=!item 4 of $tijd
	!if $f2=1
	    factor=$f1
	!else
	    factor=$f1/$f2
	!endif
	!if $p>1
	    answer$n=$[(round($rounding*(100*($p^($factor)-1))))/$rounding]
	    ss=!record 34 of lang/remarks.$taal
	    #@ Een populatie $beest groeit exponentieel.<br>We weten dat de <b>groeifactor</b> per <b>$T1</b> <b>$p</b> is<br>Bereken hoeveel <b>procent</b> deze populatie $beest per <b>$T2</b> toeneemt.
	    rr=!record 35 of lang/remarks.$taal
	    #@ $p is de <b>groeifactor</b> per $T1 <br>De verhouding tussen een<b> $T1 </b> en een <b> $T2 </b> is <b> $f1:$f2 </b><br>Dus is de <b>groeifactor</b> per $T2 <b> $p<sup> $factor </sup> = $[$p^($factor)] </b><br>Dus <b> 100&times; ( $[$p^($factor)] - 1 ) % $approx $(answer$n) % </b>
	!else
	    answer$n=$[(round($rounding*(100*(1- $p^($factor)))))/$rounding]
	    ss=!record 36 of lang/remarks.$taal
	    #@ Een populatie $beest krimpt exponentieel.<br>We weten dat de <b>groeifactor</b> per <b>$T1</b> <b>$p</b> is<br>Bereken hoeveel <b>procent</b> deze populatie $beest per <b>$T2</b> afneemt.
	    rr=!record 37 of lang/remarks.$taal
	    #@ $p is de <b>groeifactor</b> per $T1 <br>De verhouding tussen een<b> $T1 </b> en een <b> $T2 </b> is <b> $f1:$f2 </b><br>Dus is de <b>groeifactor</b> per $T2 <b> $p<sup> $factor </sup> = $[$p^($factor)] </b><br>Dus <b> 100&times; ( 1 - $[$p^($factor)]  ) % $approx $(answer$n) % </b>
	!endif
	# een getal geen percentage
	checkfile=$checkdir/number.proc
    !else
	bacterie=!randitem $bacterie
	p=!randint 90,115
	!if $p=100
	    p=95
	!endif
	p=$[$p/100]
	tijd=!item $n of $tijden2
	tijd=!replace internal : by , in $tijd
	T1=!item 1 of $tijd
	T2=!item 2 of $tijd
	f1=!item 3 of $tijd
	f2=!item 4 of $tijd
	!if $f2=1
	    factor=$f1
	!else
	    factor=$f1/$f2
	!endif
	!if $p>1
	    answer$n=$[(round($rounding*(100*($p^($factor)-1))))/$rounding]
	    rr=!record 38 of lang/remarks.$taal
	    #@ $p is de <b>groeifactor</b> per $T1 <br>De verhouding tussen een<b> $T1 </b> en een <b> $T2 </b> is <b> $f1:$f2 </b><br>Dus is de <b>groeifactor</b> per $T2 <b> $p<sup> $factor </sup> = $[$p^($factor)] </b><br>Dus <b> 100&times; ( $[$p^($factor)] - 1 ) % $approx $(answer$n) % </b>
	    ss=!record 39 of lang/remarks.$taal
	    #@ Op een agar-agar voedingsbodem groeit een hoeveelheid $bacterie exponentieel.<br>De <b>groeifactor</b> per <b>$T1</b> is <b>$p</b><br>Bereken hoeveel <b>procent</b> deze hoeveelheid $bacterie per <b>$T2</b> toeneemt.
	!else
	    answer$n=$[(round($rounding*(100*(1- $p^($factor)))))/$rounding]
	    rr=!record 40 of lang/remarks.$taal
	    #@ $p is de <b>groeifactor</b> per $T1 <br>De verhouding tussen een<b> $T1 </b> en een <b> $T2 </b> is <b> $f1:$f2 </b><br>Dus is de <b>groeifactor</b> per $T2 <b> $p<sup> $factor </sup> = $[$p^($factor)] </b><br>Dus <b>100&times; ( 1 - $[$p^($factor)]  ) % $approx $(answer$n) % </b>
	    ss=!record 41 of lang/remarks.$taal
	    #@ Een desinfectiemiddel zorgt voor een exponenti&euml;le daling van een hoeveelheid $bacterie .<br>De <b>groeifactor</b> per <b>$T1</b> is <b>$p</b><br>Bereken hoeveel <b>procent</b> deze hoeveelheid $bacterie per <b>$T2</b> afneemt
	!endif
	# een percentage
	checkfile=exos/checkfile1.proc
    !endif
    question$n=$ss
    textanswer$n=$rr
 !exit
!endif
