VRP - šesťuholník

1

2

q = 0.5 (slider from 1 / 12 to 3, step 1 / 12)
text5 = SurdText(q)
text1: "q=" + (LaTeX[text5]) + ""
α = 0.7853981633974483 rad (slider from 10° to 150°, step 0.08726646259971647)
text4: "α = " + (LaTeX[α]) + ""
S_0 = Point(xAxis)
S = Point(yAxis)
S' = Rotate(S, (-α), S_0)
β = Angle(S', S_0, S)
f = Ray(S_0, S')
c = Circle(S_0, (q * y(S)))
S_1 = Intersect(c, f, 1)
u = Vector(S_0, S_1)
v = Vector(S, S_1)
A_1 = (3.9587254908961276, 6.6968135385254755)
k = 6 (slider from 1 to 10, step 1)
l = 6 (slider from 1 to 10, step 1)
m = 6 (slider from 1 to 10, step 1)
B_1 = Point(Circle[A_1, k])
g = Segment(A_1, B_1)
h = OrthogonalLine(A_1, g)
d = Circle(A_1, m)
D_1 = Intersect(d, h, 2)
i = OrthogonalLine(D_1, h)
j = OrthogonalLine(B_1, g)
C_1 = Intersect(i, j)
n = Line(A_1, v)
A_{2} = Intersect(h, xAxis)
B_{2} = Intersect(j, xAxis)
p = Line(A_{2}, u)
r = Line(B_{2}, p)
s = Line(B_1, n)
A = Intersect(n, p)
B = Intersect(r, s)
t = Line(D_1, n)
a = Line(C_1, t)
D = Intersect(p, t)
C = Intersect(r, a)
q1, c_1, e, f_1, d_1 = Polygon(A, D, C, B)
q2, k_1, l_1, m_1, n_1 = Polygon(A_1, B_1, C_1, D_1)
D_{2} = Point(yAxis)
C_{2}: (0, l + y(D_{2}))
w = Vector(D_{2}, C_{2})
E = Translate(A, w)
H = Translate(D, w)
G = Translate(C, w)
F = Translate(B, w)
q1', k', n', m', l' = Polygon(E, H, G, F)
b = Segment(D, H)
g_1 = Segment(C, G)
h_1 = Segment(A, E)
i_1 = Segment(B, F)
j_1 = Segment(A_1, A_{2})
p_1 = Segment(A_{2}, A)
q_1 = Segment(A, A_1)
r_1 = Segment(B_1, B_{2})
s_1 = Segment(B_{2}, B)
t_1 = Segment(B_1, B)