A = (7.478179477334621, 7.87365889413036, 0)
B = (-2.503001489919157, 6.093117880878808, -2.5922467651701004)
C = (2.9476532711435226, -0.8274350628209071, 0)
D = (1.6626176919939013, 3.849544236485549, 5.724464387204527)
a = sferaWpisana(A, B, C, D)
b = Segment(C, A)
c = Segment(B, A)
d = Segment(B, C)
e = Segment(C, D)
f = Segment(D, A)
g = Segment(D, B)
E = (-8.342914309589801, 1.3033856765729563, 0)
h, i, j, k, l, m, n = bajer(C, B, D, E)
F = (-3.339157825047145, -5.484121264191054, 7.737836584478158)
G = (-5.536134155913871, 13.297643033612193, -2.5922467651701004)
H = (-8.827483121829133, 8.364664910547788, 4)
I = (6.125528152207323, 10.17468243503453, 0.3657414209814611)
J = (6.588630689477007, 1.5702128831387263, -1.686474330081154)
K = Point(b)
o, p, q, r, s, t, a_1 = bajer(J, C, D, K)
u, b_1, c_1, d_1, e_1, f_1, g_1 = bajer(F, C, D, E)
v, h_1, i_1, j_1, k_1, l_1, m_1 = bajer(H, D, B, E)
w, n_1, p_1, q_1, r_1, s_1, t_1 = bajer(G, H, B, D)
o_1, a_2, b_2, c_2, d_2, e_2, f_2 = bajer(G, I, D, B)
u_1, g_2, h_2, i_2, j_2, k_2, l_2 = bajer(I, A, B, D)
v_1, m_2, n_2, p_2, q_2, r_2, s_2 = bajer(K, A, B, D)

Tool: PlaszczyznaDwusieczna
Input: A, B, C, D
Output: e

a = Line(B, A)
b = OrthogonalPlane(C, a)
c = OrthogonalLine(D, b)
E = Intersect(c, b)
F = Intersect(a, b)
d = AngularBisector(E, F, C)
G = Point(d)
e = Plane(G, F, B)

Tool: SierodekSfery
Input: A, B, C, D
Output: E

a = PlaszczyznaDwusieczna(A, B, C, D)
b = PlaszczyznaDwusieczna(C, B, D, A)
c = PlaszczyznaDwusieczna(A, C, B, D)
d = IntersectPath(c, b)
e = IntersectPath(a, c)
E = Intersect(e, d)

Tool: sferaWpisana
Input: A, B, C, D
Output: d

E = SierodekSfery(A, C, B, D)
b = Plane(D, C, B)
c = OrthogonalLine(E, b)
F = Intersect(c, b)
d = Sphere(E, F)

Tool: bajer
Input: A, B, C, D
Output: a, b, c, d, e, f, g

a = sferaWpisana(A, B, C, D)
b = Segment(C, A)
c = Segment(B, A)
d = Segment(B, C)
e = Segment(C, D)
f = Segment(D, A)
g = Segment(D, B)