Español   Ejemplos: Fractales.

Curva de Peano

Para dibujar este curva, la tortuga se desplaza por un "tablero" dividido en 9 cuadrados.

Empezando de la esquina inferior izquierda, primero gira a la izquierda y luego tres veces seguidas a la derecha, otras 3 a la izquierda, y al final una a la derecha.

La tortuga sale del cuadrado por el vértice superior derecho después de haberse movido diagonalmente por cada uno de los 9 cuadrados.

   
Por recursión, cada cuadrado puede dividirse a su vez en 9 sub-cuadrados y, en el límite, la tortuga acaba recorriendo todos los puntos del plano.

para empezar :nivel
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro poncolorlapiz verde
  subelapiz ocultatortuga
#
  haz "celltam (potencia 2 0.5)*(120/(potencia 3 :nivel))
  subelapiz ponposicion [-180 -180] ponrumbo 45 bajalapiz
  curva :nivel
fin

para curva :nivel
  si :nivel < 0 [avanza :celltam alto]
  curva :nivel-1
  giraizquierda 90 curva :nivel-1
  repite 3 [giraderecha 90 curva :nivel-1]
  repite 3 [giraizquierda 90 curva :nivel-1]
  giraderecha 90 curva :nivel-1
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar 3