Texas Instruments Voyage 200 TIVOYAGE200 Datenbogen

Aktivitäten

 846

ziehenden) Kugeln. Die Funktion gibt eine Liste zurück, in der jedes Element die Anzahl 
der für jede Farbe gezogenen Kugeln wiedergibt. 

Ausführen einer Stichprobenentnahme

Ausführen einer Stichprobenentnahme

Ausführen einer Stichprobenentnahme

Ausführen einer Stichprobenentnahme

Nehmen Sie an, ein Gefäß enthält n1 Kugeln einer ersten Farbe, n2 Kugeln einer 
zweiten Farbe, n3 Kugeln einer dritten Farbe usw. Simulieren Sie das Ziehen von 
Kugeln ohne Zurücklegen.

:drawball(urnlist,drawnum)
:Func
:Local templist,drawlist,colordim,

numballs,i,pick,urncum,j

:If drawnum>sum(urnlist)
:Return “too few balls”
:dim(urnlist)

!

colordim

:urnlist

!

templist

:newlist(colordim)

!

drawlist

:For i,1,drawnum,1
:sum(templist)

!

numballs

:rand(numballs)

!

pick

(Fortsetzung in der nächsten Spalte)

:For j,1,colordim,1
:cumSum(templist)

!

urncum

:If pick 



 urncum[j] Then

:drawlist[j]+1

!

drawlist[j]

:templist[j]

N

1

!

templist[j]

:Exit
:EndIf
:EndFor
:EndFor
:Return drawlist
:EndFunc

1. Geben Sie mit dem Befehl 

 eine 

Ausgangsbasis für die 
Zufallszahlgenerierung ein.