200 lanzamientos de una moneda (hoja de cálculo)
Este archivo permite simular 200 lanzamientos de una moneda.
- La probabilidad de obtener cara se puede establecer usando el deslizador p (definido para valores entre 0 y 1).
- En la primera columna de la hoja de cálculo (columna A) es han colocado números del 1 al 200 para indicar el número de la correspondiente simulación. Para hacerlo se puede proceder como en cualquier hoja de cálculo. Se rellenan las dos primeras celdas con los números 1 y 2, se selecciona el rango formado por las dos celdas y se arrastra hacia abajo tirando con el ratón de la parte inferior derecha del rango.
- En las celdas adyacentes (columna B) se introduce la función: random(). Se hace en la primera celda, la B2, se pulsa Intro, se vuelve a seleccionar la celda, se copia, se selecciona el rango B3:B201 y se pega.
- En la siguiente columna (columna C) se escribe: Si[B2 < p, "C", "X"]. Esto hace que si el número aleatorio de esa fila es menor que p se escriba el carácter C que indica cara, en caso contrario, es decir si p>= el número aleatorio, se escribe el carácter X que indica cruz. Esta fórmula introducida en la celda C2 se pega en C3:C201.
- De esta forma simulamos 200 lanzamientos con la moneda.
- Para repetir la simulación pulsamos la tecla F9 (en Linux y Windows)
- Añadimos un botón para facilitar el recálculo de los resultados (para no tener que pulsar F9). A ese botón le añadimos un scrip (Al hacer click): ActualizaConstrucción[]. De esta manera, al pulsar el botón se recalculan los resultados de la simulación.
- Almacenamos los resultados obtenidos en una lista: lista = C2:C201
- Para hacer un cómputo de los resultados, número de caras y número de cruces obtenidas, se escribe en la celda D2: =CuentaSi[x == "C", lista] lo que hace que en esa celda se almacene el número de caras obtenidas. En la celda E2 escribimos:=CuentaSi[x == "X", lista] para contar el número de cruces.
- Con la idea de construir una tabla de texto, definimos la lista resultadosCara = {"C", D2, D2 / 200} en la que almacenamos como texto un carácter C, el número de caras obtenidas y la frecuencia relativa del resultado obtener cara. Analogamente para las cruces: resultadosCruz = {"X", E2, E2 / 200} y para las sumas: totales = {"SUMA:", 200, 1}
- Para mostrar los resultados del recuento usamos una tabla de texto: TablaTexto[{cabecera, resultadosCara, resultadosCruz, totales}, "c_|"]
- Finalmente, para dibujar unos diagramas de frecuencias relativas construimos dos polígonos (el primero: poligonoCaras = Polígono[(0, 0), (1, 0), (1, D2 / 200), (0, D2 / 200)]) y ocultamos rótulos y segmentos de los lados, coloreamos adecuadamente y ya está.
- Realiza una construcción similar a esta.
- Modifica el archivo para realizar una simulación del lanzamiento de dos monedas.
- ¿Y una simulación del lanzamiento de un dado?
Carlos Fleitas, febrero de 2014