Operation Manual

Hoofdstuk 23. Activiteiten 407
23ACTS.NLD TI-89/TI-92 Plus: Activities (Dutch) Susan Gullord Revised: 02/29/00 12:37 PM Printed: 02/29/00 12:43 PM Page 407 of 26
Definieer in de Program Editor
drawball()
als een functie die met twee
parameters kan worden aangeroepen. De eerste parameter is een lijst
waarvan elk element het aantal ballen van een bepaalde kleur is. De
tweede parameter is het aantal ballen dat getrokken moet worden.
Deze functie levert een lijst op waarin ieder element het aantal ballen
is dat van een bepaalde kleur getrokken is.
:drawball(urnlist,drawnum)
:Func
:Local templist,drawlist,colordim,
numballs,i,pick,urncum,j
:If drawnum>sum(urnlist)
:Return “te weinig ballen”
:dim(urnlist)
!
colordim
:urnlist
!
templist
:newlist(colordim)
!
drawlist
:For i,1,drawnum,1
:sum(templist)
!
numballs
:rand(numballs)
!
pick
:For j,1,colordim,1
:cumSum(templist)
!
urncum
(vervolg in volgende kolom)
:If pick

urncum[j] Then
:drawlist[j]+1
!
drawlist[j]
:templist[j]
ì
1
!
templist[j]
:Exit
:EndIf
:EndFor
:EndFor
:Return drawlist
:EndFunc
Neem aan dat een vaas n1 ballen van een bepaalde kleur bevat, n2
ballen van een tweede kleur, n3 ballen van een derde kleur, etc.
Simuleer het trekken van ballen zonder deze terug te leggen.
1. Gebruik de opdracht
RandSeed
om de generator van
toevalsgetallen in te stellen.
2. Ervan uitgaande dat de vaas 10
rode ballen en 25 witte ballen
bevat, simuleert u het trekken
van een steekproef van 5 ballen
zonder de ballen terug te leggen.
Voer
drawball({10,25},5)
in.
Resultaat: 2 rode ballen en 3
witte ballen.
Simulatie van een steekproef zonder teruglegging
Deze toepassing simuleert het trekken van ballen van
verschillende kleuren uit een vaas zonder deze terug te leggen.
Zie hoofdstuk 17 “Programmeren” voor meer informatie over de
stappen die in dit voorbeeld gevolgd worden.
Functie “steekproef
zonder teruglegging”
Steekproef zonder
teruglegging