$a$

$F_3$

$b$

$F$

$t$

$S$

$S(2a)$

$F(2c_e)$

$F_1$

$F_2$

$P_1$

$P_2$

$F(2c_h)$

Solo hipérbolas

Ojetos iniciales y finales

A = (-2.82, 5.72)
B = (-2.82, 4.8)
a_1 = Segment(A, B)
b_1 = OrthogonalLine(A, a_1)
c = OrthogonalLine(B, a_1)
c' = Rotate(c, 45*°, B)
C = Intersect(b_1, c')
b' = Rotate(b_1, 315*°, A)
D = Intersect(c, b')
d = Ray(A, C)
e = Ray(B, D)
E = Point(d)
a = Segment(A, E)
F_3 = Point(e)
b = Segment(B, F_3)
h = OrthogonalLine(E, d)
G = Intersect(h, e)
F = (9.112716109643754, 3.87573311867705)
H = (4.588745904761903, -3.508856190476188)
I = (15.939006857142845, 2.7184491428571462)
t = Line(H, I)
S = Mirror(F, t)
df: sqrt(a^(2) - b^(2))
texto1: "(Elipse) $c_e= \sqrt{a^2-b^2}=$" + (LaTeX[df]) + ""
dfh: sqrt(b^(2) + a^(2))
texto2: "(Hipérbola) $c_h=\sqrt{a^2+b^2}=$" + (LaTeX[dfh]) + ""
f = Circle(S, 2 * a)
g = Circle(F, 2 * df)
F_1, F_2 = Intersect(g, f)
i = Line(S, F_1)
P_1 = Intersect(t, i)
k = Ellipse(F, F_1, P_1)
j = Line(S, F_2)
P_2 = Intersect(j, t)
p = Ellipse(F, F_2, P_2)
q = Circle(F, 2 * dfh)
L, M = Intersect(f, q)
l = Line(S, M)
N = Intersect(t, l)
r = Hyperbola(F, M, N)
m = Line(S, L)
O = Intersect(t, m)
s = Hyperbola(L, F, O)
n = true