e h

FP = %v

h = %v

F = (2.66, 1.52)
B = (11.6, 1.68)
C = (-2.06, -0.56)
i = 4 (slider from 0.25 to 4, step 0.05)
ex: sqrt(i)
xGoma = -3.6400000000000015 (slider from -3.9 to -3.4, step 0.01)
yGoma = 5.4799999999999995 (slider from 5.3 to 5.55, step 0.01)
F_1: (xGoma, yGoma)
directriz = Line(C, B)
c = OrthogonalLine(F, directriz)
E_1 = Point(c)
g = Line(E_1, directriz)
A = Intersect(directriz, c)
d = Circle(F, (ex * Distance[A, E_1]))
G, H = Intersect(d, g)
lugar3 = Locus(G, E_1)
K = Point(lugar3, 0.3)
lugar2 = Locus(H, E_1)
J = Point(lugar2, 0.4)
I = Point(lugar2, 0.1)
h_1 = Conic(I, J, H, G, K)
E = Point(c)
h = Segment(E, A)
k = Circle(F, (ex * Distance[A, E]))
L = Point(k)
j = Segment(F, L)
f = Line(E, directriz)
P' = Intersect(k, f, 2)
P = Point(h_1)
i_2 = OrthogonalLine(P, directriz)
D = Intersect(i_2, directriz)
perpendicular = OrthogonalLine(D, directriz)
a = Segment(P, F)
b = Segment(P, D)
e = Circle(F, P)
l = Line(P, directriz)
texto1: "e\; =\; " + ex
M = (-2.5200000000000022, 3.84)
lista1: {Polygon[M, M - (20, 0), M + (-20, 20), M + (0, 20)]}