F = (3, 1)
J = (-1, -1)
K = (7, -1)
direttrice = Line(J, K)
infin = (-11.868520164876497, -6.090379374444141)
asse = OrthogonalLine(F, direttrice)
H = Intersect(direttrice, asse)
b = Segment(H, infin)
c = Line(F, b)
a = Line(infin, direttrice)
zero = Intersect(c, a)
eccentricità = Segment(infin, zero)
e = Point(eccentricità)
e_1 = Line(e, b)
Z = Point(direttrice)
V = Intersect(e_1, asse)
A = Point(direttrice)
d = OrthogonalLine(A, direttrice)
f = Segment(F, A)
g = Line(V, direttrice)
B = Intersect(g, f)
h = Line(B, d)
i = OrthogonalLine(B, d)
j = OrthogonalLine(F, d)
C = Intersect(i, d)
k = Circle(B, C)
l, m = Tangent(F, k)
D = Intersect(m, d)
luogo1 = Locus(D, A)
E = Intersect(l, d)
luogo2 = Locus(E, A)