Date: 2 Juni 2013

x

y

A2 = 0
A3: A2 + 1
B2 = Random(-10, 10)
B3 = Random(-10, 10)
A4: A3 + 1
B4 = Random(-10, 10)
A5: A4 + 1
B5 = Random(-10, 10)
A6: A5 + 1
B6 = Random(-10, 10)
A7: A6 + 1
B7 = Random(-10, 10)
A8: A7 + 1
B8 = Random(-10, 10)
A9: A8 + 1
B9 = Random(-10, 10)
A10: A9 + 1
B10 = Random(-10, 10)
A11: A10 + 1
B11 = Random(-10, 10)
A12: A11 + 1
B12 = Random(-10, 10)
A13: A12 + 1
B13 = Random(-10, 10)
A14: A13 + 1
B14 = Random(-10, 10)
A15: A14 + 1
B15 = Random(-10, 10)
A16: A15 + 1
B16 = Random(-10, 10)
A17: A16 + 1
B17 = Random(-10, 10)
A18: A17 + 1
B18 = Random(-10, 10)
A19: A18 + 1
B19 = Random(-10, 10)
A20: A19 + 1
B20 = Random(-10, 10)
A21: A20 + 1
B21 = Random(-10, 10)
A22: A21 + 1
B22 = Random(-10, 10)
A: (A2, B2)
B: (A3, B3)
C: (A4, B4)
D: (A5, B5)
E: (A6, B6)
F: (A7, B7)
G: (A8, B8)
H: (A9, B9)
I: (A10, B10)
J: (A11, B11)
K: (A12, B12)
L: (A13, B13)
M: (A14, B14)
N: (A15, B15)
O: (A16, B16)
P: (A17, B17)
Q: (A18, B18)
R: (A19, B19)
S: (A20, B20)
T: (A21, B21)
U: (A22, B22)
Liste1: {A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U}
V: (A2, B2)
W: (A3, B3)
Z: (A4, B4)
A_1: (A5, B5)
B_1: (A6, B6)
C_1: (A7, B7)
D_1: (A8, B8)
E_1: (A9, B9)
F_1: (A10, B10)
G_1: (A11, B11)
H_1: (A12, B12)
I_1: (A13, B13)
J_1: (A14, B14)
K_1: (A15, B15)
L_1: (A16, B16)
M_1: (A17, B17)
N_1: (A18, B18)
O_1: (A19, B19)
P_1: (A20, B20)
Q_1: (A21, B21)
R_1: (A22, B22)
a = PolyLine({V, W, Z, A_1, B_1, C_1, D_1, E_1, F_1, G_1, H_1, I_1, J_1, K_1, L_1, M_1, N_1, O_1, P_1, Q_1, R_1})
n = 2 (slider from 2 to 5, step 1)
Liste2 = Sequence(Element[Liste1, i], i, 1, 21, n)
Liste3 = Sequence(Segment[Element[Liste2, i], Element[Liste2, i + 1]], i, 1, ceil(20 / n))