Español   Ejemplos: Nube de puntos

Curva de Martin

Este ejemplo dibuja una especie de edredón de cuadrados. Aumente el número de iteraciones, y reduzca la escala para ver más cuadrados.

para martin
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro poncolorlapiz verde
  subelapiz ocultatortuga
#
  haz "x 0 haz "y 0
  haz "angulo 3.14 # puedes probar 3.1415 o 3.141593 o pi
    # haz "escala 12 haz "iters 8000
  haz "escala 7 haz "iters 20000
  haz "offset 1.8 * :escala
#
  repite :iters [
    haz "xnew :y - seno (:x*180/pi)
    haz "y :angulo - :x
    haz "x :xnew
  punto lista (:x*:escala)-:offset (:y*:escala)-:offset]
fin


Probar este programa ahora

Procedimiento a ejecutar:
martin