Berührkreise von zwei Kreisen

Ellipse:     Berührung aussen - innen   bzw.  innen - aussen
Hyperbel: Berührung aussen - aussen bzw. innen - innen

Ellipse

Hyperbel

Berührkreise von zwei Kreisen

Animation

A = (-3.18, 1.06)
B = (2.9434127758420443, 1.1825793263646838)
C = (-0.9200427409988383, 3.6856631823461017)
c = Ellipse(A, B, C)
d = Circle(B, C)
e = Circle(A, C)
a = Line(A, B)
D = Intersect(e, a, 2)
F = Intersect(d, a, 2)
G = Point(c)
b = Segment(B, G)
f = Segment(A, G)
E = Intersect(d, b, 1)
g = Circle(G, E)
H = Intersect(e, f, 1)
h = Circle(G, H)
k = Hyperbola(B, A, C)
I = Point(k)
i = Segment(I, A)
J = Intersect(e, i, 1)
p = Circle(I, J)
j = Line(A, I)
K = Intersect(e, j, 2)
q = Circle(I, K)
l = Segment(I, A)
m = Segment(I, B)
L = Intersect(k, a, 2)
M = Intersect(k, a, 1)
N = Midpoint(L, M)
n = Line(I, A)
O = Intersect(e, n, 2)
r = Circle(I, O)
s = Circle(A, G)
t = Circle(B, G)
f_1 = Segment(A, I)
g_1 = Segment(I, B)
o = true
u = false
c_1 = Circle(A, I)
d_1 = Circle(B, I)
v = false

Tool: Plot3D
Plot3D[x,y,z,α,β]
Input: a, b, c, α, β
Output: S

Mat: {{sin(α), ((-1 * cos(α)) * sin(β))}, {cos(α), (sin(α) * sin(β))}, {0, cos(β)}}
S3: {{a, b, c}}
S1: (S3 * Mat)
S: (Element[Element[S1, 1], 1], Element[Element[S1, 1], 2])