VRP - šesťuholník

1

2

\text{1. Obrazy }A,B,O, C

\text{2. Kružnica }k(O_1,r=O_1C_1)

3

\text{3. Bod a obraz }M_1∈k, M

\text{4. GM bodu }M\text{ je elipsa } e(O,C,M) 

\text{5. Rotačný dvojkužeľ

q = 0.75 (slider from 1 / 12 to 3, step 1 / 12)
text5 = SurdText(q)
text1: "q=" + (LaTeX[text5]) + ""
α = 1.0471975511965976 rad (slider from 5° to 180°, 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)
B_{1} = (8.911583220422234, 3.7313633538282343)
k_b = OrthogonalLine(B_{1}, xAxis)
V = Point(Circle[B_{1}, 5.5])
h = Segment(B_{1}, V)
m = OrthogonalLine(V, xAxis)
k_{4} = Circle(V, 7)
V_2, V_1 = Intersect(k_{4}, m)
k_2 = Circle(B_{1}, V_1)
A_{1} = Intersect(k_2, k_b, 2)
k_{1} = Semicircle(A_{1}, B_{1})
k_3 = Circle(B_{1}, V)
C_{1} = Intersect(k_{1}, k_3, 1)
b_1 = Segment(A_{1}, C_{1})
a_1 = Segment(B_{1}, C_{1})
c_1 = Segment(B_{1}, A_{1})
n = OrthogonalLine(C_{1}, c_1)
O_{1} = Intersect(n, c_1)
E_1 = Intersect(k_b, xAxis)
r_1 = Line(E_1, u)
s_b = Line(B_{1}, v)
s_a = Line(A_{1}, v)
s_o = Line(O_{1}, s_a)
s_c = Line(C_{1}, s_a)
O = Intersect(s_o, r_1)
k_c = Line(C_{1}, k_b)
E_{2} = Intersect(k_c, xAxis)
f_1 = Line(E_{2}, r_1)
C = Intersect(s_c, f_1)
g_1 = Line(O, k_c)
A = Intersect(s_a, g_1)
B = Intersect(s_b, g_1)
o = Segment(A, B)
k = Circle(O_{1}, C_{1})
M_{1} = Point(k)
s_m = Line(M_{1}, s_o)
k_m = Line(M_{1}, k_b)
E_3 = Intersect(xAxis, k_m)
r_3 = Line(E_3, f_1)
M = Intersect(r_3, s_m)
GMB1 = Locus(M, M_{1})
C' = Mirror(C, O)
M' = Mirror(M, O)
D = Point(GMB1)
d = Conic(D, C, M, C', M')
g, i = Tangent(A, d)
T_1 = Intersect(d, i)
T_2 = Intersect(d, g)
j, l = Tangent(B, d)
T_3 = Intersect(d, j)
T_4 = Intersect(d, l)
p = Segment(B, T_3)
r = Segment(A, T_1)
s = Segment(A, T_2)
t = Segment(T_4, B)