VRP - šesťuholník

A_1→A:A_1A_o∥SS_o,A_1A∥SS'

B_1→B:B_1B_o∥SS_o,B_1B∥SS'

\text{Využijeme rovnobežnosť }CD∥AB∧AD∥BC

\text{Rovnobežník }ABCD

\text{Obrazy }A_sB_sC_sD_s\text{ stredov strán }ABCD

\text{Použijeme rytzovu konštrukciu pre  }A_sB_sC_sD_s

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 70°, step 0.08726646259971647)
text4: "α = " + (LaTeX[α]) + ""
S_0 = Point(xAxis)
S_{2} = Point(yAxis)
S' = Rotate(S_{2}, (-α), S_0)
β = Angle(S', S_0, S_{2})
f = Ray(S_0, S')
c = Circle(S_0, (q * y(S_{2})))
S_1 = Intersect(c, f, 1)
u = Vector(S_0, S_1)
v = Vector(S_{2}, S_1)
A_1 = (2, 12)
text2: "\text{ Zostrojte obraz kružnice vpísanej do štvorca }A_1B_1 ...\text{ vo VRP: }(  " + (LaTeX[α]) + "  ,q= " + (LaTeX[text5]) + "   )"
B_1 = (9.183835404259627, 6.74631052211078)
mnohouholník1, g, h, i, j, C_1, D_1 = Polygon(A_1, B_1, 4)
O_1 = Centroid(mnohouholník1)
A_1_s = Midpoint(A_1, B_1)
n = Line(A_1_s, O_1)
p = OrthogonalLine(O_1, n)
B_1_s = Intersect(p, h)
C_1_s = Intersect(n, i)
D_s_1 = Intersect(p, j)
d = Circle(O_1, A_1_s)