Fractales con MS Small Basic (Código)


fractal

El siguiente programa dibuja un simple triángulo fractal usando números aleatorios. Un fractal es una forma geométrica que se puede subdividir en partes, cada una de las cuales se asemeja a la forma original. En este caso, el programa dibuja cientos de triángulos cada uno de los cuales se asemeja a su triángulo original. Y como el programa se ejecuta durante unos pocos segundos, puede ver en realidad cómo se forman los triángulos a partir de simples puntitos. La lógica en sí misma es en cierta forma difícil de describir y dejaremos como ejercicio que pueda explorarla.

_________________________________________________________________________________________________

GraphicsWindow.BackgroundColor = “Black”

  1. x = 100
  2. y = 100
  3.  
  4. For i = 1 To 100000
  5.  r = Math.GetRandomNumber(3)
  6.  ux = 150
  7.  uy = 30
  8.  If (r = 1) then
  9.  ux = 30
  10.  uy = 1000
  11.  EndIf
  12.  
  13.  If (r = 2) Then
  14.  ux = 1000
  15.  uy = 1000
  16.  EndIf
  17.  
  18.  x = (x + ux) / 2
  19.  y = (y + uy) / 2
  20.  
  21.  GraphicsWindow.SetPixel(x, y, “LightGreen”)
  22. EndFor

________________________________________________________________________________________________

http://www.microsoft.com/es-es/download/details.aspx?id=14246

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s