!set n=$teller
PLAATJE=0
!if $graad =0
    R=$teller
!else
    R=$graad
!endif        

#!if $variabelen=1
#    s=!randitem 1,2
#    Z$n=!item $s of p,y
#    Y$n=!item $s of i,z	
#    X$n=!item $s of d,x
#!else
    Z$n=p
    Y$n=I
    X$n=x
#!endif

reisbureau=!record 68 of lang/remarks.$taal
reisbureau=!randitem $reisbureau
reis=!record 69 of lang/remarks.$taal
reis=!randitem $reis
bestemming=!record 70 of lang/remarks.$taal
bestemming=!randitem $bestemming
buskosten=!record 71 of lang/remarks.$taal
buskosten=!randitem $buskosten
#reisbureau=!randitem toeristenorganistie,school,reisorganisatie,toeristen organisatie,leraren vakbond,leerlingen vakbond,voetbalvereniging,korfbalvereniging,kaartclub
#reis=!randitem reisje,reis,uitstapje,tripje,dagtripje,langweekend,meerdagen tripje,vakantie,studiereisje,studiereis
#bestemming=!randitem de Ardennen,de Veluwe,de waddenzee,Texel,Vlieland,Terschelling,de Zeeuwse kust,het Zwarte Woud,de Eifel,Parijs,London,Brussel
#buskosten=!randitem buskosten,treinkosten,vliegtuigkosten,transportkosten

q=!randint 100,300
m=!randint 150,500
m=$[$m/100]
a=!randint 100,250
a=$[10*$a]
b=!randint 15,75

formule1= $(Z$n) = $q - $m*$(X$n)
formule2= $(Y$n) = $(Z$n)*$(X$n)
f1=!htmlmath $formule1
f2=!htmlmath $formule2
nivo_title=!record 32 of lang/remarks.$taal

ttt=!record 72 of lang/remarks.$taal
somtekst$n=$ttt
    #Een $reisbureau organiseert een $reis naar $bestemming .<br>\
    #De prijs <em>$(Z$n)</em> per deelnemer is afhankelijk van het aantal deelnemers <em>$(X$n)</em> en kun je berekenen met de formule:\
    #<p align="center"><table cellpadding=15 border=1 bgcolor=white ><td><center>$f1</center> <br><em>$(Z$n)</em> in &euro;'s</td></table></p>
    !if $R=1
	!set tekst=!record 73 of lang/remarks.$taal
	opgave$n=$tekst
	
	#De inkomsten <em>$(Y$n)</em> ($reisbureau) uit een $reis zijn te berekenen met de formule:\
	#<p align="center"><table cellpadding=15 bgcolor=white border=1><td><center>$f2</center> <br><em>$(Y$n)</em> in &euro;'s </td></table></p>\
	#Druk <em>$(Y$n)</em> uit in <em>$(X$n)</em>.<br>\
	#<small><i>dus geef een formule met <em>$(Y$n)</em> als functie van <em>$(X$n)</em>.</i></small>
	
	bewerking=nivo/bewerking8.proc
	GOED$n=($q-$m*$(X$n))*$(X$n)
	goed$n= $(Y$n)=($q-$m*$(X$n))*$(X$n)
     !exit
    !endif
    !if $R=2
	Y$n=U
	!set tekst=!record 74 of lang/remarks.$taal
	opgave$n=$tekst
	
	#De uitgaven <em>$(Y$n)</em> (van de "$reisbureau") voor een $reis bestaan uit<br>\
	#<ul><li>$a &euro; $buskosten</li><li>$b &euro; extra onkosten per deelnemer</li></ul><br>\
	#Druk $(Y$n) uit in $(X$n) .<br>\
	#<small><i>dus geef een formule met <em>$(Y$n)</em> als functie van <em>$(X$n)</em>.</i></small>
	
	bewerking=nivo/bewerking8.proc
	GOED$n=$a + $b*$(X$n)
	goed$n= $(Y$n)=$a + $b*$(X$n)
     !exit
    !endif
    !if $R=3
	Y$n=W
	!set tekst=!record 75 of lang/remarks.$taal
	opgave$n=$tekst
	#De uitgaven <em>U</em> (van de "$reisbureau") voor een $reis bestaan uit<br>\
	#<ul><li>$a &euro; $buskosten</li><li>$b &euro; extra onkosten per deelnemer</li></ul><br>\
	#De winst <em>$(Y$n)</em> (van de "$reisbureau")  kun je berekenen door de <em>Uitgaven</em> van de <em>Inkomsten</em> af te trekken<br>\
	#Stel een formule op voor de winst <em>W</em>.<br><small>dus druk <em>W</em> uit in <em>$(X$n)</em></small>
	
	bewerking=nivo/bewerking8.proc
	GOED$n=!exec pari ($q-$m*$(X$n))*$(X$n) - ($a + $b*$(X$n))
	goed$n=$(Y$n)=$(GOED$n)
     !exit
    !endif
    !if $R>3
	Y$n=W
	h1=$empty
	h2=$empty
	GOED$n=$empty
	F=($q-$m*$(X$n))*$(X$n) - ($a + $b*$(X$n))
	#F=qx-mx^2 - a -bx
	#F=-mx^2 + (q-b)x-a
	#F'=-2mx + q-b =0 => q-b=2mx => x=(q-b)/2m
	max=!exec pari round(($q-$b)/(2*$m))
	tt=$[round((2*$max)/4)]
	!for p=1 to $[2*$max] step $tt
	    ant=!evalsubst $(X$n)=$p in $F
	    GOED$n=!append item $ant to $(GOED$n)
	    h1=!append line <td>$p</td> to $h1
	    !if $wims_user=supervisor
		h2=!append line <td><input size=8 name="ant$p" value="$ant"> to $h2
	    !endif
	!next p
	GOED$n=!append item $max to $(GOED$n)
	!if $bijles=1
	    helptip=!record 76 of lang/remarks.$taal
	    #<br><em>zie voor het berekenen van het maximum (de top van de parabool) de help-pagina van deze som</em>
	!else
	    helptip=<br>
	!endif
	!set tekst=!record 77 of lang/remarks.$taal
	opgave$n=$tekst
	#De uitgaven <em>U</em> (van de "$reisbureau") voor een $reis bestaan uit<br>\
	#<ul><li>$a &euro; $buskosten</li><li>$b &euro; extra onkosten per deelnemer</li></ul><br>\
	#De winst <em>$(Y$n)</em> (van de "$reisbureau")  kun je berekenen door de <em>Uitgaven</em> van de <em>Inkomsten</em> af te trekken<br>\
	#Stel voor jezelf een formule op voor de winst <em>W</em>.<br>En vul de tabel in aan de hand van je formule.<br>\
	#<table border=1 bgcolor=white><td>aantal deelnemers <em>$(X$n)</em></td>$h1<tr><td>winst <em>W</em> in &euro;'s</td>$h2</table><br>\
	#Bij welk aantal deelnemers is de winst maximaal. <em>(of natuurlijk het verlies minimaal...)</em>\
	#<br>Rond je antwoord af op hele mensen ;) $helptip
	
	bewerking=nivo/bewerking8.proc
     !exit
    !endif

