x_{rel}

y_{rel}

Kleur

l: 6
A: 0 + (0 * ί)
B: 1 + (0 * ί)
P_0: {A, B}
A6: 1
B6: -0.5
A5: 0.5
B5: -0.5
B4: 0
A4: 0.5
n = 1 (slider from 0 to 9, step 1)
m = Min(n, 5)
A2: 0
A3: 0.5
B2: 0.5
B3: 0.5
P_1 = Flatten({Sequence[{Element[P_0, j], Sequence[((1 - Object["A" + (k)]) * Element[P_0, j]) + (Object["A" + (k)] * Element[P_0, j + 1]) + ((Object["B" + (k)] * ί) * (Element[P_0, j + 1] - Element[P_0, j])), k, 2, l]}, j, 1, Length[P_0] - 1], Last[P_0]})
P_2 = Flatten({Sequence[{Element[P_1, j], Sequence[((1 - Object["A" + (k)]) * Element[P_1, j]) + (Object["A" + (k)] * Element[P_1, j + 1]) + ((Object["B" + (k)] * ί) * (Element[P_1, j + 1] - Element[P_1, j])), k, 2, l]}, j, 1, Length[P_1] - 1], Last[P_1]})
P_3 = Flatten({Sequence[{Element[P_2, j], Sequence[((1 - Object["A" + (k)]) * Element[P_2, j]) + (Object["A" + (k)] * Element[P_2, j + 1]) + ((Object["B" + (k)] * ί) * (Element[P_2, j + 1] - Element[P_2, j])), k, 2, 6]}, j, 1, Length[P_2] - 1], Last[P_2]})
P_4 = Flatten({Sequence[{Element[P_3, j], Sequence[((1 - Object["A" + (k)]) * Element[P_3, j]) + (Object["A" + (k)] * Element[P_3, j + 1]) + ((Object["B" + (k)] * ί) * (Element[P_3, j + 1] - Element[P_3, j])), k, 2, l]}, j, 1, Length[P_3] - 1], Last[P_3]})
P_5 = Flatten({Sequence[{Element[P_4, j], Sequence[((1 - Object["A" + (k)]) * Element[P_4, j]) + (Object["A" + (k)] * Element[P_4, j + 1]) + ((Object["B" + (k)] * ί) * (Element[P_4, j + 1] - Element[P_4, j])), k, 2, l]}, j, 1, Length[P_4] - 1], Last[P_4]})
P_n = Object("P_" + m)
A22: sqrt(A2^(2) + B2^(2))
A23: sqrt((A3 - A2)^(2) + (B3 - B2)^(2))
A24: sqrt((A4 - A3)^(2) + (B4 - B3)^(2))
B22 = If(A2 ≥ 0, atan(B2 / A2), atan(B2 / A2) - pi)
B23 = If(A3 ≥ A2, atan((B3 - B2) / (A3 - A2)), atan((B3 - B2) / (A3 - A2)) - pi)
B24 = If(A4 ≥ A3, atan((B4 - B3) / (A4 - A3)), atan((B4 - B3) / (A4 - A3)) - pi)
B25 = If(A5 ≥ A4, atan((B5 - B4) / (A5 - A4)), atan((B5 - B4) / (A5 - A4)) - pi)
A25: sqrt((A5 - A4)^(2) + (B5 - B4)^(2))
P_c = Sequence(Element[P_5, j] - (A + B) / 2, j, 1, Length[P_5])
Q_a = Sequence(((Element[P_5, j] * A22) * ℯ^((ί * B22))) + Element[P_1, 1], j, 1, Length[P_5])
Q_b = Sequence(((Element[P_5, j] * A23) * ℯ^((ί * B23))) + Element[P_1, 2], j, 1, Length[P_5])
Q_c = Sequence(((Element[P_5, j] * A24) * ℯ^((ί * B24))) + Element[P_1, 3], j, 1, Length[P_5])
Q_d = Sequence(((Element[P_5, j] * A25) * ℯ^((ί * B25))) + Element[P_1, 4], j, 1, Length[P_5])
q1, f, g, h, i = Polygon((0, -0.5), (1, -0.5), (1, 0.5), (0, 0.5))
B26 = If(A6 ≥ A5, atan((B6 - B5) / (A6 - A5)), atan((B6 - B5) / (A6 - A5)) - pi)
A26: sqrt((A6 - A5)^(2) + (B6 - B5)^(2))
Q_e = Sequence(((Element[P_5, j] * A26) * ℯ^((ί * B26))) + Element[P_1, 5], j, 1, Length[P_5])
kleur = false
A27: sqrt((1 - A6)^(2) + B6^(2))
B27 = If(A6 ≤ 1, atan(((-B6)) / (1 - A6)), atan(((-B6)) / (1 - A6)) - pi)
Q_f = Sequence(((Element[P_5, j] * A27) * ℯ^((ί * B27))) + Element[P_1, 6], j, 1, Length[P_5])
S_0 = Segment(A, B)
S_a = PolyLine(Take[P_n, 1, (Length[P_n] - 1) / l + 1])
S_b = PolyLine(Take[P_n, (Length[P_n] - 1) / l + 1, (2 * (Length[P_n] - 1) / l) + 1])
S_f = PolyLine(Take[P_n, ((l - 1) * (Length[P_n] - 1) / l) + 1, Length[P_n]])
S_c = PolyLine(Take[P_n, (2 * (Length[P_n] - 1) / l) + 1, (3 * (Length[P_n] - 1) / l) + 1])
S_d = PolyLine(Take[P_n, (3 * (Length[P_n] - 1) / l) + 1, (4 * (Length[P_n] - 1) / l) + 1])
S_e = PolyLine(Take[P_n, (4 * (Length[P_n] - 1) / l) + 1, (5 * (Length[P_n] - 1) / l) + 1])
T_a = PolyLine(Q_a)
T_b = PolyLine(Q_b)
T_c = PolyLine(Q_c)
T_d = PolyLine(Q_d)
T_e = PolyLine(Q_e)
T_f = PolyLine(Q_f)