---------------- home Balloting Simple trig Logistic map The Attractor of Henon Number doubling Barnsley's Fern The Sierpinski TriangleBarnsley's FernA simple four part algorithm, which incorporates randomly selected parts of the algorithm, produces a realistic looking fern. Invented by Michael Barnsley. Part one of the algorithm is selected 1% of the time. Part two of the algorithm is selected 85% of the time. Part three of the algorithm is selected 7% of the time. Part four of the algorithm is selected 7% of the time. (See program code further down.) VisualBASIC program code: Private Sub fernbtn1_Click() MAG = Val(movebox) ITER = Val(itera.Text) yshift = Val(yshiftbox.Text) Randomize Timer For a = 1 To ITER RN = Rnd(1) If RN < 0.01 Then GoTo 100 If RN < 0.86 Then GoTo 200 If RN < 0.93 Then GoTo 300 GoTo 400 100: X = 0 Y = 0.16 GoTo 500 200: X = (0.85 * X) + (0.04 * Y) Y = (-0.04 * X) + (0.85 * Y + 1.6) GoTo 500 300: X = (0.2 * X) - (0.26 * Y) Y = (0.23 * X + 0.22 * Y + 1.6) GoTo 500 400: X = (-0.15 * X) + (0.28 * Y) Y = (0.26 * X) + (0.24 * Y) + 0.44 500: TX = (X * 80 * MAG) + 600 TY = (Y * 80 * MAG) + 50 + yshift viewport.PSet (TX, TY), RGB(26, 125, 0) Next a End Sub ====================================================== home Balloting Simple trig Logistic map The Attractor of Henon Number doubling Barnsley's Fern The Sierpinski Triangle