Operation Manual

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 StichprobenentnahmeAusfü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]
N1!templist[j]
:Exit
:EndIf
:EndFor
:EndFor
:Return drawlist
:EndFunc
1. Geben Sie mit dem Befehl RandSeed eine
Ausgangsbasis für die
Zufallszahlgenerierung ein.