VRP - šesťuholník

q = 0.75 (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 = 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 = (12.694144516548615, 10.904085374407618)
g = Line(A, xAxis)
B = Point(g)
C = (20.427183682284042, 13.89643531245307)
D = (16.728773646497533, 16.586188065752353)
E = (15.11492199451797, 14.299898225447963)
h = Segment(A, B)
i = Segment(B, C)
j = Segment(C, D)
k = Segment(D, E)