Simulación De Una Extracción Sin Reemplazamiento; Función De Extracción Sin Reemplazamiento; Extracción Sin Reemplazamiento - Texas Instruments TI-89 Titanium Manual Del Usuario

Simulación de una 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 Programación.
Función de extracción sin reemplazamiento
En
Program Editor
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
(continúa en la columna siguiente)
Extracción sin reemplazamiento
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
Actividades
, defina
drawball( )
.
como una función que depende
: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
133