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

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

Baum bogenförmiger Fraktale im Kreis angeordnet
Tree of curved fractals arranged in a circle

f = 0.618033988749895 (slider from 0 to 2, step 0.1)
C = (0.0015049395920258045, -1.0059268777200217)
D = (1.3654049841280635E-4, -0.08077481519652398)
a = Segment(D, C)
b = OrthogonalLine(D, a)
c = Line(D, C)
g = 0.02 (slider from 0 to 1, step 0.001)
Vieleck1, Liste1, Liste2, Liste3, Liste4 = W82(C, D, f, g)
d = CurveCartesian(t, y(C) - 256 * t^(2), t, -2, 2)
N = 1 (slider from 1 to 20, step 1)
Liste11 = Sequence(Rotate[Liste1, 2 * π / N * i, C], i, 1, N)
Liste22 = Sequence(Rotate[Liste2, 2 * π / N * i, C], i, 1, N)
Liste33 = Sequence(Rotate[Liste3, 2 * π / N * i, C], i, 1, N)
Liste44 = Sequence(Rotate[Liste4, 2 * π / N * i, C], i, 1, N)
Liste00 = Sequence(Rotate[Vieleck1, 2 * π / N * i, C], i, 1, N)

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)})

Tool: W82
A,B,f,g
Input: C, D, f, g
Output: s00, ss2, s08, ss1, l101

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])
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])
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])
ss1: {s9, s10}
s08 = Join(Sequence[Sequence[W42[Element[Element[l81, j], 1], Element[Element[l81, j], i], f^(4) * g], i, 2, 3], j, 1, 128])
ss2: {s00, s01, s02, s03, s04, s05, s06, s07}