外接球

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, edgeAD_{1}, edgeAB, edgeBC, edgeCD_{1}, edgeAE, edgeDH_{1}, edgeEH, edgeEF, edgeBF, edgeFG, edgeCG, edgeGH = Cube(A, B, C)
I = (1, 1, 1)
b = Sphere(I, 3^(1 / 2))
c, faceACD, faceCDH, faceADH, faceACH, edgeCD, edgeAD, edgeAC, edgeCH, edgeDH, edgeAH = Pyramid(C, D, A, H)