!set n=$teller
kans=1
!if $graad=0
    R=$teller
!else
    R=$graad
!endif  
opgave$n=$empty
bewerking=bewerking1.proc
nivo_title=Dobbelstenen en bereken de Kans op ?
!if $taal=nl
    en=en
    een=een
!else
    en=and
    een=a
!endif
nummers=1,2,3,4,5,6
!for s=1 to 6
    S$s=0
!next s

!if $R=1
    # twee dobbelstenen
    tot=$empty	
    !for p=1 to 2
	num$p=!randitem $nummers
	!for s in $nummers
	    !if $(num$p)=$s
		!increase S$s
	    !endif	
	!next s
	naam=!item $(num$p) of $telwoorden
	dobbel=!append item $een&nbsp;<b>$naam</b>&nbsp;$rr to $dobbel
	opgave$n=!append line <img src="$module_dir/dice/$(num$p).gif"> to $(opgave$n)        
    !next p
    !for s=1 to 6
	tot=!append item $(S$s) to $tot
    !next s
    !if 2 notin $tot
	GOED$n=1/18
    !else
	GOED$n=1/36
    !endif        
    somtekst$n=Ik heb twee eerlijke dobbelstenen<br>\
    Hoe groot is de kans op:<br> $dobbel ?<br>\
    De volgorde doet er niet toe !<p>
    opgave$n=Zoals bijvoorbeeld:<br> $(opgave$n)<br>
 !exit
!endif

!if $R=2
    # drie dobbelstenen
    tot=$empty	
    !for p=1 to 3
	num$p=!randitem $nummers
	!for s in $nummers
	    !if $(num$p)=$s
		!increase S$s
	    !endif	
	!next s
	naam=!item $(num$p) of $telwoorden
	dobbel=!append item $een&nbsp;<b>$naam</b>&nbsp;$rr to $dobbel
	opgave$n=!append line <img src="$module_dir/dice/$(num$p).gif"> to $(opgave$n)        
    !next p
    !for s=1 to 6
	tot=!append item $(S$s) to $tot
    !next s
    !if 3 isitemof $tot
	GOED$n=1/216
    !else
	!if 2 isitemof $tot
	    GOED$n=1/72
	!else
	    GOED$n=1/36
	!endif    
    !endif        
    somtekst$n=Ik heb drie eerlijke dobbelstenen<br>\
    Hoe groot is de kans op:<br> $dobbel ?<br>\
    De volgorde doet er niet toe !<p>
    opgave$n=Zoals bijvoorbeeld:<br> $(opgave$n)<br>

 !exit
!endif

!if $R>2
    # vier dobbelstenen
    tot=$empty	
    !for p=1 to 4
	num$p=!randitem $nummers
	!for s in $nummers
	    !if $(num$p)=$s
		!increase S$s
	    !endif	
	!next s
	naam=!item $(num$p) of $telwoorden
	dobbel=!append item $een&nbsp;<b>$naam</b>&nbsp;$rr to $dobbel
	opgave$n=!append line <img src="$module_dir/dice/$(num$p).gif"> to $(opgave$n)        
    !next p
    !for s=1 to 6
	tot=!append item $(S$s) to $tot
    !next s
    !if 4 isitemof $tot
	    GOED$n=1/1296
    !else
	!if 3 isitemof $tot
	    GOED$n=1/324
	!else
	    !if 2 isitemof $tot
		t=!positionof char 2 in $tot
		# 0,0,2,0,2,0 => t=3,5
		# 1,0,1,0,2,0 => t=5
		t=!itemcnt $t
		!if $t=2
		    GOED$n=1/216
		!else
		    GOED$n=1/108
		!endif
	    !else
		GOED$n=1/54
	    !endif	
	!endif    
    !endif        
    somtekst$n=Ik heb vier eerlijke dobbelstenen<br>\
    Hoe groot is de kans op:<br> $dobbel ?<br>\
    De volgorde doet er niet toe !<p>
    opgave$n=Zoals bijvoorbeeld:<br> $(opgave$n)<br>
 !exit
!endif

