bewerking=bewerking1.proc
!readproc $authordir/afronding.$taal
!if $taal=nl
    nivo_title=Tabel en exponenti&euml;le groei
    somtekst=Vul de tabel in aan de hand van deze formule<br><small><font color=$fontcolor3><em>$AFRONDING</em></font></small><br>
    r=!randitem 1,2,3,4,5,6
    TIJD=!item $r of x,tijd,minuten,dagen,maanden,seconden
    H=!item $r of y,hoeveelheid,afstand,opbrengst,omzet,hoogte
!else
    nivo_title=Table and a function of growth
    somtekst=Fill in the table according to the given function<br><small><font color=$fontcolor3><em>$AFRONDING</em></font></small><br>
    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
!endif

!if $aantal_sommen < 4
    aantal_sommen=4
!endif
!if $graad=0
    graad=!randitem 1,2,3,4
!endif    
getal=!randint 5,200
p=!randint 80,220
!if $p=100
    p=120
!endif
p=$[$p/100]
F=$getal*$p^(x)

!if $graad = 1
    !for n=1 to $aantal_sommen
	getal$n=$[$n-1]
	pari_vraag=!append line round($afrondingsfactor*$getal*$p^($(getal$n)))/(1.0*$afrondingsfactor) to $pari_vraag
    !next n	
    pari_antwoord=!exec pari $pari_vraag
    !for n=1 to $aantal_sommen
	GOED$n=!line $n of $pari_antwoord
    !next n	    
    formule= \begin{bf} $H \end{bf} \,\, =\,\, $getal \cdot $p^{^{\begin{bf} $TIJD \end{bf} } }
 !goto APPLET
!endif

!if $graad = 2 
    r=!randitem 2,3,4
    !for n=1 to $aantal_sommen
	getal$n=$[$r*$n-$r]
	pari_vraag=!append line round($afrondingsfactor*$getal*$p^($(getal$n)))/(1.0*$afrondingsfactor) to $pari_vraag
    !next n	
    pari_antwoord=!exec pari $pari_vraag
    !for n=1 to $aantal_sommen
	GOED$n=!line $n of $pari_antwoord
    !next n	    
    formule= \begin{bf} $H \end{bf} \,\, =\,\, $getal \cdot $p^{^{\begin{bf} $TIJD \end{bf} } }
 !goto APPLET
!endif

!if $graad = 3
    r=!randitem 1,2,3,4
    q=!randitem -8,-7,-6,-5,-4,-3,-2
    !for n=1 to $aantal_sommen
	getal$n=$[$q+$r*($n-1)]
	pari_vraag=!append line round($afrondingsfactor*$getal*$p^($(getal$n)))/(1.0*$afrondingsfactor) to $pari_vraag
    !next n	
    pari_antwoord=!exec pari $pari_vraag
    !for n=1 to $aantal_sommen
        GOED$n=!line $n of $pari_antwoord
    !next n	    
    formule= \begin{bf} $H \end{bf} \,\, =\,\, $getal \cdot $p^{^{\begin{bf} $TIJD \end{bf} } }
 !goto APPLET
!endif

!if $graad >3
    t=!randitem 1/2,1/3,1/4,3/4,2/3,5/3,7/4,7/3,8/5,9/4,3/8,5/8,7/8,8/9
    !for n=1 to $aantal_sommen
	G=$[$n*$t]
	pari_vraag=!append line $n*$t to $pari_vraag
	pari_vraag=!append line round($afrondingsfactor*$getal*$p^($G))/(1.0*$afrondingsfactor) to $pari_vraag	
    !next n	
    pari_antwoord=!exec pari $pari_vraag
    s=1    
    !for n=1 to $aantal_sommen
	getal$n=!line $s of $pari_antwoord
	GOED$n=!line $[$s+1] of $pari_antwoord
	s=$[$s+2]  
    !next n	    
    TIJD=x
    H=y
    !if $taal=nl
	somtekst=Vul de tabel in aan de hand van deze formule<br><small><em>$AFRONDING</em></small><br>
    !else
	somtekst=fill in the table according to the formula<br><small><em>$AFRONDING</em></small><br>
    !endif
    formule= \begin{bf} $H \end{bf} \,\, =\,\, $getal \cdot $p^{\begin{bf} $TIJD \end{bf}} 
!endif

:APPLET
applet=<applet codebase="$appletdir" archive="jcm1.0-config.jar" code="SimpleGraph.class" width="640" height="480">\
    <param name="UseFunctionInput" value="no">\
    <param name="CanvasColor" value="255 255 224">\
    <param name="PanelBackground" value="255 255 224">\
    <param name="BackgroundColor" value="255 255 224">\
    <param name="UseGrid" value="yes">\
    <param name="Function" value="$F">\
    <param name="GraphColor" value="red">\
    <param name="UsePanner" value="yes">\
    <param name="UseZoomButtons" value="yes">\
    <param name="UseMouseZoom" value="yes">\
    <param name="UseLimitsPanel" value="yes">\
    <param name="Limits" value="-20 20 -20 20">\
    <param name="Xlabel" value="$TIJD (de x-as)">\
    <param name="Ylabel" value="$H (de y-as)">\
    $geenjava</applet>

teller=$aantal_sommen