VRP - šesťuholník

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

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

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

\text{Vzor a obraz priamky sa pretínajú na osi }x

\text{Štvorec }A_1B_1C_1D_1

\text{Postupne zostrojíme obrazy: }C,D

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

\text{Rovnobežník }ABCD

α = 0.7853981633974483 rad (slider from 10° to 70°, step 0.08726646259971647)
text1: "α = " + (LaTeX[α]) + ""
q = 0.5 (slider from 0 to 1, step 1 / 6)
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 = (-5.5, 1.5)
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_{1} = (-2.1519261590065115, 0.9403296321489462)
B_{1} = (1.9274325276844158, -1.3095673558416934)
m = Segment(A_{1}, B_{1})
f = Line(A_{1}, y_s)
A_o = Intersect(f, xAxis)
h = Line(A_{1}, u)
j = Line(A_o, s_0)
A = Intersect(h, j)
g = Line(B_{1}, f)
B_o = Intersect(g, xAxis)
i = Line(B_{1}, h)
k = Line(B_o, j)
B = Intersect(i, k)
i_1 = Segment(A, B)
l = Line(A_{1}, B_{1})
p = Line(A, B)
mnohouholník1, r, t, a, C_{2}, C_1, D_1 = Polygon(A_{1}, B_{1}, 4)
b = Line(C_1, g)
c = Line(C_1, i)
C_o = Intersect(b, xAxis)
d = Line(C_o, k)
C = Intersect(c, d)
e = Segment(B, C)
f_1 = Line(C, i_1)
g_1 = Line(A, e)
D = Intersect(f_1, g_1)
h_1 = Segment(C, D)
j_1 = Segment(D, A)