bewerking=bewerking3.proc
n=$teller
!if $taal=nl
    nivo_title=Klik op het juiste plaatje van enn groeifunctie.
    r=!randitem 1,2,3,4,5,6
    TIJD=!item $r of x,tijd,minuut,dag,maand,seconde
    H=!item $r of y,hoeveelheid,afstand,opbrengst,omzet,hoogte 
    somtekst=Zoek het goede plaatje bij de volgende exponenti&euml;le functie.
!else
    nivo_title=Click on the correct graph of a "growth-function"
    r=!randitem 1,2,3,4,5,6
    TIJD=!item $r of x,time,minutes,days,month,seconds
    H=!item $r of y,amount,distance,revenue,turnover,height
    somtekst=Click on the image corresponding to the function
!endif

# $aantal_sommen zijn aantal plaatjes...
!if $aantal_vragen >2
    aantal_vragen=4
!else
    aantal_vragen=2
!endif        
    
GOED$n=!randint 1,$aantal_vragen
afrondingsfactor=100
XRANGE=-2,12
YRANGE=-2,12
XSCHAAL=1
YSCHAAL=1
transparent=RRR
!readproc $authordir/ruitjespapier.proc

P=!shuffle 0.2,0.4,0.6,0.8,1.1,1.3,1.5,1.7,1.9
A=!shuffle 2,3,4,5,6,7,8,9
!if $graad=1 or $graad=2
    !for s=1 to $aantal_vragen
	a=!item $s of $A
	p=!item $s of $P
	F=$a*$p^x
	plaatje$s=$ruitjespapier\
	curve red,$F\
	textup black,-1,7,huge,$H\
	text black,5,-0.3,huge,$TIJD
	!if $s=$(GOED$n)
	    opgave$n= \begin{bf} $H \end{bf} \,\, =\,\, $a \cdot $p^{^{\begin{bf} $TIJD \end{bf}}}
	    goedeplaatje$n=$(plaatje$s)	
	!endif
    !next s
 !exit
!else 
    a=!randitem $A
    !for s=1 to $aantal_vragen
	p=!item $s of $P
	F=$a*$p^x
	plaatje$s=$ruitjespapier\
	curve red,$F\
	textup black,-1,7,huge,$H\
	text black,5,-0.3,huge,$TIJD
	!if $s=$(GOED$n)
	    opgave$n= \begin{bf} $H \end{bf} \,\, =\,\, $a \cdot $p^{^{\begin{bf} $TIJD \end{bf}}}	
	    goedeplaatje$n=$(plaatje$s)	
	!endif
    !next s
 !exit
!endif

