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

Simulación de una extracción sin reemplazamiento Simulación de una extracción sin reemplazamiento Simulación de una extracción sin reemplazamiento 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 Función de extracción sin reemplazamiento
Función de extracción sin reemplazamiento Función de extracción sin reemplazamiento
En , defina
Program Editor
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)
Actividades
como una función que depende de dos parámetros.
drawball( )
: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
848