x_{rel}

y_{rel}

Kleur

B5: -0.4
A5: 0.8
B4: -0.2
A4: 0.4
B: 1 + (0 * ί)
A: 0 + (0 * ί)
P_0: {A, B}
n = 1 (slider from 0 to 10, step 1)
m = Min(n, 5)
A2: 0.2
A3: 0.6
B2: 0.4
B3: 0.2
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, 5]}, 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, 5]}, 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, 5]}, 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, 5]}, 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, 5]}, 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))
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))
A26: sqrt((1 - A5)^(2) + B5^(2))
B26 = If(A5 ≤ 1, atan(((-B5)) / (1 - A5)), atan(((-B5)) / (1 - A5)) - pi)
Q_e = Sequence(((Element[P_5, j] * A26) * ℯ^((ί * B26))) + Element[P_1, 5], j, 1, Length[P_5])
kleur = false
S_0 = Segment(A, B)
l: 5
S_e = PolyLine(Take[P_n, (4 * (Length[P_n] - 1) / l) + 1, Length[P_n]])
S_b = PolyLine(Take[P_n, (Length[P_n] - 1) / l + 1, (2 * (Length[P_n] - 1) / l) + 1])
S_a = PolyLine(Take[P_n, 1, (Length[P_n] - 1) / l + 1])
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])
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)
V_a = Sequence((((Element[P_5, j] * A22) * A22) * ℯ^((ί * (B22 + B22)))) + Element[P_2, 1], j, 1, Length[P_5])
V_b = Sequence((((Element[P_5, j] * A22) * A23) * ℯ^((ί * (B22 + B23)))) + Element[P_2, 2], j, 1, Length[P_5])
V_c = Sequence((((Element[P_5, j] * A22) * A24) * ℯ^((ί * (B22 + B24)))) + Element[P_2, 3], j, 1, Length[P_5])
V_d = Sequence((((Element[P_5, j] * A22) * A25) * ℯ^((ί * (B22 + B25)))) + Element[P_2, 4], j, 1, Length[P_5])
V_e = Sequence((((Element[P_5, j] * A22) * A26) * ℯ^((ί * (B22 + B26)))) + Element[P_2, 5], j, 1, Length[P_5])
V_f = Sequence((((Element[P_5, j] * A23) * A22) * ℯ^((ί * (B23 + B22)))) + Element[P_2, 6], j, 1, Length[P_5])
V_g = Sequence((((Element[P_5, j] * A23) * A23) * ℯ^((ί * (B23 + B23)))) + Element[P_2, 7], j, 1, Length[P_5])
V_h = Sequence((((Element[P_5, j] * A23) * A24) * ℯ^((ί * (B23 + B24)))) + Element[P_2, 8], j, 1, Length[P_5])
V_i = Sequence((((Element[P_5, j] * A23) * A25) * ℯ^((ί * (B23 + B25)))) + Element[P_2, 9], j, 1, Length[P_5])
V_j = Sequence((((Element[P_5, j] * A23) * A26) * ℯ^((ί * (B23 + B26)))) + Element[P_2, 10], j, 1, Length[P_5])
V_k = Sequence((((Element[P_5, j] * A24) * A22) * ℯ^((ί * (B24 + B22)))) + Element[P_2, 11], j, 1, Length[P_5])
V_l = Sequence((((Element[P_5, j] * A24) * A23) * ℯ^((ί * (B24 + B23)))) + Element[P_2, 12], j, 1, Length[P_5])
V_m = Sequence((((Element[P_5, j] * A24) * A24) * ℯ^((ί * (B24 + B24)))) + Element[P_2, 13], j, 1, Length[P_5])
V_n = Sequence((((Element[P_5, j] * A24) * A25) * ℯ^((ί * (B24 + B25)))) + Element[P_2, 14], j, 1, Length[P_5])
V_o = Sequence((((Element[P_5, j] * A24) * A26) * ℯ^((ί * (B24 + B26)))) + Element[P_2, 15], j, 1, Length[P_5])
V_p = Sequence((((Element[P_5, j] * A25) * A22) * ℯ^((ί * (B25 + B22)))) + Element[P_2, 16], j, 1, Length[P_5])
V_q = Sequence((((Element[P_5, j] * A25) * A23) * ℯ^((ί * (B25 + B23)))) + Element[P_2, 17], j, 1, Length[P_5])
V_r = Sequence((((Element[P_5, j] * A25) * A24) * ℯ^((ί * (B25 + B24)))) + Element[P_2, 18], j, 1, Length[P_5])
V_s = Sequence((((Element[P_5, j] * A25) * A25) * ℯ^((ί * (B25 + B25)))) + Element[P_2, 19], j, 1, Length[P_5])
V_t = Sequence((((Element[P_5, j] * A25) * A26) * ℯ^((ί * (B25 + B26)))) + Element[P_2, 20], j, 1, Length[P_5])
V_u = Sequence((((Element[P_5, j] * A26) * A22) * ℯ^((ί * (B26 + B22)))) + Element[P_2, 21], j, 1, Length[P_5])
V_v = Sequence((((Element[P_5, j] * A26) * A23) * ℯ^((ί * (B26 + B23)))) + Element[P_2, 22], j, 1, Length[P_5])
V_w = Sequence((((Element[P_5, j] * A26) * A24) * ℯ^((ί * (B26 + B24)))) + Element[P_2, 23], j, 1, Length[P_5])
V_x = Sequence((((Element[P_5, j] * A26) * A25) * ℯ^((ί * (B26 + B25)))) + Element[P_2, 24], j, 1, Length[P_5])
V_y = Sequence((((Element[P_5, j] * A26) * A26) * ℯ^((ί * (B26 + B26)))) + Element[P_2, 25], j, 1, Length[P_5])
W_a = PolyLine(V_a)
W_b = PolyLine(V_b)
W_c = PolyLine(V_c)
W_d = PolyLine(V_d)
W_e = PolyLine(V_e)
W_f = PolyLine(V_f)
W_g = PolyLine(V_g)
W_h = PolyLine(V_h)
W_i = PolyLine(V_i)
W_j = PolyLine(V_j)
W_k = PolyLine(V_k)
W_l = PolyLine(V_l)
W_m = PolyLine(V_m)
W_n = PolyLine(V_n)
W_o = PolyLine(V_o)
W_p = PolyLine(V_p)
W_q = PolyLine(V_q)
W_r = PolyLine(V_r)
W_s = PolyLine(V_s)
W_t = PolyLine(V_t)
W_u = PolyLine(V_u)
W_v = PolyLine(V_v)
W_w = PolyLine(V_w)
W_x = PolyLine(V_x)
W_y = PolyLine(V_y)