A'

A'

A'

Dráha bodu A

n = 4 (slider from 1 to 10, step 1)
a = 4.71238898038469 (slider from 0 to (2 * π / n) + (2 * π / n) + (2 * π / n), step π / 20)
A = Point(yAxis)
s = OrthogonalLine(A, yAxis)
B = Point(s)
M1, f, g, h, k, i, p_1, t_1, C, D, E, O, S = Polygon(A, B, n)
M2 = If(0 < a < (2 * π / n), Rotate[M1, (-a), B])
c = Circle(B, A)
B_1 = Intersect(c, s, 2)
d = Circle(B_1, B)
B_2 = Intersect(d, s, 2)
e = Circle(B_2, B_1)
B_3 = Intersect(e, s, 2)
p = Circle(B_3, B_2)
M3, j, l, m, r, l_1, q_1, a_1, F, G, L, P, T = Polygon(B, B_1, n)
M4 = If((2 * π / n) < a < (2 * π / n) + (2 * π / n), Rotate[M3, (-a) + (2 * π / n), B_1])
M5, t, b, f_1, g_1, m_1, r_1, b_1, H, I, M, Q, U = Polygon(B_1, B_2, n)
M6 = If((2 * π / n) + (2 * π / n) < a < (2 * π / n) + (2 * π / n) + (2 * π / n), Rotate[M5, (-a) + (2 * π / n) + (2 * π / n), B_2])
M7, q, h_1, i_1, j_1, J, K = Polygon(B_2, B_3, n)
N = If(0 < a < (2 * π / n), Rotate[A, (-a), B])
R = If((2 * π / n) < a < (2 * π / n) + (2 * π / n), Rotate[G, (-a) + (2 * π / n), B_1])
V = If((2 * π / n) + (2 * π / n) < a < (2 * π / n) + (2 * π / n) + (2 * π / n), Rotate[K, (-a) + (2 * π / n) + (2 * π / n), B_2])
GMB1 = Locus(N, a)
GMB2 = Locus(R, a)
GMB3 = Locus(V, a)
o = false