\fgcolor{ff0000}{f}= \frac{\sqrt[2]{ 5} -1 }{2 } =0.618033988749895

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

n=:

Baum bogenförmiger Fraktale mit  Goldenem Schnitt
Tree of  curved fractals with Golden Ratio

f^2 ↣

f^3 ↣

f

f^4 ↣

f^5 ↣

↣

↣

↣

↣

↣

f = 0.618033988749895 (slider from 0 to 2, step 0.1)
C = (0.0015049395920258045, -1.0059268777200217)
D = (1.3654049841280635E-4, -0.08077481519652398)
l1 = W1(C, D, f)
l2 = Sequence(W1[Element[l1, 1], Element[l1, i], f], i, 2, 3)
l31 = Join(Sequence[Sequence[W1[Element[Element[l2, j], 1], Element[Element[l2, j], i], f], i, 2, 3], j, 1, 2])
l41 = Join(Sequence[Sequence[W1[Element[Element[l31, j], 1], Element[Element[l31, j], i], f], i, 2, 3], j, 1, 4])
l51 = Join(Sequence[Sequence[W1[Element[Element[l41, j], 1], Element[Element[l41, j], i], f], i, 2, 3], j, 1, 8])
l61 = Join(Sequence[Sequence[W1[Element[Element[l51, j], 1], Element[Element[l51, j], i], f], i, 2, 3], j, 1, 16])
l71 = Join(Sequence[Sequence[W1[Element[Element[l61, j], 1], Element[Element[l61, j], i], f], i, 2, 3], j, 1, 32])
l81 = Join(Sequence[Sequence[W1[Element[Element[l71, j], 1], Element[Element[l71, j], i], f], i, 2, 3], j, 1, 64])
s1 = Sequence(Segment[Element[l1, 1], Element[l1, i]], i, 1, 3)
a = Segment(D, C)
s2 = Join(Sequence[Sequence[Segment[Element[Element[l2, j], 1], Element[Element[l2, j], i]], i, 2, 3], j, 1, 2])
s3 = Join(Sequence[Sequence[Segment[Element[Element[l31, j], 1], Element[Element[l31, j], i]], i, 2, 3], j, 1, 4])
s4 = Join(Sequence[Sequence[Segment[Element[Element[l41, j], 1], Element[Element[l41, j], i]], i, 2, 3], j, 1, 8])
s5 = Join(Sequence[Sequence[Segment[Element[Element[l51, j], 1], Element[Element[l51, j], i]], i, 2, 3], j, 1, 16])
s6 = Join(Sequence[Sequence[Segment[Element[Element[l61, j], 1], Element[Element[l61, j], i]], i, 2, 3], j, 1, 32])
s7 = Join(Sequence[Sequence[Segment[Element[Element[l71, j], 1], Element[Element[l71, j], i]], i, 2, 3], j, 1, 64])
s8 = Join(Sequence[Sequence[Segment[Element[Element[l81, j], 1], Element[Element[l81, j], i]], i, 2, 3], j, 1, 128])
l91 = Join(Sequence[Sequence[W1[Element[Element[l81, j], 1], Element[Element[l81, j], i], f], i, 2, 3], j, 1, 128])
l101 = Join(Sequence[Sequence[W1[Element[Element[l91, j], 1], Element[Element[l91, j], i], f], i, 2, 3], j, 1, 256])
s9 = Join(Sequence[Sequence[Segment[Element[Element[l91, j], 1], Element[Element[l91, j], i]], i, 2, 3], j, 1, 256])
s10 = Join(Sequence[Sequence[Segment[Element[Element[l101, j], 1], Element[Element[l101, j], i]], i, 2, 3], j, 1, 512])
b = OrthogonalLine(D, a)
A_1 = Point(s1)
B_1 = Point(b)
α = Angle(A_1, D, B_1)
c = Line(D, C)
d = OrthogonalLine(B_1, b)
n = 10 (slider from 1 to 10, step 1)
Textfeld1 = Textfield(n)
r02 = Element(Element[l31, 2], 1)
r03 = Element(Element[l41, 4], 1)
r01 = Element(Element[l2, 1], 1)
r04 = Element(Element[l51, 8], 1)
r05 = Element(Element[l61, 15], 1)
r06 = Element(Element[l71, 30], 1)
r07 = Element(Element[l81, 59], 1)
r08 = Element(Element[l91, 118], 1)
r09 = Element(Element[l101, 235], 1)
r10 = Element(Element[l101, 235], 3)
R01: (r01 + D) / 2
R02: (r01 + r02) / 2
R03: (r02 + r03) / 2
g = 0.02 (slider from 0 to 1, step 0.001)
s01 = Sequence(W42[Element[l1, 1], Element[l1, i], g], i, 1, 3)
s00 = W42(C, D, g)
s02 = Join(Sequence[Sequence[W42[Element[Element[l2, j], 1], Element[Element[l2, j], i], g], i, 2, 3], j, 1, 2])
s03 = Join(Sequence[Sequence[W42[Element[Element[l31, j], 1], Element[Element[l31, j], i], g], i, 2, 3], j, 1, 4])
s04 = Join(Sequence[Sequence[W42[Element[Element[l41, j], 1], Element[Element[l41, j], i], g], i, 2, 3], j, 1, 8])
s05 = Join(Sequence[Sequence[W42[Element[Element[l51, j], 1], Element[Element[l51, j], i], f * g], i, 2, 3], j, 1, 16])
s06 = Join(Sequence[Sequence[W42[Element[Element[l61, j], 1], Element[Element[l61, j], i], f^(2) * g], i, 2, 3], j, 1, 32])
s07 = Join(Sequence[Sequence[W42[Element[Element[l71, j], 1], Element[Element[l71, j], i], f^(3) * g], i, 2, 3], j, 1, 64])
s08 = Join(Sequence[Sequence[W42[Element[Element[l81, j], 1], Element[Element[l81, j], i], f^(4) * g], i, 2, 3], j, 1, 128])
Name2: "" + (LaTeX[Autor]) + ""

Tool: W1
A,B,f
Input: A, B, f
Output: b0

C1: B + Rotate[B - A, 60*°] * f
D1: B + Rotate[B - A, 300*°] * f
b0: {B, C1, D1}

Tool: W42
A,B,h
Input: A, B, h
Output: Vieleck1

W = Angle(A - B)
Vieleck1, k, l, m, p, q, r, s, t = Polygon({A, (3 * A + B) / 4 + (2 * h / 3; W - π / 2), (A + B) / 2 + (h; W - π / 2), (A + 3 * B) / 4 + (2 * h / 3; W - π / 2), B, (A + 3 * B) / 4 + (2 * h / 3; W + π / 2), (A + B) / 2 + (h; W + π / 2), (3 * A + B) / 4 + (2 * h / 3; W + π / 2)})