Rojo

Magenta

Cian

Borra

Animar

aniamacion

Aros

Varillas

L       f        l

f = 1.6 (slider from 0 to 5, step 0.1)
F2: (f, 0)
F1 = (0, 0)
c = Circle(F2, F1)
l1 = 4.3 (slider from -5 to 5, step 0.1)
l2 = 2.4 (slider from -5 to 5, step 0.1)
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)
D: A + u + v
j = Segment(B, D)
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]) + ""
h = Circle(B, A)
a = false
i = Line(F1, F2)
DD: D
b = false
k = Segment(A, B)
H = Point(k)
s = Segment(F1, H)
r = Segment(F1, H)
f_1 = Segment(F1, C)
g_1 = Segment(F2, A)
o = true
n = Segment(A, C)