Ejemplos: Multi-tortuga

Diagrama de barras de un lanzamiento de dados

Vamos a simular el lanzamiento de dos dados, y representar en un diagrama de barras las frecuencias asociadas a los valores de la suma de los resultados. Cada suma está asociada a una tortuga, que avanza un paso cada vez que aparece su resultado.

Para más detalles, echa un vistazo al tutorial.

# Comando de Inicio: empezar para empezar   inicia # Hacemos 1000 intentos   repite 1000     [ haz "suma lanzar+lanzar       pontortuga :suma       avanza 1 ]  # indicamos las frecuencias de tirada   repitepara [i 2 12]     [ pontortuga :i   # la ordenada de la tortuga representa el numero de tiradas       hazlocal "frecuencia ultimo pos       subelapiz       avanza 10 giraizquierda 90       avanza 10 giraderecha 90       bajalapiz       rotula :frecuencia/1000*100 ] fin para lanzar   devuelve 1 + azar 6 fin para inicia   borrapantalla   ocultatortuga   repitepara [i 2 12]     [ # coloca la tortuga      pontortuga :i ponpos lista -150 + (:i - 2)*30 0     # escribe el numero de la tortuga justo debajo      subelapiz      retrocede 15      rotula :i      avanza 15      bajalapiz ] fin

Probar este programa ahora Procedimiento a ejecutar: empezar