d(F1,F2)=d(F2,Rojo)

Varillas F1

Varillas punto rojo

Borra

f = 1 (slider from 0 to 5, step 0.1)
F2: (f, 0)
F1 = (0, 0)
c = Circle(F2, F1)
l1 = 3.04 (slider from f + 0.001 to 5, step 0.001)
l2 = 1.497 (slider from l1 - (2 * f) + 0.001 to l1, step 0.001)
p = Circle(F1, l1 - l2)
F = Intersect(c, p, 1)
E = Intersect(c, p, 2)
q = CircleArc(F2, F, E)
d = Circle(F1, l1)
A = Point(q)
e = Circle(A, l2)
C = Intersect(d, e, 2)
v = Vector(A, C)
B = Intersect(d, e, 1)
u = Vector(A, B)
g = Circle(C, A)
a = Segment(B, F1)
b = Segment(F1, C)
h = Segment(F2, A)
i = Segment(B, A)
D: A + u + v
j = Segment(B, D)
k = Segment(A, C)
l = Segment(C, D)
t = CurveCartesian((l1^(2) - l2^(2)) / 2 - f, ((l1^(2) - l2^(2)) * sin(t) / ((2 * (1 + cos(t))))), t, 0, 6.28319)
m: x = (2 * l1) - (3 * f)
ll: sqrt(l1^(2) - (2 * f))
xx: (l1^(2) - l2^(2)) / ((2 * f))
texto1: "\text{Corte con eje OX = }" + (LaTeX[xx]) + ""
n = Line(F1, F2)