VRP - šesťuholník

\text{Postupne zostrojíme}

o

\text{ Zostrojte teleso, ktorého vrcholy sú stredy stien pravidelného 6-bokého hranola:}  \left|AB\right| =6, \; AB∥ν,  \; v=11

\text{1. Bod }B∈o:AB=6 \text{ ... stred 6-uholníka }O

\text{2. Šesťuholník }ABCDEF

\text{3. Obraz 6-uholníka vo VRP: }A'B'C'D'E'F'

\text{4. Hranol }A'B'C'D'E'F'A'_1B'_1C'_1D'_1E'_1F'_1

\text{5. Stredy stien hranola }A'B'C'D'E'F'A'_1...

\text{6. Hľadané teleso }

n = 6 (slider from 3 to 6, step 1)
E = Point(xAxis)
text1: "n =" + (LaTeX[n]) + ""
α = 0.5235987755982988 rad (slider from 10° to 70°, step 0.08726646259971647)
text2: "α = " + (LaTeX[α]) + ""
q = 0.5 (slider from 0 to 1, step 1 / 6)
z_1 = FractionText(q)
text3: "q =" + (LaTeX[z_1]) + ""
S_0 = Point(xAxis)
o = Line(S_0, E)
S = Point(yAxis)
g = Segment(S, S_0)
S' = Rotate(S, (-α), S_0)
R: S'
r = Ray(S_0, R)
d = Length(g)
c = Circle(S_0, (d * q))
S_1 = Intersect(c, r, 1)
β = Angle(S_1, S_0, S)
u = Segment(S_0, S_1)
s = Vector(S, S_1)
m = Line(S_0, S)
A = (8, 0)
B = Point(Circle[A, 6])
f = Segment(A, B)
e = Circle(A, B)
h = Circle(B, A)
O = Intersect(e, h, 1)
k = Circle(O, A)
C = Intersect(h, k, 2)
p = Circle(C, B)
D = Intersect(k, p, 1)
t = Circle(D, O)
F = Intersect(k, t, 1)
G = Intersect(e, k, 1)
i = Segment(B, C)
j = Segment(C, D)
l = Segment(D, F)
a = Segment(F, G)
b = Segment(G, A)
f_1 = OrthogonalLine(C, o)
H = Intersect(o, f_1)
g_1 = Line(D, s)
h_1 = Line(C, s)
i_1 = Line(H, u)
j_1 = Line(B, u)
D' = Intersect(j_1, g_1)
B' = Intersect(i_1, h_1)
k_1 = Segment(B, B')
l_1 = Segment(B', D')
m_1 = Line(D', o)
n_1 = Line(F, s)
F' = Intersect(m_1, n_1)
p_1 = Line(F, G)
I = Intersect(e, o, 1)
q_1 = Line(I, F')
r_1 = Line(G, s)
G' = Intersect(q_1, r_1)
s_1 = Segment(A, G')
t_1 = Segment(G', F')
a_1 = Segment(F', D')
b_1 = OrthogonalLine(G', o)
c_1 = OrthogonalLine(A, o)
d_1 = OrthogonalLine(B, o)
e_1 = OrthogonalLine(B', o)
f_2 = OrthogonalLine(F', o)
c_2 = Circle(A, 11)
J, A'_1 = Intersect(c_2, c_1)
g_2 = Segment(A, A'_1)
h_2 = Line(A'_1, o)
B'_1 = Intersect(d_1, h_2)
i_2 = Segment(A'_1, B'_1)
j_2 = Segment(B'_1, B)
k_2 = Line(B'_1, k_1)
K = Intersect(e_1, k_2)
l_2 = Line(K, l_1)
n_2 = Line(A'_1, s_1)
N = Intersect(n_2, b_1)
p_2 = Segment(B'_1, K)
t_2 = Segment(N, A'_1)
a_2 = Segment(K, B')
b_2 = Segment(N, G')
f_5 = OrthogonalLine(D', o)
L = Intersect(l_2, f_5)
m_2 = Line(L, o)
M = Intersect(f_2, m_2)
q_2 = Segment(K, L)
r_2 = Segment(L, M)
s_2 = Segment(M, N)
d_2 = Segment(L, D')
e_2 = Segment(M, F')
mnohouholník1, a_3, b_3, b', d', f', g' = Polygon(A, B, B', D', F', G')
P = Centroid(mnohouholník1)
q1, b_4, f_3, k_3, b'_1 = Polygon(B, B', K, B'_1)
Q = Centroid(q1)
q2, g_3, h_3, k_4, l_3 = Polygon(D', B', K, L)
T = Centroid(q2)
q3, i_3, j_3, l_4, m_3 = Polygon(F', D', L, M)
U = Centroid(q3)
q4, n_3, p_3, m_4, n_4 = Polygon(G', F', M, N)
V = Centroid(q4)
q6, r_3, a_5, s_3, n_6 = Polygon(G', A, A'_1, N)
Z = Centroid(q6)
mnohouholník2, t_3, c_3, k_5, l_5, m_5, n_7 = Polygon(A'_1, B'_1, K, L, M, N)
A_1 = Centroid(mnohouholník2)
f_4 = Segment(Q, O)
r_4 = Segment(P, Q)
s_4 = Segment(P, O)
q_3 = Segment(P, Z)
d_3 = Segment(Z, V)
e_3 = Segment(Z, A_1)
g_4 = Segment(A_1, V)
h_4 = Segment(A_1, T)
i_4 = Segment(T, P)
j_4 = Segment(Q, T)
p_4 = Segment(O, Z)
q_4 = Segment(V, U)
t_4 = Segment(U, A_1)
a_4 = Segment(U, T)
c_4 = Segment(A_1, O)
d_4 = Segment(A_1, Q)