e h

xGoma = -3.500000000000002 (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)
F = (2.3799999999999977, 0.72)
B = (12.019999999999998, 1.82)
C = (-0.2000000000000023, -2.18)
directriz = Line(C, B)
c = OrthogonalLine(F, directriz)
A = Intersect(directriz, c)
l = Segment(F, A)
d = Line(F, directriz)
G = Point(d)
g = Segment(F, G)
e: g / l
texto1: "\bgcolor{ffffff}{e\; = \;" + e + "}"
E = Point(c)
f = Line(E, directriz)
h = Segment(E, A)
k = Circle(F, (e * Distance[A, E]))
L = Point(k)
j = Segment(F, L)
P = Intersect(k, f, 1)
P' = Intersect(k, f, 2)
i_2 = OrthogonalLine(P, directriz)
D = Intersect(i_2, directriz)
a = Segment(P, F)
b = Segment(P, D)
VV: A + (F - A) / (e + 1)
CC: F + ((VV - F) * e / (e - 1))
F' = Mirror(F, CC)
h_1 = Hyperbola(F, F', G)
p = Ellipse(F, F', G)