\ovalbox{\mbox{Problema de Apolonio PPc: Circunferencias que pasan por dos puntos y son tangentes a una circunferencia dada

A = (2.96, 2.84)
B = (8.24, 1.66)
C = (6.1, -2)
D = (8.32, -0.34)
c = Circle(C, D)
a = Line(A, B)
d = Circle(A, B, D)
E, F = Intersect(c, d)
b = Line(F, D)
G = Intersect(b, a)
H = Midpoint(G, C)
e = Circle(H, G)
I, J = Intersect(e, c)
f = Circle(A, B, J)
g = Circle(A, B, I)

Tool: Conica Foco Punto Dos Tangentes (command ConicaFocoPuntoDosTangentes)
Dar un foco, un punto y dos tangentes
Input: F, P, t_1, t_2
Output: k, q, p, r

S_1 = Mirror(F, t_1)
S_2 = Mirror(F, t_2)
c = Circle(P, F)
E = Intersect(t_1, t_2)
a = Line(E, P)
b = OrthogonalLine(F, a)
e = Line(S_1, S_2)
R = Intersect(b, e)
H = Midpoint(R, P)
f = Circle(H, P)
I, J = Intersect(f, c)
g = Circle(S_1, S_2, J)
h = Circle(S_1, S_2, I)
K = Center(g)
L = Center(h)
k = Ellipse(F, L, P)
p = Hyperbola(F, L, P)
q = Ellipse(F, K, P)
r = Hyperbola(F, K, P)