x_{rel}

y_{rel}

Kleur

A10: 0.9
B10: -0.3
A9: 0.75
B9: -0.4
B8: -0.2
A8: 0.45
A7: 0.6
B7: 0.1
A: 0 + (0 * ί)
B: 1 + (0 * ί)
P_0: {A, B}
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, 10]}, 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, 10]}, 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, 10]}, j, 1, Length[P_2] - 1], Last[P_2]})
B6: 0.3
A6: 0.8
A5: 0.5
B5: 0.4
B4: 0.1
A4: 0.3
n = 1 (slider from 0 to 7, step 1)
m = Min(n, 3)
A2: 0.2
A3: 0.4
B2: -0.3
B3: -0.1
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))
Q_a = Sequence(((Element[P_3, j] * A22) * ℯ^((ί * B22))) + Element[P_1, 1], j, 1, Length[P_3])
T_a = Sequence(Segment[Element[Q_a, i - 1], Element[Q_a, i]], i, 2, Length[Q_a])
Q_b = Sequence(((Element[P_3, j] * A23) * ℯ^((ί * B23))) + Element[P_1, 2], j, 1, Length[P_3])
Q_c = Sequence(((Element[P_3, j] * A24) * ℯ^((ί * B24))) + Element[P_1, 3], j, 1, Length[P_3])
T_b = Sequence(Segment[Element[Q_b, i - 1], Element[Q_b, i]], i, 2, Length[Q_b])
T_c = Sequence(Segment[Element[Q_c, i - 1], Element[Q_c, i]], i, 2, Length[Q_c])
Q_d = Sequence(((Element[P_3, j] * A25) * ℯ^((ί * B25))) + Element[P_1, 4], j, 1, Length[P_3])
T_d = Sequence(Segment[Element[Q_d, i - 1], Element[Q_d, i]], i, 2, Length[Q_d])
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_3, j] * A26) * ℯ^((ί * B26))) + Element[P_1, 5], j, 1, Length[P_3])
T_e = Sequence(Segment[Element[Q_e, i - 1], Element[Q_e, i]], i, 2, Length[Q_e])
kleur = false
A27: sqrt((A7 - A6)^(2) + (B7 - B6)^(2))
B27 = If(A7 ≥ A6, atan((B7 - B6) / (A7 - A6)), atan((B7 - B6) / (A7 - A6)) - pi)
Q_f = Sequence(((Element[P_3, j] * A27) * ℯ^((ί * B27))) + Element[P_1, 6], j, 1, Length[P_3])
S_0 = Segment(A, B)
A28: sqrt((A8 - A7)^(2) + (B8 - B7)^(2))
B28 = If(A8 ≥ A7, atan((B8 - B7) / (A8 - A7)), atan((B8 - B7) / (A8 - A7)) - pi)
Q_g = Sequence(((Element[P_3, j] * A28) * ℯ^((ί * B28))) + Element[P_1, 7], j, 1, Length[P_3])
T_g = Sequence(Segment[Element[Q_g, i - 1], Element[Q_g, i]], i, 2, Length[Q_g])
T_f = Sequence(Segment[Element[Q_f, i - 1], Element[Q_f, i]], i, 2, Length[Q_f])
A29: sqrt((A9 - A8)^(2) + (B9 - B8)^(2))
B29 = If(A9 ≥ A8, atan((B9 - B8) / (A9 - A8)), atan((B9 - B8) / (A9 - A8)) - pi)
Q_h = Sequence(((Element[P_3, j] * A29) * ℯ^((ί * B29))) + Element[P_1, 8], j, 1, Length[P_3])
T_h = Sequence(Segment[Element[Q_h, i - 1], Element[Q_h, i]], i, 2, Length[Q_h])
A30: sqrt((A10 - A9)^(2) + (B10 - B9)^(2))
B30 = If(A10 ≥ A9, atan((B10 - B9) / (A10 - A9)), atan((B10 - B9) / (A10 - A9)) - pi)
Q_i = Sequence(((Element[P_3, j] * A30) * ℯ^((ί * B30))) + Element[P_1, 9], j, 1, Length[P_3])
T_i = Sequence(Segment[Element[Q_i, i - 1], Element[Q_i, i]], i, 2, Length[Q_i])
A31: sqrt((1 - A10)^(2) + B10^(2))
B31 = If(A10 ≤ 1, atan(((-B10)) / (1 - A10)), atan(((-B10)) / (1 - A10)) - pi)
S_j = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (9 * (Length[P_n] - 1) / 10) + 1, Length[P_n])
S_a = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, 1, (Length[P_n] - 1) / 10)
S_b = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (1 * (Length[P_n] - 1) / 10) + 1, (2 * (Length[P_n] - 1) / 10))
S_c = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (2 * (Length[P_n] - 1) / 10) + 1, (3 * (Length[P_n] - 1) / 10))
S_d = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (3 * (Length[P_n] - 1) / 10) + 1, (4 * (Length[P_n] - 1) / 10))
S_e = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (4 * (Length[P_n] - 1) / 10) + 1, (5 * (Length[P_n] - 1) / 10))
S_f = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (5 * (Length[P_n] - 1) / 10) + 1, (6 * (Length[P_n] - 1) / 10))
S_g = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (6 * (Length[P_n] - 1) / 10) + 1, (7 * (Length[P_n] - 1) / 10))
S_h = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (7 * (Length[P_n] - 1) / 10) + 1, (8 * (Length[P_n] - 1) / 10))
S_i = Sequence(Segment[Element[P_n, i], Element[P_n, i + 1]], i, (8 * (Length[P_n] - 1) / 10) + 1, (9 * (Length[P_n] - 1) / 10))
Q_j = Sequence(((Element[P_3, j] * A31) * ℯ^((ί * B31))) + Element[P_1, 10], j, 1, Length[P_3])
T_j = Sequence(Segment[Element[Q_j, i - 1], Element[Q_j, i]], i, 2, Length[Q_j])