Kružnice

Elipsa

Parabola

Hyperbola

φ = α

φ = 90°

α < φ < 90°

φ < α

φ_1 = 1.3439035240356338 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
V = (3.3063569641297077, 8.73061737357715)
f(x) = x - x(V) + y(V)
F_1: V - (0.0, 7.0)
E_1: V + (0.0, 3.5)
a_2 = Segment(E_1, F_1)
c: y = y(V) - 3.0
D = Intersect(f, c, 1.0)
b_2: y = y(V) + 3.0
B = Intersect(f, b_2, 1.0)
a_3 = Line(D, B)
g(x) = -(x - x(V)) + y(V)
C = Intersect(g, c, 1.0)
A = Intersect(g, b_2, 1.0)
d = Segment(A, C)
G = Point(d)
j = Line(G, a_2)
H = Point(j)
H' = Rotate(H, -(φ_1), G)
k = Line(G, H')
Q = Intersect(k, a_3)
S = Midpoint(Q, G)
g_1 = Line(A, C)
q, r = AngularBisector(k, g_1)
O = Intersect(q, a_2)
t = OrthogonalLine(O, k)
F = Intersect(k, t)
e_1 = Segment(D, B)
h = Segment(A, B)
i = Segment(D, C)
α_1 = Angle(H', G, H)
I = Point(k)
J = Point(k)
l = Segment(J, I)
K = Intersect(e_1, l)
L = Intersect(k, c)
m = Segment(K, G)
n = Segment(L, G)
M = Intersect(h, l)
mnohoúhelník1, b_1, a_1, v = Polygon(A, V, B)
mnohoúhelník2, c_1, v_1, d_1 = Polygon(V, D, C)
N = Intersect(a_2, l)
φ = Angle(J, N, F_1)
α = Angle(D, V, F_1)
f_1 = Line(E_1, O)
e = Distance(S, F)
P = Intersect(r, f_1)
R = Intersect(e, k, (-25.364642642320682, 0.5414435208196142))
h_1 = Circle(O, F)
a = Distance(S, G)
s = OrthogonalLine(P, k)
E = Intersect(k, s)
k_1 = Circle(P, E)
b: sqrt(a^(2.0) - e^(2.0))
b1: sqrt(e^(2.0) - a^(2.0))
p: 2.0 * Distance[F, G]
T = Intersect(e_1, a_1)
U = Intersect(l, a_1)
i_1 = Segment(U, M)
q_1: (x - a)^(2.0) / a^(2.0) - y^(2.0) / b1^(2.0) = 1.0
s_1(x) = sqrt(b^(2.0) - b^(2.0) * (x + a)^(2.0) / a^(2.0))
f_2(x) = -sqrt(b^(2.0) - b^(2.0) * (x + a)^(2.0) / a^(2.0))
t_1(x) = sqrt(b^(2.0) - b^(2.0) * (x + a)^(2.0) / a^(2.0))
p_1: (x + a)^(2.0) / a^(2.0) + y^(2.0) / b^(2.0) = 1.0
elip: p_1
r_1: y^(2.0) = -(2.0) * p * x
p_2 = Function(-sqrt(-2.0 * p * x), 0.0, 2.0)
h_2 = Function(t_1, -(Distance[G, L]), 0.0)
g_2 = Function(f_2, -(Distance[G, L]), 0.0)
r_2 = Function(sqrt(2.0 * p * abs(x)), -(Distance[G, L]), 0.0)
s_2 = Function(-sqrt(2.0 * p * abs(x)), -(Distance[G, L]), 0.0)
t_2(x) = b1 * sqrt((x - a)^(2.0) / a^(2.0) - 1.0)
f_3 = Function(b1 * sqrt((x - a)^(2.0) / a^(2.0) - 1.0), -(Distance[G, L]), 0.0)
o = Distance(G, L)
g_3 = Function(-(b1) * sqrt((x - a)^(2.0) / a^(2.0) - 1.0), -(Distance[G, L]), 0.0)
W = Intersect(a_3, k)
qqq = Function(-(b1) * sqrt((x - a)^(2.0) / a^(2.0) - 1.0), 2.0 * a, 2.0 * a + Distance[W, M])
www = Function(b1 * sqrt((x - a)^(2.0) / a^(2.0) - 1.0), 2.0 * a, 2.0 * a + Distance[W, M])
c_2 = Circle((-(a), 0.0), a)
text5: "φ = " + φ_1
Z = (-8.50142312837768, 4.23176427521591)
A_1 = (-8.50142312837768, -6.548162348516949)
B_1 = (17.01942641338988, -6.573231945316328)
C_1 = (16.894078429392987, 4.2066946784165316)
mnohoúhelník3, z, a_4, b_3, c_3 = Polygon(Z, A_1, B_1, C_1)