Jaa

Fractals in Small Basic

  • Artikkeli

There is a list of fractal programs in a blog article here. But, I'd like to update and summarize again about fractal programs in this post.

Fractal Tree

I think this may be the first fractal program written in Small Basic. The program is listed in Small Basic Getting Started Guide.
Turtle_drawing_a_tree_fractal

Dragon Curve

Last month, Kenneth Lee Taylor started posting fractal graphics and that codes to Small Basic Enthusiasts.  Following graphic is the first one of them.
fractal_dragon

Sierpinski Triangle

This is another one by Kenneth.

Screen shot of a fractal triangle program

Mandelbrot

There are some programs drawing Mandelbrot set here.  Following screen shot is one of them written by Rene_Miner.

Screen shot of a Mandelbrot program

Koch Curve

This program written by solongos has menu to choose some fractals.  This program is shared in this thread.

Screen shot of a fractal program

 

Hilbert Curve

The last one is my program (CMN910).  This program is a good sample of recursive call.

Screen shot of a program Hilbert Curve 0.1

Other Resources

Comments

  • Anonymous
    May 02, 2016
    Wow! These are some fantastic examples!
  • Anonymous
    May 21, 2016
    hilbert curve analysis: WQM392use mswheel to scroll through curve
  • Anonymous
    May 23, 2016
    the theory of fractals fascinates me !!This fractal was first defined and drawn in 1978 by Robert W. Brooks and Peter Matelski as part of a study of Kleinian groups.The first published picture of the Mandelbrot set, by Robert W. Brooks and Peter Matelski in 1978see the set here: https://en.wikipedia.org/wiki/Mandelbrot_set#/media/File:Mandel.png
  • Anonymous
    June 10, 2017
    The first example of Fractal Tree has two sub- branches growing from every branch. Can anyone tell me how to write the code if I have to have three sub- branches from every branch?
    • Anonymous
      August 19, 2018
      3-branches treeangle = 30delta = 10distance = 60Turtle.Speed = 6GraphicsWindow.BackgroundColor = "Black"GraphicsWindow.PenColor = "LightGreen"DrawTree()Sub DrawTree If (distance > 0) Then Turtle.Move(distance) Turtle.Turn(angle) Stack.PushValue("distance", distance) distance = distance - delta DrawTree() Turtle.Turn(-angle * 1.5) DrawTree() Turtle.Turn(-angle * 1.5) DrawTree() Turtle.Turn(angle*2) distance = Stack.PopValue("distance") Turtle.Move(-distance) EndIfEndSub
  • Anonymous
    August 19, 2018
    3branches smooth anim: MSB011