VRP - šesťuholník

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

α = 2.356194490192345 rad (slider from 10° to 135°, step 0.08726646259971647)
text1: "α = " + (LaTeX[α]) + ""
q = 0.8333333333333333 (slider from 0 to 1, step 1 / 12)
zlom = FractionText(q)
text2: "q =" + (LaTeX[zlom]) + ""
n = 6 (slider from 5 to 8, step 1)
text3: "n =" + (LaTeX[n]) + ""
S_o = Point(xAxis)
S = (-10.10958558027881, 1.9937371162099888)
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')
textZ: "\text{ Zostrojte obraz } \text{ ... vo }VRP (" + (LaTeX[α]) + " ,q=" + (LaTeX[zlom]) + " )"
A = (-4, 0)
B = (5.040996223568137, 0.045109234549608225)
m = Segment(A, B)
mnohouholník1, f, g, h, i, A_{2}, B_{2} = Polygon(A, B, 4)
j = Line(B_{2}, u)
k = Line(A, s_0)
D_1 = Intersect(j, k)
l = Line(D_1, i)
p = Line(D_1, xAxis)
r = Line(B, k)
C_1 = Intersect(p, r)
t = Line(C_1, l)
a = Line(A_{2}, r)
F = Intersect(t, a)
b = Line(B_{2}, r)
E = Intersect(l, b)
d = Segment(E, F)
e = Segment(B_{2}, E)
g_1 = Segment(A_{2}, F)
h_1 = Segment(F, C_1)
i_1 = Segment(C_1, B)
j_1 = Segment(E, D_1)
k_1 = Segment(D_1, A)
l_1 = Segment(D_1, C_1)
C = Midpoint(A, B)
D = Midpoint(B, C_1)
H = Midpoint(A_{2}, B)
I = Midpoint(B_{2}, A_{2})
J = Midpoint(A_{2}, F)
L = Midpoint(F, C_1)
M = Midpoint(C_1, D_1)
P = Midpoint(B_{2}, A)
Q = Midpoint(A, D_1)
G = Midpoint(E, D_1)
N = Midpoint(E, F)
K = Midpoint(B_{2}, E)
n_1 = Segment(G, N)
r_1 = Segment(N, K)
s_1 = Segment(K, G)
t_1 = Segment(J, N)
a_1 = Segment(J, I)
b_1 = Segment(I, K)
c_1 = Segment(I, H)
d_1 = Segment(H, J)
q_1 = Segment(Q, P)
e_1 = Segment(P, K)
f_2 = Segment(Q, G)
g_2 = Segment(G, M)
h_2 = Segment(L, N)
p_1 = Segment(M, L)
i_2 = Segment(J, L)
j_2 = Segment(Q, M)
k_2 = Segment(P, I)
l_2 = Segment(P, C)
m_2 = Segment(C, Q)
n_2 = Segment(C, H)
p_2 = Segment(H, D)
s_2 = Segment(C, D)
q_2 = Segment(D, M)
r_2 = Segment(D, L)
t1, i_3, p_3, k_3 = Polygon(P, K, I)
t2, d_2, m_1, l_3 = Polygon(M, L, D)
mnohouholník2, q_3, g_3, n_3, j_3, h_3, c = Polygon(Q, G, N, J, H, C)