Simulación De Una Extracción Sin Reemplazamiento - Texas Instruments TI-89 Manual De Uso

Simulación de una extracción sin reemplazamiento
Función de extracción
sin reemplazamiento
Extracción sin
reemplazamiento
Esta actividad simula el resultado obtenido al extraer, sin
reemplazamiento, bolas de diferentes colores de una urna.
Para obtener información detallada sobre los pasos utilizados
en este ejemplo, consulte el capítulo 17: Programación.
En Program Editor, defina
de dos parámetros. El primer parámetro es una lista en la que cada
elemento corresponde al número de bolas de un determinado color.
El segundo parámetro es el número de bolas que se va a seleccionar.
La función devuelve una lista en la que cada elemento corresponde al
número de bolas seleccionadas de cada color.
: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
:For j,1,colordim,1
:cumSum(templist)! urncum
(continúa en la columna siguiente)
Supongamos que una urna contiene n1 bolas de un color, n2 bolas
de un segundo color, n3 bolas de un tercer color, etc. Simulemos que
efectuamos una extracción sin reemplazamiento.
1. Introduzca un número
aleatorio utilizando la orden
.
RandSeed
2. Suponiendo que la urna
contiene 10 bolas rojas y 25
blancas, simule la retirada de 5
bolas de la urna escogidas al
azar, sin reponerlas.
Introduzca
drawball({10,25},5)
Resultado: 2 bolas rojas y 3
blancas.
como una función que depende
drawball()
:If pick  urncum[j] Then
:drawlist[j]+1! drawlist[j]
:templist[j]ì 1! templist[j]
:Exit
:EndIf
:EndFor
:EndFor
:Return drawlist
:EndFunc
.
Capítulo 23: Actividades 409