A1 = 10
B1 = 0
A2: A1 - B1 * (2 - sqrt(3))
B2: (2 - sqrt(3)) * A1 + B1
A3: A2 - B2 * (2 - sqrt(3))
B3: (2 - sqrt(3)) * A2 + B2
A4: A3 - B3 * (2 - sqrt(3))
B4: (2 - sqrt(3)) * A3 + B3
A5: A4 - B4 * (2 - sqrt(3))
B5: (2 - sqrt(3)) * A4 + B4
A6: A5 - B5 * (2 - sqrt(3))
B6: (2 - sqrt(3)) * A5 + B5
A7: A6 - B6 * (2 - sqrt(3))
B7: (2 - sqrt(3)) * A6 + B6
A8: A7 - B7 * (2 - sqrt(3))
B8: (2 - sqrt(3)) * A7 + B7
A9: A8 - B8 * (2 - sqrt(3))
B9: (2 - sqrt(3)) * A8 + B8
A10: A9 - B9 * (2 - sqrt(3))
B10: (2 - sqrt(3)) * A9 + B9
A11: A10 - B10 * (2 - sqrt(3))
B11: (2 - sqrt(3)) * A10 + B10
A12: A11 - B11 * (2 - sqrt(3))
B12: (2 - sqrt(3)) * A11 + B11
A13: A12 - B12 * (2 - sqrt(3))
B13: (2 - sqrt(3)) * A12 + B12
A14: A13 - B13 * (2 - sqrt(3))
B14: (2 - sqrt(3)) * A13 + B13
A15: A14 - B14 * (2 - sqrt(3))
B15: (2 - sqrt(3)) * A14 + B14
A16: A15 - B15 * (2 - sqrt(3))
B16: (2 - sqrt(3)) * A15 + B15
A17: A16 - B16 * (2 - sqrt(3))
B17: (2 - sqrt(3)) * A16 + B16
A: (A1, B1)
B: (A2, B2)
C: (A3, B3)
D: (A4, B4)
E: (A5, B5)
F: (A6, B6)
G: (A7, B7)
H: (A8, B8)
I: (A9, B9)
J: (A10, B10)
K: (A11, B11)
L: (A12, B12)
M: (A13, B13)
N: (A14, B14)
O: (A15, B15)
P: (A16, B16)
Q: (A17, B17)
liste1: {A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q}
a: Distance[B, C] / Distance[A, B]
b: Distance[D, C] / Distance[B, C]
d = Vector(B, C)
c = Vector(A, B)
e = Vector(C, D)
α = Angle(c, d)
β = Angle(d, e)