mathematica如何在一个随机的球体上随机生成三个点?
问题描述：
mathematica如何在一个随机的球体上随机生成三个点?
答
Clear["Global`*"]r = RandomReal[]Show[Graphics3D[{Red,PointSize[0.02],Point[Table[With[{\[Theta] = RandomReal[{0,\[Pi]}],\[Phi] = RandomReal[{0,2 \[Pi]}]},{r Sin[\[Theta]] Cos[\[Phi]],r Sin[\[Theta]] ...