$ \copyright\; Roman\;Chijner,\;Heidelberg,\;2013 $

f→II

f=0.5

Goldener Schnitt
Golden Ratio  →

Baum-Fraktal als Netz quadratförmiger  Strukturen
Fractal tree as net of square-shaped structures

n=:

f = 0.5 (slider from 0 to 5, step 0.1)
N = 4 (slider from 3 to 20, step 1)
B = (2, 2)
A0 = (0, 0.013660269107301115)
l1 = W1(A0, B, N, f)
lr020 = Sequence(W1[Element[l1, 6], Element[l1, i], N, f], i, 1, 3)
lr030 = Join(Sequence[Sequence[W1[Element[Element[lr020, i], 6], Element[Element[lr020, i], j], 4, f], j, 1, 3], i, 1, 3])
lr040 = Join(Sequence[Sequence[W1[Element[Element[lr030, i], 6], Element[Element[lr030, i], j], 4, f], j, 1, 3], i, 1, 9])
lr050 = Join(Sequence[Sequence[W1[Element[Element[lr040, i], 6], Element[Element[lr040, i], j], 4, f], j, 1, 3], i, 1, 27])
l10 = Sequence(Rotate[B, 2 * π / N * i, A0], i, 1, N + 1)
V00 = Polygon(l10)
V10, a, b, c = Polygon(Sequence[Element[l1, i], i, 1, N + 1])
V020 = Sequence(Polygon[Sequence[Element[Element[lr020, i], j], j, 1, N + 1]], i, 1, N - 1)
Kl010 = Sequence(Rotate[V10, 2 * π / N * i, A0], i, 1, N)
Kl020 = Sequence(Rotate[V020, 2 * π / N * i, A0], i, 1, N)
l00 = Sequence(Rotate[l10, i * π] * f^(i), i, 0, 10)
V050 = Sequence(Polygon[Sequence[Element[Element[lr050, i], j], j, 1, 4]], i, 1, 81)
V040 = Sequence(Polygon[Sequence[Element[Element[lr040, i], j], j, 1, 4]], i, 1, 27)
lr060 = Join(Sequence[Sequence[W1[Element[Element[lr050, i], 6], Element[Element[lr050, i], j], 4, f], j, 1, 3], i, 1, 81])
V060 = Sequence(Polygon[Sequence[Element[Element[lr060, i], j], j, 1, 4]], i, 1, 243)
V030 = Sequence(Polygon[Sequence[Element[Element[lr030, i], j], j, 1, 4]], i, 1, 9)
A = (7.363794762417911, 4.320780666033639)
d = Circle(A0, A)
Kl030 = Sequence(Rotate[V030, 2 * π / N * i, A0], i, 1, N)
Kl040 = Sequence(Rotate[V040, 2 * π / N * i, A0], i, 1, N)
Kl050 = Sequence(Rotate[V050, 2 * π / N * i, A0], i, 1, N)
Kl060 = Sequence(Rotate[V060, 2 * π / N * i, A0], i, 1, N)
lr070 = Join(Sequence[Sequence[W1[Element[Element[lr060, i], 6], Element[Element[lr060, i], j], 4, f], j, 1, 3], i, 1, 243])
V070 = Sequence(Polygon[Sequence[Element[Element[lr070, i], j], j, 1, 4]], i, 1, 729)
Kl070 = Sequence(Rotate[V070, 2 * π / N * i, A0], i, 1, N)
Name2: "" + (LaTeX[Autor]) + ""
n = 9 (slider from 1 to 10, step 1)
inputBox1 = Textfield(n)

Tool: W1
A B N f
Input: A, B, N, f
Output: l1aa

B1: B + (B - A) * f
l1a = Sequence(Rotate[B, 2 * π / N * i, B1], i, 1, N + 1)
l1aa = Join({l1a, {B1}})