Proporción constante

Lado recto

Eje principal

Primer vértice

Segundo vértice

Centro

Eje secundario

Segunda directriz

Segundo foco

Distancia focal

Asíntotas

Eje principal

p e

V'

Lado recto

Eje secundario

d = false
ladoRecto = false
g = false
f = false
o = false
j = false
h = false
n = false
k = false
t = false
i = false
F = (8.88, 2.6)
B = (9.34, -4.24)
C_1 = (4.2, 5.76)
directriz = Line(C_1, B)
ejet = OrthogonalLine(F, directriz)
D = Intersect(directriz, ejet)
d_1 = Circle(F, D)
p_1 = OrthogonalLine(F, ejet)
L = Intersect(d_1, p_1, 1)
F2 = Mirror(F, L)
b_1 = Ray(L + (0.01 * (F2 - L) / abs(F2 - L)), F2)
E = Point(b_1)
s = Segment(F, E)
p = Segment(F, D)
e: s / p
V: D + (F - D) / (e + 1)
C: F + ((V - F) * e / (e - 1))
F' = Mirror(F, C)
h_1 = Hyperbola(F, F', V)
xGoma = -3.74 (slider from -3.9 to -3.4, step 0.01)
yGoma = 5.3 (slider from 5.3 to 5.55, step 0.01)
F_1: (xGoma, yGoma)
P = Point(h_1)
i_2 = OrthogonalLine(P, directriz)
D_1 = Intersect(i_2, directriz)
a = Segment(P, F)
b = Segment(P, D_1)
VV' = Mirror(V, C)
directriz' = Mirror(directriz, C)
E_1, G = Intersect(h_1, p_1)
ladoRecto_1 = Segment(G, E_1)
c = OrthogonalLine(C, ejet)
texto1: "e\; = \;" + e
c2 = Segment(F', F)
a_1 = OrthogonalLine(V, ejet)
c_1 = Circle(C, c2 / 2)
J = Intersect(c_1, a_1, 2)
K = Intersect(c_1, a_1, 1)
J' = Mirror(J, C)
K' = Mirror(K, C)
polígono1: {Polygon[K', J, K, J']}
e_1 = Line(J, J')
f_1 = Line(K, K')
g_1 = Circle(E_1, p)
R, S = Intersect(g_1, p_1)
i_1 = Line(R, D)
j_1 = Line(E, i_1)
k_1 = Line(D, S)
l_1 = Line(E, k_1)
polígono2: {Polygon[E, D, F]}
q_1 = Circle(C, V)
m_1 = Line(S, V)
n_1 = Line(E, m_1)
A = (-1.26, -2.62)
lista1: {Polygon[A, A - (20, 0), A + ((-20), 20), A + (0, 20)]}