VRP - šesťuholník

\text{Postupne zostrojíme}

o

\text{1. Úsečku }AB=7 cm

\text{2. 6-uholník }ABCDEF

n = 6 (slider from 3 to 6, step 1)
E_{1} = Point(xAxis)
text1: "n =" + (LaTeX[n]) + ""
α = 1.0471975511965976 rad (slider from 10° to 70°, step 0.08726646259971647)
text2: "α = " + (LaTeX[α]) + ""
q = 0.6666666666666666 (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_{1})
S_{2} = Point(yAxis)
g = Segment(S_{2}, S_0)
S' = Rotate(S_{2}, (-α), 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_{2})
u = Segment(S_0, S_1)
s = Vector(S_{2}, S_1)
m = Line(S_0, S_{2})
text4: "\text{ Zostrojte pravidelný  }" + (LaTeX[n]) + " \text{ -boký hranol }VRP\left(  " + (LaTeX[α]) + " ,q=" + (LaTeX[z_1]) + " \right) ."
A = Point(o)
B = Point(Circle[A, 7])
f = Segment(A, B)
mnohouholník1, h, i, j, k, l, p, C, D, E, F = Polygon(A, B, 6)
t = Line(D, s)
a = Line(B, u)
b = Line(C, m)
H = Intersect(o, b)
e = Line(H, a)
f_1 = Line(C, t)
C' = Intersect(e, f_1)
D' = Intersect(a, t)
K = Centroid(mnohouholník1)
g_1 = Line(K, m)
L = Intersect(o, g_1)
h_1 = Line(L, u)
i_1 = Line(K, s)
S = Intersect(h_1, i_1)
G' = Mirror(C', S)
F' = Mirror(B, S)
mnohouholník2, a_1, b_1, i_2, j_1, b', i' = Polygon(A, B, C', D', F', G')