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

Varillas F1

Lado rombo

L

l

P

Borra

C

a

L

l

a

f

d

P_1

f

C

D

x

f = 1 (slider from 0 to 5, step 0.1)
F_2: (f, 0)
F_1 = (0, 0)
c = Circle(F_2, F_1)
l1 = 2.909 (slider from f + 0.001 to 5, step 0.001)
l2 = 1.721 (slider from l1 - (2 * f) + 0.001 to l1, step 0.001)
p = Circle(F_1, l1 - l2)
F = Intersect(c, p, 1)
E = Intersect(c, p, 2)
q = CircleArc(F_2, F, E)
d = Circle(F_1, 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, F_1)
b = Segment(F_1, C)
h = Segment(F_2, 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: "Corte=" + (LaTeX[xx]) + ""
G = Midpoint(A, D)
n = Segment(B, G)
r = Segment(G, A)
s = Segment(F_1, D)
a_1 = Segment(A, G)
b_1 = Segment(F_1, A)
c_1 = OrthogonalLine(D, xAxis)
H = Intersect(c_1, xAxis)
d_1 = Segment(D, H)
α = Angle(F_2, F_1, A)
β = Angle(A, F_1, B)
e_1 = OrthogonalLine(F_2, b_1)
I = Intersect(e_1, b_1)
f_1 = Segment(I, F_2)
g_1 = Segment(G, D)
J = (-0.025310534777105986, -0.3698160009961342)
K = (2.7449311276483455, -0.3698160009961342)
h_1 = Segment(J, K)