Español   Ejemplos: Fractales.

La curva C

Esta es una curva matemática similar a la curva denominada "dragón".

La curva-C se dibuja de forma recursiva, y no necesita una variable de paridad como la citada "dragón". La curva C de orden 0 es una línea recta.
El orden límite de esta curva es aproximadamente 13 (8192 segmentos), cuando los segmentos se demasiado pequeños (longitud inferior a 2).

para empezar :orden
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro poncolorlapiz verde
  pongrosor 3
  subelapiz ocultatortuga
#
  haz "tam 8*potencia (raizcuadrada 2) (9-:orden)
  haz "angulo 90
#
  leyenda :orden
  ponposicion [-94 0] poncolorlapiz verde
  giraderecha 90 bajalapiz
  c_curva :orden
fin

para leyenda :orden
# Muestra encabezado y nivel de curva
  poncolorlapiz blanco
  ponposicion [-190 184]
  rotula frase [Nivel de curva C ] :orden
fin

para c_curva :orden
  si :orden < 1 [avanza :tam alto] # o sea, si = 0
  giraderecha 45
  c_curva :orden-1
  giraizquierda 90
  c_curva :orden-1
  giraderecha 45
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar 7