VRP - šesťuholník

\text{Body }S,S_0\text{ je možné posunúť.

\text{Zlatý rez k }IK →OW

\text{Zostrojme }K_1,K_2:\left| KK_i \right| =\left|OW  \right| 

\text{Podobne }N_i,R_i, \; i=1,2

\text{Zostrojme }K'_1,K'_2:\left| K_iK'_i \right| =\left|OW  \right| 

\text{Podobne }N'_i,R'_i, \; i=1,2

\text{Stredovo súmerné body podľa farby } ...

α = 1.0471975511965976 rad (slider from 10° to 70°, step 0.08726646259971647)
text1: "α = " + (LaTeX[α]) + ""
q = 0.3333333333333333 (slider from 0 to 1, step 1 / 6)
zlom = FractionText(q)
textZ: "\text{ Zostrojte obraz dvanásťstena vo }VRP (" + (LaTeX[α]) + " ,q=" + (LaTeX[zlom]) + " )"
text2: "q =" + (LaTeX[zlom]) + ""
n = 6 (slider from 5 to 8, step 1)
text3: "n =" + (LaTeX[n]) + ""
S_o = Point(xAxis)
S = (-5.025198066232633, 1.9786930596559396)
y_s = Line(S_o, S)
s = Segment(S, S_o)
S'_{1} = Rotate(S, (-α), S_o)
S' = Dilate(S'_{1}, q, S_o)
u = Vector(S, S')
s_0 = Segment(S_o, S')
A_{1} = (-1.4133236112769596, -1.2641148914378422)
B_{1} = (1.9274325276844106, -1.2982042397407305)
m = Segment(A_{1}, B_{1})
f = Line(A_{1}, y_s)
A_o = Intersect(f, xAxis)
h = Line(A_{1}, u)
j = Line(A_o, s_0)
A = Intersect(h, j)
g = Line(B_{1}, f)
B_o = Intersect(g, xAxis)
i = Line(B_{1}, h)
k = Line(B_o, j)
B = Intersect(i, k)
i_1 = Segment(A, B)
l = Line(A_{1}, B_{1})
p = Line(A, B)
mnohouholník1, r, t, a, C_{2}, C_1, D_1 = Polygon(A_{1}, B_{1}, 4)
b = Line(C_1, g)
c = Line(C_1, i)
C_o = Intersect(b, xAxis)
d = Line(C_o, k)
C = Intersect(c, d)
e = Segment(B, C)
f_1 = Line(C, i_1)
g_1 = Line(A, e)
D = Intersect(f_1, g_1)
h_1 = Segment(C, D)
j_1 = Segment(D, A)
k_1 = Line(A, y_s)
l_1 = Line(B, k_1)
m_1 = Line(C, l_1)
n_1 = Line(D, l_1)
c_1 = Circle(B, A)
E = Intersect(c_1, l_1, 2)
p_1 = Line(E, e)
q_1 = Line(E, i_1)
F = Intersect(k_1, q_1)
G = Intersect(m_1, p_1)
r_1 = Line(G, q_1)
H = Intersect(n_1, r_1)
s_1 = Segment(A, F)
t_1 = Segment(F, E)
a_1 = Segment(E, G)
b_1 = Segment(G, C)
d_1 = Segment(E, B)
e_1 = Segment(H, D)
f_2 = Segment(H, F)
g_2 = Segment(H, G)
I = Midpoint(F, H)
J = Midpoint(E, G)
h_2 = Segment(I, J)
K = Midpoint(I, J)
L = Midpoint(E, B)
M = Midpoint(G, C)
N = Midpoint(L, M)
P = Midpoint(F, E)
Q = Midpoint(A, B)
R = Midpoint(P, Q)
i_2 = Segment(P, Q)
j_2 = Segment(L, M)
O = (-3.4706207956947908, -0.5496521237747473)
T = Point(Circle[O, Distance[A, Q]])
k_2 = Segment(O, T)
c_2 = Circle(T, (1 / 2 * Distance[O, T]))
l_2 = OrthogonalLine(T, k_2)
U = Intersect(c_2, l_2, 2)
m_2 = Segment(O, U)
d_2 = Circle(U, T)
V = Intersect(d_2, m_2)
e_2 = Circle(O, V)
W = Intersect(e_2, k_2)
p_2 = CircleArc(O, W, V)
q_2 = CircleArc(U, V, T)
n_2 = Segment(T, U)
r_2 = Segment(O, W)
s_2 = Circle(K, Segment[O, W])
K_1, K_2 = Intersect(s_2, h_2)
t_2 = Line(K, j_2)
a_2 = Line(I, P)
b_2 = Line(K_1, a_2)
Z = Intersect(t_2, b_2)
c_3 = Circle(N, Segment[K, Z])
d_3 = Circle(R, Segment[O, W])
R_2, R_1 = Intersect(d_3, i_2)
f_3 = Line(K_1, s_1)
g_3 = Line(K_2, s_1)
q_4 = Line(K_1, s_1)
e_3 = Circle(K_1, Segment[O, W])
K'_1 = Intersect(e_3, f_3, 2)
h_3 = Line(K'_1, h_2)
K'_2 = Intersect(g_3, h_3)
r_3 = Segment(K_1, K'_1)
s_3 = Segment(K_2, K'_2)
m_3 = Line(R_2, a_1)
n_3 = Line(R_1, m_3)
p_3 = Circle(R_2, (q * Distance[O, W]))
R'_2 = Intersect(p_3, m_3, 2)
q_3 = Line(R'_2, i_2)
b_3 = Segment(R_2, R'_2)
mnohouholník2, r'_2, e_4, k'_2, k'_1, f_5 = Polygon(R'_2, E, K'_2, K'_1, F)