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á.
OBSERVACIÓN: En modo local funciona como está previsto. Al pulsar una vez sobre el botón los resultados se recalculan una sola vez como es de esperar. En la versión en línea, en GeogebraTube, al pulsar sobre el botón la simulación se realiza dos veces, lo cual constituye un comportamiento no deseado y cuya causa no acierto a entender. PROPUESTA DE EJERCICIOS:
  • 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