t-Animation

Δ = :

b-Animation

Erweiterung des Fraktals 'Goldenes Fünfeck'
Expansion of the fractal 'Golden Pentagon'

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

b = 1 (slider from 0.9 to 1, step Δ)
A0 = (0, 0)
B = (0, 4.17754)
ll10: b * Sequence[Rotate[B, 2 * π / 5 * i, A0], i, 1, 6]
f = 0.618033988749895 (slider from 0 to 5, step 0.1)
l00 = Sequence(Rotate[ll10, i * π] * f^(i), i, 0, 16)
v0: Element[ll10, 5] - A0
A12: B + (1 + f + f^(2) + f^(4) + f^(6) + f^(8)) * v0
An: A0 + (2 + f + f^(2) + f^(3)) * v0
e = 15 (slider from 1 to 30, step 1)
V2 = 0
V12' = Translate(Polygon[Element[l00, 12]], A12)
V12'' = Translate(Polygon[Element[l00, 12]], An)
lV12 = Sequence(Rotate[V12', 2 * π / 5 * i, An], i, 1, 5)
M1 = 0
M3 = 0
lV08 = Sequence(Rotate[Dilate[lV12, (1 + f)^(i), An], π / 5 * i, An], i, 1, e)
l01 = Element(lV08, 1)
l02 = Element(lV08, 2)
l03 = Element(lV08, 3)
l04 = Element(lV08, 4)
l05 = Element(lV08, 5)
l06 = Element(lV08, 6)
l07 = Element(lV08, 7)
l08 = Element(lV08, 8)
l09 = Element(lV08, 9)
l10 = Element(lV08, 10)
l11 = Element(lV08, 11)
l12 = Element(lV08, 12)
l13 = Element(lV08, 13)
l14 = Element(lV08, 14)
l15 = Element(lV08, 15)
l16 = Element(lV08, 16)
l17 = Element(lV08, 17)
l18 = Element(lV08, 18)
l19 = Element(lV08, 19)
l20 = Element(lV08, 20)
t = 0 (slider from 0 to 2, step 0.1)
a = false
vz = 1.52 (slider from 1 to 2, step 0.01)
tt = If(t < 1, vz, 1 / vz)
A: An
Δ = 0.001 (slider from 0 to 0.01, step 0.001)
Textfeld1 = Textfield(Δ)
c = false
Name2: "" + (LaTeX[Autor]) + ""

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

Tool: W2
A B N f
Input: A, B, N, f
Output: B1

B1: B + (B - A) * f