n=$teller
bewerking=bewerking3.proc
keuze=!randitem 3,2,1,1,2,3
!if $keuze=1
    klein=!randitem klein,piep klein,heel klein,weekend,avonduren,vakantie
    baan=!randitem schappenvuller,krantenbezorger,vakkenvuller,winkelbediende,magazijnbediende,tankstation hulpje
    constante=!randint 25,175
    rc=!randint 100,300
    rc=$[$rc/10]
    opgave$n=Je hebt een $klein baantje als $baan .<br>\
    Het basissalaris is $constante &euro; per maand.<br>\
    Het boven op dit basissalaris krijg je een bonus afhankelijk van je werkervaring.<br>\
    Elk jaar dat je hebt gewerkt als $baan , wordt de bonus verhoogt met $rc &euro;.<br>\
    als je pas begint is de bonus natuurlijk 0 &euro;<br>\
    Stel een vergelijking op (maak een formule) van je:<br>\
    <tt>salaris</tt> in euro's  als functie van het aantal dienst<tt>jaren</tt><br>\
    <small>gebruik de termen <tt>salaris</tt> en <tt>jaren</tt></small>
    argument=salaris
    varlist=jaren
    GOED$n=$rc*jaren + $constante
    somtekst$n= <tt><b>$argument = $rc*$varlist + $constante</b></tt>
    functie$n=$rc*x+$constante
    Ym=$[10*(ceil((10*$rc + $constante)/10))]
    XRANGE=-1:10
    yt=$[round($Ym/10)]
    YRANGE=-$yt:$Ym
    tics=xtics 0,1,10;0,$yt,$Ym;
    ins_attr=ismap
    insplot_set=border ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid ; xlabel "$varlist" ; ylabel "$argument" ; $tics
    plotsettings$n=$insplot_set
    plaatje$n=[$XRANGE] [$YRANGE] $(functie$n) notitle
 !exit
!endif
!if $keuze=2 
    werken=!randitem inpakker@ingepakte doos,schilder@geschilderd kozijn,\
    helpdeskmedewerker@geholpen klant,vrachtwagen chauffeur@afgeleverde vrachtje
    werk=!replace internal @ by , in $werken
    baan=!item 1 of $werk
    ding=!item 2 of $werk
    constante=!randint 1000,1500
    rc=!randint 11,55
    rc=$[$rc/10]
    opgave$n=Je hebt een akkoordloon baan als $baan .<br>\
    Het basissalaris is $constante &euro; per maand.<br>\
    Het bovenop dit basissalaris krijg je een prestatie afhankelijke premie.<br>\
    Per $ding krijg je een toeslag van $rc &euro;
    Maak een formule van je <tt>salaris</tt>:<br>
    Dus het <tt>salaris</tt> in euro's als functie van de <tt>prestatie</tt><br>\
    <small>gebruik de termen <tt>salaris</tt> en <tt>prestatie</tt></small>
    argument=salaris
    varlist=prestatie
    GOED$n=$rc*$varlist + $constante
    somtekst$n= <tt><b>$argument = $rc*$varlist + $constante</b></tt>
    functie$n=$rc*x+$constante
    Ym=$[200+10*(ceil((10*$rc + $constante)/10))]
    XRANGE=-1:10
    yt=$[round($Ym/10)]
    YRANGE=-$yt:$Ym
    tics=xtics 0,1,10;0,$yt,$Ym;
    ins_attr=ismap
    insplot_set=border ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid ; xlabel "$varlist" ; ylabel "$argument" ; $tics
    plotsettings$n=$insplot_set
    plaatje$n=[$XRANGE] [$YRANGE] $(functie$n) notitle
 !exit
!endif

!if $keuze=3
    ditjaar=!date +%Y
    beginjaar=$[2005-10]
    omzet1=!randint 1,99
    omzet2=!randint 1,99
    aantaljaren=!randitem 6,8,10,12
    !if $omzet1=$omzet2
	omzet2=$[$omzet2+5]
    !endif	
    !if $omzet2 > $omzet1
	toegenomen=toegenomen
    !else
	toegenomen=afgenomen
    !endif
    rc=!exec pari ($omzet2 - $omzet1)/$aantaljaren	
    
    opgave$n=Een beursgenoteerd bedrijf brengt elk jaar de bedrijfsresultaten naar buiten.<br>\
    In deze jaarcijfers staat, dat in de afgelopen $aantaljaren jaren , de omzet rechtlijnig is $toegenomen.<br>\
    De omzet dit jaar ($ditjaar) bedroeg $omzet2 miljoen &euro;.<br>\
    De omzet in $beginjaar bedroeg $omzet1 miljoen &euro;.<br>\
    Maak een formule die <tt>omzet</tt> van dit bedrijf per jaar beschrijft :<br>\
    Dus de <tt>omzet</tt> in miljoenen euro's als functie van de variable <tt>jaar</tt><br>\
    <small>gebruik de termen <tt>omzet</tt> en <tt>jaar</tt></small>
    argument=omzet
    varlist=jaar
    GOED$n=($rc)*$varlist + $omzet1
    somtekst$n= <tt><b>$argument = $rc*$varlist + $omzet1</b></tt>
    functie$n=x*$rc+$omzet1
    Ym=$[200+10*(ceil((10*$rc + $omzet1)/10))]
    XRANGE=-1:$aantaljaren
    yt=$[round($Ym/10)]
    YRANGE=-$yt:$Ym
    tics=xtics 0,1,10;0,$yt,$Ym;
    ins_attr=ismap
    insplot_set=border ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid ; xlabel "$varlist" ; ylabel "$argument miljoen euro" ; $tics
    plotsettings$n=$insplot_set
    plaatje$n=[$XRANGE] [$YRANGE] $(functie$n) notitle
 !exit
!endif
