Mathematica 球体图形生成及展示

可以使用 Graphics3D 函数展示球体的图形，例如：

Graphics3D[{Sphere[Table[qiou[1][], {1000}], 0.05], Sphere[Table[qiou[2][], {1000}], 0.05], Sphere[Table[qiou[3][], {1000}], 0.05]}, Boxed -> False]

这个代码会生成三个球体，每个球体包含了1000个随机生成的点，球体的半径为0.05。可以通过调整球体的半径和点数来改变图形的展示效果。Boxed -> False 参数可以去掉图形的边框。

以下是 qiou 函数的定义，用于生成随机的球体点：

qiou[1][] := Module[{x, y, z, r = 2}, While[r > 1, x = 2RandomReal[] - 1; y = 2RandomReal - 1; z = 2RandomReal[] - 1; r = Norm[{x, y, z}]]; {x, y, z}/r]; qiou[2][] := Module[{sita, phi, tem}, sita = 2PiRandomReal[]; phi = Pi(Random[] - 0.5); {(tem = Cos[phi])Cos[sita], temSin[sita], Sin[phi]}]; qiou[3][] := Module[{x, y, z, r, n}, n = NormalDistribution[0, 1]; x = RandomReal[n]; y = RandomReal[n]; z = RandomReal[n]; r = Norm[{x, y, z}]; {x, y, z}/r];