bewerking=bewerking3.proc
bewegen=1
n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif        
min=5
max=10
adressen=!randint $min,$max
goedewoorden=min,minuten,minutes,minute

getallenA=$empty
getallenB=$empty
LIJN_A=$empty
LIJN_B=$empty
HLINE=$empty
VTEXT=$empty
VLINE=$empty
HTEXT=$empty
tabel=$empty
antwoordtabel=$empty
jongen_sneller=$empty
meisje_sneller=$empty

!for p=1 to 20
     getalA=!randint 5,55
     getallenA=!append item $getalA to $getallenA
     getalB=!randint 5,55
     getallenB=!append item $getalB to $getallenB
!next p

getallenA=!listuniq $getallenA
getallenB=!listuniq $getallenB

getallenA=!item 1 to $adressen of $getallenA
getallenB=!item 1 to $adressen of $getallenB


getallenA=!sort numeric item  $getallenA
Amax=!item -1 of $getallenA

getallenB=!sort numeric item  $getallenB
Bmax=!item -1 of $getallenB

!if $Amax > $Bmax
    ymax=$Amax
!else
    ymax=$Bmax    
!endif
delta=$[0.08*$ymax/$adressen]
#MEISJE = A
!for p=1 to $adressen
    A1=!item $[$p-1] of $getallenA
    A2=!item $p of $getallenA
    LIJN_A=!append line line $[$p-1],$A1,$p,$A2,red to $LIJN_A
    HLINE=!append line dline 0,$A1,$[$adressen+1],$A1,blue to $HLINE
    HLINE=!append line dline 0,$A2,$[$adressen+1],$A2,blue to $HLINE
    VTEXT=!append line text black,-0.5,$A1+$delta,normal,$A1 to $VTEXT
    VTEXT=!append line text black,-0.5,$A2+$delta,normal,$A2 to $VTEXT
    VLINE=!append line dline $p,0,$p,$[$ymax+1],blue to $VLINE
    HTEXT=!append line text black,$[0.1+$p],-0.3,normal,$p to $HTEXT
!next p
#JONGEN = B
!for p=1 to $adressen
    B1=!item $[$p-1] of $getallenB
    B2=!item $p of $getallenB
    LIJN_B=!append line line $[$p-1],$B1,$p,$B2,green to $LIJN_B
    HLINE=!append line dline 0,$B1,$[$adressen+1],$B1,blue to $HLINE
    HLINE=!append line dline 0,$B2,$[$adressen+1],$B2,blue to $HLINE
    VTEXT=!append line text black,-0.5,$B1+$delta,normal,$B1 to $VTEXT
    VTEXT=!append line text black,-0.5,$B2+$delta,normal,$B2 to $VTEXT
!next p

    
meisjes=!record 43 of woorden.$taal
meisje=!randitem $meisjes
jongens=!record 42 of woorden.$taal
jongen=!randitem $jongens
zoveel=!item $adressen of $telwoorden

!if $taal=nl
    nivo_title=Een fiets tochtje
    groenelijn=de groene lijn
    rodelijn=de rooie lijn
    fietstijd=fietstijd in minuten
    ADRESSEN=adressen
    dingen=!randitem kranten,brieven,uitnodigingen,rekeningen,oliebollen,bloemstukjes,bestellingen
    somtekst$n=<b><em>$meisje</b></em> en <b><em>$jongen</b></em>  moeten met de fiets $zoveel adressen langs.<br>\
    Je ziet hier hun fietstocht weergegeven in een grafiek.<p align=left>\
    <ul><li>de <font color=$fontcolor3><b>rode lijn</b></font> hoort bij <em><b>$meisje</em></b>.</li>\
    <li> de<font color=$fontcolor4><b> groene lijn</b></font> hoort bij <em><b>$jongen</b>.</em></li>\
    <li>De vertikale-as geeft de tijd in minuten aan.</li>\
    <li>de horizontale-as geeft de aantallen adressen weer.</li></ul>
!else
    nivo_title=A bicycle tour
    groenelijn=the green line
    rodelijn=the red line
    fietstijd=bicylce-time in minutes
    ADRESSEN=adresses
    dingen=!randitem letters,newspapers,magazins,deliveries,parcels,invitations
    somtekst$n=<b><em>$meisje</b></em> and <b><em>$jongen</b></em> are bicycling past $zoveel adresses.<br>\
    Here you see the graph of their tour.<p align=left>\
    <ul><li>De <font color=$fontcolor3><b>red line</b></font> is the graph of <em><b>$meisje</em></b>.</li>\
    <li>The <font color=$fontcolor4><b> green line</b></font> belongs to <em><b>$jongen</b></em>.</li>\
    <li>The vertical-axis  shows the time in minutes.</li>\
    <li>The horizontal-axis shows the number of adresses.</li></ul>
