Copia de Simulación del lanzamiento de un dado (hoja de cálculo)
EJEMPLO SENCILLO: Lanzamiento de un dado no trucado usando la hoja de cálculo.
CONSTRUCCIÓN:
- Se abre la hoja de cálculo.
- En la primera columna en el rango A2:A201 se rellenan los números 1, 2, ...200. Para ello se escribe 1 en la celda A2, 2 en la celda A3, se seleccionan ambas y se arrastra hacia abajo tirando con el ratón de la esquina inferior derecha del rango seleccionado (A2:A3).
- En la celda B2 se escribe: =AleatorioEntre[1, 6]
- Se copia la fórmula anterior seleccionando la celda B2 y arrastrando hacia abajo.
- En el rango C3: H3 escribimos 1, 2, ...,6
- Para el recuento escribimos en la celda C4 la fórmula: =CountIf[x ≟ C3, $B2:$B201] y copiamos en las correspondientes celdas de la derecha. El símbolo $ sirve para fijar la columna B y evitar que se convierta en C, D, etc. al pegar en las celdas adyacentes.
- Creamos la siguiente lista (en la ventana de entrada de comandos): clases = Secuencia[0.5 + k, k, 0, 6]. Servirá para crear el histograma correspondiente.
- Creamos la siguiente lista: recuento = {C4, D4, E4, F4, G4, H4} para tener almacenadas las frecuencias de cada resultado.
- Almacenamos los resultados (los 200 resultados) en otra lista: resultadosBrutos = B2:B201
- Dibujamos el histograma: Histograma[clases, resultadosBrutos, true, 0.1] (información sobre el comando Histograma: http://wiki.geogebra.org/es/Comando_Histograma)
- Creamos un texto informativo para mostrar el recuento: TablaTexto[{Añade["Resultados: ", resultadosPosibles], Añade["Frecuencias absolutas: ", recuento]}, "c_|"]
- A partir de este momento pulsando la tecla F9 se recalculan de nuevo todos los resultados.
- Añadimos un botón con el script (Al Click) ActualizaConstrucción[]. Esto hace que al pulsarlo también se recalculen los resultados de la simulación.
Carlos Fleitas, abril de 2014