作业帮 > 数学 > 作业

mathematica如何在一个随机的球体上随机生成三个点?

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/04/19 16:43:56
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]] Sin[\[Phi]],r Cos[\[Theta]]}],{n,3}]]},
PlotRange -> r,Axes -> True],
ContourPlot3D[
x^2 + y^2 + z^2 == r^2,{x,-r,r},{y,-r,r},{z,-r,r},
Mesh -> None,ContourStyle -> Opacity[0.5]]]