Esfera por cuatro puntos

Planos

Rectas

A = (1.2753099511630914, 1.3182082690918033, 1)
B = (-2, -1, 0)
C = (1.4630629166000553, 1.4295046873634494, 0)
D = (-2, 2, 0)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
d = PlaneBisector(a)
e = PlaneBisector(b)
f = PlaneBisector(c)
g = IntersectPath(d, f)
h = IntersectPath(e, f)
E = Intersect(g, h)
i = Sphere(E, C)
Puntoi = PointIn(i)
j = false
k = false

Tool: Esfera por cuatro puntos. (command Esferaporcuatropuntos)
4 puntos
Input: A, B, C, D
Output: i

a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
d = PlaneBisector(a)
e = PlaneBisector(b)
f = PlaneBisector(c)
g = IntersectPath(d, f)
h = IntersectPath(e, f)
E = Intersect(g, h)
i = Sphere(E, C)