通过四个随机点作球面

GeoGebra 命令及参数

1. Point(Circle[(1, 0, 0), Distance[(0, 0, 0), (1, 0, 0)], Segment[(0, 0, 0), (1, 0, 0)]]) → A
2. Cube((0, 0, 0), (1, 0, 0), A) → a, B, faceABFE, faceCDEF, edge2, edge1, edge4, edgeAB, edge3, edgeBF, edgeCF, edgeCD, C, edge5, edgeDE, edgeAE, edgeEF, D, E, F, face1, face3, face2, face4
3. Circle(T, R, Q) → c
4. Circle(Q, R, S) → d
5. Circle(S, Q, T) → e
6. Center(e) → G
7. Center(d) → H
8. Center(c) → I
9. Plane(T, S, G) → p
10. OrthogonalLine(G, p) → f
11. Plane(Q, T, I) → q
12. OrthogonalLine(I, q) → g
13. Intersect(f, g) → J
14. Sphere(J, R) → b
15. Volume(b) → h
16. DotPlot(data, true) → l1