!endif


plaatje$n=300,300\
transparent white\
xrange -1,$[$adressen+1]\
yrange -2,$[$ymax+1]\
linewidth 3\
hline 0,0,blue\
vline 0,0,blue\
arrow -0.6,$[$ymax-10],-0.6,$[$ymax-1],10,red\
linewidth 1\
$HLINE\
$VLINE\
linewidth 4\
$LIJN_A\
$LIJN_B\
$VTEXT\
$HTEXT\
textup black,-1,10,huge,$fietstijd\
text black,5,5,huge,$ADRESSEN\
arrow 2,0.5,$[$adressen-1],0.5,10,red\
text red,1,$ymax,huge,$meisje $rodelijn\
text green,1,$[$ymax-2],huge,$jongen $groenelijn

soort=$empty
keuze=$empty

!if $R=1
    keuze=!randitem 1,2
    !if $keuze=1
	soort=1
	!if $taal=nl
	    !if $Amax < $Bmax
		GOED$n=$meisje
		antwoord$n=$(GOED$n) heeft in het totaal $Amax minuten gefietst over deze $zoveel adressen<br>\
		en heeft dus het snelst gefietst.<br>\
		$jongen deed er $Bmax minuten over (dus $Bmax-$Amax=$[$Bmax-$Amax] minuten langer over) .    
	    !else
		!if $Amax > $Bmax
		    GOED$n=$jongen
		    antwoord$n=$(GOED$n) heeft in het totaal $Bmax minuten gefietst over deze $zoveel adressen<br>\
		    en heeft dus het snelst gefietst.<br>\
		    $meisje deed er $Amax minuten over (dus $Amax-$Bmax=$[$Amax-$Bmax] minuten langer over)     
		!else
		    GOED$n=geen_verschil
		    goed$n=beide,geen,niet,niets,gelijk,tegelijk,tijdig,identiek,0,nul,niks    
		    antwoord$n=er zat geen verschil is: zowel $jongen als $meisje deden er $Amax minuten over
		!endif
	    !endif	
	    opgave$n=Lees uit de grafiek <em>wie</em> volgens jouw het <b>snelst</b> heeft gefietst.
	!else
	    !if $Amax < $Bmax
		GOED$n=$meisje
		antwoord$n=$(GOED$n) has mastered $zoveel adresses in $Amax minutes<br>\
		and was the quickest<br>$jongen took it $Bmax minutes (so $Bmax-$Amax=$[$Bmax-$Amax] minutes longer)     
	    !else
		!if $Amax > $Bmax
		    GOED$n=$jongen
		    antwoord$n=$(GOED$n) has mastered $zoveel adresses in $Bmax minutes<br>\
		    and was the quickest<br>$meisje took it $Amax minutes for this distance (so $Amax-$Bmax=$[$Amax-$Bmax] minutees longer)
		!else
		    GOED$n=geen_verschil
		    goed$n=no,not,nothing,equal,same,0,null,zero,zip,nil
	    	    antwoord$n=there was no difference: both $jongen and $meisje took $Amax minutes over this distance
		!endif
	    !endif	
    	    opgave$n=Read from the graph:<em>who</em> was the <b>fastest</b> "biker"<br><small><em>and mastered the distances in the smallest amount of time</em>.</small>
	!endif  
    !else
	soort=1
	!if $taal=nl
	    !if $Amax > $Bmax
		GOED$n=$meisje
		antwoord$n=$(GOED$n) heeft in het totaal $Amax minuten gefietst over deze $zoveel adressen<br>\
		en heeft dus het langzaamst gefietst.<br>\
		$jongen deed er $Bmax minuten over (dus $Amax-$Bmax=$[$Amax-$Bmax] minuten korter over) .    
	    !else
		!if $Amax < $Bmax
		    GOED$n=$jongen
		    antwoord$n=$(GOED$n) heeft in het totaal $Bmax minuten gefietst over deze $zoveel adressen<br>\
		    en heeft dus het langzaamst gefietst.<br>\
		    $meisje deed er $Amax minuten over (dus $Bmax-$Amax=$[$Bmax-$Amax] minuten korter over).     
		!else
		    GOED$n=geen_verschil
		    goed$n=beide,geen,niet,niets,gelijk,tegelijk,tijdig,identiek,0,nul,niks    
		    antwoord$n=er zat geen verschil is: zowel $jongen als $meisje deden er $Amax minuten over
		!endif
	    !endif	
	    opgave$n=Lees uit de grafiek <em>wie</em> volgens jouw het <em>langzaamst</em> heeft gefietst.
	!else
	    !if $Amax > $Bmax
		GOED$n=$meisje
		antwoord$n=$(GOED$n) has mastered $zoveel adresses in $Amax minutes<br>\
		and was the slowest<br>$jongen took it $Bmax minutes (so $Bmax-$Amax=$[$Bmax-$Amax] minutes less) .    
	    !else
		!if $Amax < $Bmax
		    GOED$n=$jongen
		    antwoord$n=$(GOED$n) has mastered $zoveel adresses in $Bmax minutes<br>\
		    and was the slowest<br>$meisje took it $Amax minutes for this distance (so $Amax-$Bmax=$[$Amax-$Bmax] minutees less)
		!else
		    GOED$n=geen_verschil
		    goed$n=no,not,nothing,equal,same,0,null,zero,zip,nil
		    antwoord$n=there was no difference: both $jongen and $meisje took $Amax minutes over this distance
		!endif
	    !endif	
    	    opgave$n=Read from the graph:<em>who</em> was the <b>slowest</b> "biker"<br><small><em>and mastered the distances in the highest amount of time.</em></small>
	!endif    
    !endif
  !exit
