Tangentes Exteriores

Circunferencia, Circunferencia

D = Point(d)
C = Center(d)
r = Segment(C, D)
B = Point(c)
A = Center(c)
R = Segment(A, B)
m = Min(R, r)
e' = If(m ≟ r, c, d)
e = If(m ≟ r, Circle[A, R - r], Circle[C, r - R])
T = If(m ≟ r, C, A)
a_1, b_1 = Tangent(T, e)
a, b = Tangent(T, e)
P = Intersect(e, b)
Z = If(m ≟ r, A, C)
g = Ray(Z, P)
Q = Intersect(e, a)
f = Ray(Z, Q)
I = Intersect(e', f, 1.0)
E = Intersect(e', g)
h = OrthogonalLine(E, g)
i = OrthogonalLine(I, f)