\ovalbox{\mbox{Problema de Apolonio Pcc:  Circunferencias que pasan por un punto y son tangentes
 a dos circunferencias}}

C_1 = (7.36, -0.06)
A_1 = (6.54, 1.28)
c = Circle(C_1, A_1)
C_2 = (12.78, -0.04)
A_2 = (14.44, 1.74)
d = Circle(C_2, A_2)
P = (7.18, -3.9)
a = Ray(C_1, C_2)
b = Ray(C_2, C_1)
E_1 = Intersect(d, b)
F = Intersect(c, a)
e = Circle(E_1, F, P)
G = Intersect(c, e, 2)
H = Intersect(d, e, 2)
f = Line(G, F)
g = Line(E_1, H)
h = Segment(C_1, G)
i = Line(C_2, h)
I_1, J = Intersect(d, i)
j = Line(G, J)
k = Line(I_1, G)
l = Line(C_1, C_2)
E = Intersect(j, l)
I = Intersect(k, l)
m = Line(E, P)
R_1 = Intersect(f, m)
R_2 = Intersect(g, m)
O = Midpoint(C_1, R_1)
Q = Midpoint(C_2, R_2)
p = Circle(O, C_1)
q = Circle(Q, C_2)
X_1, Y_1 = Intersect(c, p)
Y_2, X_2 = Intersect(d, q)
r, s = ProblemaApolonioPPc(P, X_1, C_2, A_2)
n = Defined(AffineRatio[C_1, X_1, Center[s]])
t, c_1 = ProblemaApolonioPPc(P, Y_1, C_2, A_2)
d_1, e_1 = ProblemaApolonioPPc(P, X_2, C_1, A_1)
f_1, g_1 = ProblemaApolonioPPc(P, Y_2, C_1, A_1)
h_1, k_1 = ProblemaApolonioPPc(P, Y_2, C_1, A_1)

Tool: Problema Apolonio PPc (command ProblemaApolonioPPc)
Dara dos puntos y luego el centro y un punto de la circunferencia
Input: A, B, C, D
Output: f, g

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)