$\vec{a}_1$

a_0: 1
phi = -1.8869816339744823 (slider from (-2.5 * π) to (2.5 * π), step 5.0E-4)
O = Intersect(xAxis, yAxis)
A_1: ((a_0 * cos(phi)), (a_0 * sin(phi)))
u = Vector(O, A_1)
A_2: ((a_0 * cos((2 * phi))), (a_0 * sin((2 * phi))))
A_3: ((a_0 * cos((3 * phi))), (a_0 * sin((3 * phi))))
A_4: ((a_0 * cos((4 * phi))), (a_0 * sin((4 * phi))))
A_5: ((a_0 * cos((5 * phi))), (a_0 * sin((5 * phi))))
A_6: ((a_0 * cos((6 * phi))), (a_0 * sin((6 * phi))))
A_7: ((a_0 * cos((7 * phi))), (a_0 * sin((7 * phi))))
A_8: ((a_0 * cos((8 * phi))), (a_0 * sin((8 * phi))))
A_9: ((a_0 * cos((9 * phi))), (a_0 * sin((9 * phi))))
A_{10}: ((a_0 * cos((10 * phi))), (a_0 * sin((10 * phi))))
v = Vector(O, A_7)
w = Vector(O, A_2)
a = Vector(O, A_8)
b = Vector(O, A_3)
c = Vector(O, A_9)
d = Vector(O, A_4)
e = Vector(O, A_{10})
f = Vector(O, A_5)
g = Vector(O, A_6)
A = Translate(A_1, w)
h = Vector(A_1, A)
A' = Translate(A, b)
i = Vector(A, A')
A'' = Translate(A', d)
j = Vector(A', A'')
A''' = Translate(A'', f)
k = Vector(A'', A''')
B = Translate(A''', g)
l = Vector(A''', B)
B' = Translate(B, v)
m = Vector(B, B')
B'' = Translate(B', a)
n = Vector(B', B'')
B''' = Translate(B'', c)
p = Vector(B'', B''')
C = Translate(B''', e)
q = Vector(B''', C)
r = Segment(O, C)
distanceOC = Distance(O, C)
TexteOC: Name[O] + (Name[C]) + " = " + distanceOC
Intensite: (phi, distanceOC^(2))