Español   Ejemplos: Fractales.

Un copo de nieve

La curva (o copo) de Koch es una curva que se construye por el interior o el exterior de un triángulo. Se obtiene dividiendo sistemáticamente en 3 cada lado del triángulo, sustituyendo el segmento central por un triángulo equilátero, eliminado el segmento original e iterando el proceso.

Empecemos por la curva exterior:

para empezar :nivel
  nuevo
  koch.ext :nivel 320
fin

para nuevo
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro subelapiz ocultatortuga
  poncolorlapiz 7 ponposicion [-160 -90] bajalapiz
fin

para koch.ext :nivel :lado
  ponrumbo 30 repite 3
   [koch :nivel :lado giraderecha 120]
fin

para koch :nivel :lado
  si :nivel < 1 [
   avanza :lado alto]
  koch :nivel-1 :lado/3 giraizquierda 60
  koch :nivel-1 :lado/3 giraderecha 120
  koch :nivel-1 :lado/3 giraizquierda 60
  koch :nivel-1 :lado/3
fin


Para obtener la curva en el interior:

para empezar :nivel
  nuevo
  koch.int :nivel 320
fin

para koch.int :nivel :lado
  ponrumbo 90 repite 3
   [koch :nivel :lado giraizquierda 120]
fin


En fin, para obtener las dos curvas simultáneamente en rojo y azul:

para ambos :nivel.ext :nivel.int
  nuevo poncolorlapiz rojo
  koch.ext :nivel.ext 320
  poncolorlapiz azul
  koch.int :nivel.int 320
fin

y ejecuta, por ejemplo:

ambos 4 6


Probar este programa ahora

Procedimiento a ejecutar:
empezar 6