!endif    

!if $R=2
    soort=4
    adressen=!randitem 3,4,5,6
    GOED$n=anders
    !for p=1 to $adressen
	meisje$p=!item $p of $getallenA
	jongen$p=!item $p of $getallenB
	#meisje M
	#jongen J
	tabel=!append line <td><center>$p</td><td><input size=20 name="M$p" value="$(M$p)"></td><td><input size=20 name="J$p" value="$(J$p)"></td><tr> to $tabel
	antwoordtabel=!append line <td><center>$p</td><td><input size=20 name="M$p" value="$(meisje$p)" readonly></td><td><input size=20 name="J$p" value="$(jongen$p)" readonly></td><tr> to $antwoordtabel
    !next p
    !if $taal=nl
	antwoord$n=Het goede antwoord is :<br><p align="center"><table border=1><td>adressen</td><td>tijd in minuten <br><font color=$fontcolor3> van $meisje</font></td>\
	<td>tijd in minuten <br><font color=$fontcolor4>van $jongen</font></td><tr>$antwoordtabel</table>

	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=Vul de volgende tabel in:<br>$(antwoord$n)
	!else
	    opgave$n=Vul de volgende tabel in:<br><p align="center"><table border=1><td>adressen</td><td>tijd in minuten <br><font color=$fontcolor3> van $meisje</font></td>\
	    <td>tijd in minuten <br><font color=$fontcolor4>van $jongen</font></td>\
	    <tr>$tabel</table>
	!endif
    !else
	antwoord$n=The correct answer:<br><p align="center"><table border=1><td>adresses</td><td>time in minutes<br><font color=$fontcolor3> of $meisje</font></td>\
	<td>time in minutes <br><font color=$fontcolor4>of $jongen</font></td><tr>$antwoordtabel</table>
	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=Fill in the next table:<br>$(antwoord$n)
	!else
	    opgave$n=Fill in the next table:<br><p align="center"><table border=1><td>adresses</td><td>time in minutes <br><font color=$fontcolor3>of $meisje</font></td>\
	    <td>time in minutes <br><font color=$fontcolor4>of $jongen</font></td>\
	    <tr>$tabel</table>
	!endif
    !endif    
 !exit
!endif    

