[b]Este archivo permite simular 200 lanzamientos de una moneda.[/b][br][list][br][*]La probabilidad de obtener cara se puede establecer usando el deslizador p (definido para valores entre 0 y 1).[br][*]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.[br][*]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.[br][*]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.[br][*]De esta forma simulamos 200 lanzamientos con la moneda.[br][*]Para repetir la simulación pulsamos la tecla F9 (en Linux y Windows)[br][*]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.[br][*]Almacenamos los resultados obtenidos en una lista: lista = C2:C201[br][*]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. [br][*]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}[br][*]Para mostrar los resultados del recuento usamos una tabla de texto: TablaTexto[{cabecera, resultadosCara, resultadosCruz, totales}, "c_|"][br][*]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á.[br][/list][br][br][b]OBSERVACIÓN:[/b][br]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. [br]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.[br][br][b]PROPUESTA DE EJERCICIOS:[/b][br][list][br][*]Realiza una construcción similar a esta.[br][*]Modifica el archivo para realizar una simulación del lanzamiento de dos monedas.[br][*]¿Y una simulación del lanzamiento de un dado?[br][/list]

Carlos Fleitas, febrero de 2014