Kugel Durch 4 Punkte

Erstelle eine Kugel die durch 4 Punkte geht

A: (3.0867, 5.05409, 2.30225)
D: (6, 8, 1.75702)
B: (9.482, 6.35401, 1.60896)
a = PlaneBisector(A, B)
b = PlaneBisector(A, C)
f = IntersectPath(a, b)
c = PlaneBisector(A, D)
E = Intersect(f, c)
d = Sphere(E, A)