!if $R=3
    soort=2
    !for p=1 to $adressen
    #alleen gevraagd waar meisje sneller is
	getalA=!item $p of $getallenA
	getalB=!item $p of $getallenB
	!if $getalA < $getalB
	    meisje_sneller=!append item $p to $meisje_sneller
	    !if $taal=nl
		GOED$n=ja
	    !else
		GOED$n=yes
	    !endif	
	!else
	    !if $getalA > $getalB
		jongen_sneller=!append item $p to $jongen_sneller
	    !endif
	!endif        
    !next
    !if $taal=nl
	opgave$n=Is er volgens de grafiek een adres , of adressen waar <em><b>$meisje</b></em> eerder aankwam dan <em><b>$jongen?</b></em><br>\
	Zo ja waar was dat dan?<br><div align="left"><small>\
	<ul>\
	<li>Let op: Je hoeft niet te schatten, gebruik alleen de gehele getallen van de x-as\
	<li>noteer je antwoord bijvoorbeeld als:\
	<ul><li> ja en wel op adres 1 en 4 en 8\
	<li>of gemakkelijker genoteerd: ja, 1,4,8\
	<li>of natuurlijk gewoon: nee </ul></ul>
	!if $(GOED$n)=ja
	    goed$n=$meisje_sneller
	    antwoord$n=ja, en wel op de adressen $meisje_sneller
	!else
	    GOED$n=nee
	    goed$n=neen,nee,zip,niks,geen,nooit,niets,niet,geenenkel,0
	    antwoord$n=nee, er is geen adres waar <em><b>$meisje</b></em> eerder aan kwam dan $jongen<br>\
	    Zoals je ziet kwam $jongen eerder aan op de adressen $jongen_sneller
	!endif
    !else
	opgave$n=Is there according the graph a adress (or more than one) where <em><b>$meisje</b></em> arrives ealier
	than <em><b>$jongen?</b></em><br>\
	If yes, at what adresses did $meisje arrive sooner?<br><div align="left"><small>\
	<ul>\
	<li>Attention: you don't have to guess; use the integers of the x-axis\
	<li>write your answers like:\
	<ul><li> yes on adresses  1 and 4 and 8\
	<li>or shorthand : yes, 1,4,8\
	<li>or naturally : no </ul></ul>
	!if $(GOED$n)=yes
	    goed$n=$meisje_sneller
	    antwoord$n=yes, and at adresses $meisje_sneller
	!else
	    GOED$n=no
	    goed$n=not,never,0,zero,zip,nada,no
	    antwoord$n=no, there is no adress where <em><b>$meisje</b></em> arrived sooner than $jongen<br>\
	    And as you can see $jongen arrived earlier at the adresses $jongen_sneller
	!endif
    !endif
 !exit    
!endif

!if $R>3
    soort=3
    afstand=!randint 800,2000
    q=!randint 1,4
    Adr1=!randint 1,$[$adressen - $q]
    Adr2=$[$Adr1 + $q ]
    T1=!item $Adr1 of $getallenA
    T2=!item $Adr2 of $getallenA
    GOED$n=!randint 5,35
    afstand=$[round($(GOED$n)*($T2-$T1)*100/6)]
#    	GOED$n=$[(round(6*$afstand/(10*($T2-$T1))))/10]
    !if $taal=nl
	opgave$n=Hoe hoog was de <em>gemiddelde snelheid</em> van $meisje tussen adres $Adr1 en adres $Adr2 <br>\
	als deze adressen <b>$afstand meter</b> uit elkaar liggen ?<br><p>\
	Geef je antwoord in <em><b>kilometers/uur</b></em><br>\
	en rond je antwoord af op 1 decimaal nauwkeurig...
	    
	antwoord$n=$meisje deed er $T2 - $T1 minuten over om de afstand ( $afstand meter) van adres \
	$Adr1 naar adres $Adr2 te fietsen<br>\
	Dus $afstand/$[$T2-$T1] meter/minuut = $[60*$afstand/1000]/$[$T2-$T1] km/uur = $[60*$afstand/1000/($T2-$T1)] km/h<br>\
	of -afgerond- $(GOED$n) km/h
    !else
	opgave$n=What was the <em>average speed</em> of $meisje between adress $Adr1 and adress $Adr2 <br>\
	if you know that these adresses are <b>$afstand metres</b> from eachother?<br><p>\
	Give your answer in <em><b>kilometres/hour</b></em> (km/h)<br>\
	and round off to 1 decimal...
    
	antwoord$n=$meisje mastered the distance from $Adr1 to $Adr2 ($afstand metre) in $T2 - $T1 minutes  van adres \
	The average speed $afstand/$[$T2-$T1] metre/minute = $[60*$afstand/1000]/$[$T2-$T1] km/hour = $[60*$afstand/1000/($T2-$T1)] km/h<br>\
	or -rounded off - $(GOED$n) km/h
    !endif    
!endif
