VRP - šesťuholník

\text{Postupne zostrojíme}

o

n = 5 (slider from 3 to 6, step 1)
E = Point(xAxis)
text1: "n =" + (LaTeX[n]) + ""
α = 0.6981317007977318 rad (slider from 10° to 70°, step 0.08726646259971647)
text2: "α = " + (LaTeX[α]) + ""
q = 0.5 (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)
S = Point(yAxis)
g = Segment(S, S_0)
S' = Rotate(S, (-α), 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)
u = Segment(S_0, S_1)
s = Vector(S, S_1)
text4: "\text{ Zostrojte obraz }" + (LaTeX[n]) + " \text{ -uholníka vo }VRP (" + (LaTeX[α]) + " ,q=" + (LaTeX[z_1]) + " )"
m = Line(S_0, S)
A = (7.78, 1.2)
B = (11.78, 2.36)
mnohouholník1, f, h, i, j, p, t, k, l, C, D, G, H, F, I = Polygon(A, B, n)