Español   Ejemplos: Nubes de puntos

El hombre de gengibre

Este es un modelo bien conocido en matemáticas por su forma, similar a la de las galletas que aparecen a menudo en las películas y que protagonizan el cuento del "Hombre de Gengibre".

El procedimiento Inicializar genera números irracionales para el eje de abscisas. Esto evita un ciclo de orden 6 que sólo dibuje 6 puntos.

para empezar
  nuevo
  repitepara [n 2 4 0.05]
   [ inicializar :n
     repite 1000 [hom.geng]]
  escribe "Hecho
fin

para nuevo
# Inicializamos la pantalla, el lapiz, la tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro subelapiz ocultatortuga
fin

para inicializar :n
  haz "aleat raizcuadrada (1-(potencia :n-3 2))/103
  haz "x :n+:aleat
  haz "y :n
  poncolorlapiz colang :n
fin

para hom.geng
  haz "xnuevo 1 - :y + abs :x
  haz "ynuevo :x
  punto lista (:xnuevo*34)-84 (:ynuevo*34)-84
  haz "x :xnuevo
  haz "y :ynuevo
fin

para colang :angulo
  haz "green truncar 127.5*:angulo - 255
  devuelve frase lista 255 :green 0
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar