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

Baum der gabelförmigen Fraktale mit einstellbarem Neigungswinkel / Tree of the forked fractals with variable slope angles

Goldener Schnitt
Golden ratio →

$f= \frac{\sqrt{5}-1}{2}\;;\;α=pi/3$

α = 0.75 (slider from 0.1 to 1.5707963267948966, step 0.01)
D = (-0.0013683990936129982, -0.07484793747650222)
C = (-0.004227022598566715, -1.0439511216647919)
f = 0.618033988749895 (slider from 0 to 2, step 0.1)
l01 = W1a(C, D, f, α)
l02 = Sequence(W1a[Element[l01, 1], Element[l01, i], f, α], i, 2, 3)
l03 = Join(Sequence[Sequence[W1a[Element[Element[l02, j], 1], Element[Element[l02, j], i], f, α], i, 2, 3], j, 1, 2])
l04 = Join(Sequence[Sequence[W1a[Element[Element[l03, j], 1], Element[Element[l03, j], i], f, α], i, 2, 3], j, 1, 4])
l05 = Join(Sequence[Sequence[W1a[Element[Element[l04, j], 1], Element[Element[l04, j], i], f, α], i, 2, 3], j, 1, 8])
l06 = Join(Sequence[Sequence[W1a[Element[Element[l05, j], 1], Element[Element[l05, j], i], f, α], i, 2, 3], j, 1, 16])
l07 = Join(Sequence[Sequence[W1a[Element[Element[l06, j], 1], Element[Element[l06, j], i], f, α], i, 2, 3], j, 1, 32])
l08 = Join(Sequence[Sequence[W1a[Element[Element[l07, j], 1], Element[Element[l07, j], i], f, α], i, 2, 3], j, 1, 64])
s1 = Sequence(Segment[Element[l01, 1], Element[l01, i]], i, 1, 3)
a = Segment(D, C)
s2 = Join(Sequence[Sequence[Segment[Element[Element[l02, j], 1], Element[Element[l02, j], i]], i, 2, 3], j, 1, 2])
s3 = Join(Sequence[Sequence[Segment[Element[Element[l03, j], 1], Element[Element[l03, j], i]], i, 2, 3], j, 1, 4])
s4 = Join(Sequence[Sequence[Segment[Element[Element[l04, j], 1], Element[Element[l04, j], i]], i, 2, 3], j, 1, 8])
s5 = Join(Sequence[Sequence[Segment[Element[Element[l05, j], 1], Element[Element[l05, j], i]], i, 2, 3], j, 1, 16])
s6 = Join(Sequence[Sequence[Segment[Element[Element[l06, j], 1], Element[Element[l06, j], i]], i, 2, 3], j, 1, 32])
s7 = Join(Sequence[Sequence[Segment[Element[Element[l07, j], 1], Element[Element[l07, j], i]], i, 2, 3], j, 1, 64])
s8 = Join(Sequence[Sequence[Segment[Element[Element[l08, j], 1], Element[Element[l08, j], i]], i, 2, 3], j, 1, 128])
l09 = Join(Sequence[Sequence[W1a[Element[Element[l08, j], 1], Element[Element[l08, j], i], f, α], i, 2, 3], j, 1, 128])
l10 = Join(Sequence[Sequence[W1a[Element[Element[l09, j], 1], Element[Element[l09, j], i], f, α], i, 2, 3], j, 1, 256])
s9 = Join(Sequence[Sequence[Segment[Element[Element[l09, j], 1], Element[Element[l09, j], i]], i, 2, 3], j, 1, 256])
s10 = Join(Sequence[Sequence[Segment[Element[Element[l10, j], 1], Element[Element[l10, j], i]], i, 2, 3], j, 1, 512])
c = Line(D, C)
n = 10 (slider from 1 to 10, step 1)
B = (-1.4, 0.2)
E = (1.4, 0.2)
b = OrthogonalLine(B, xAxis)
F = Point(b)
d = OrthogonalLine(F, b)
e = OrthogonalLine(E, xAxis)
G = Point(b)
g = OrthogonalLine(G, b)
Name2: "" + (LaTeX[Autor]) + ""

Tool: W1a
A B f a
Input: A, B, f, a
Output: b0

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