题目
数学实验mathematica应用构造单位球面上依曲面面积服从均匀分布的随机点
提问时间：2020-12-01
答案
r =.;
dot =.;
dot[r_] := Module[{rand,rz,u,rxy},
rand = 2 r*Random[] - r;
rz = rand;
rand = 2 Pi*Random[];
u = rand;
rxy = Sqrt[r^2 - rz^2];
{rxy*Cos[u],rxy*Sin[u],rz}
]
Graphics3D[Point[Table[dot[1],{r,1,5000}]],Boxed -> False]
(*复制即可 *)
dot =.;
dot[r_] := Module[{rand,rz,u,rxy},
rand = 2 r*Random[] - r;
rz = rand;
rand = 2 Pi*Random[];
u = rand;
rxy = Sqrt[r^2 - rz^2];
{rxy*Cos[u],rxy*Sin[u],rz}
]
Graphics3D[Point[Table[dot[1],{r,1,5000}]],Boxed -> False]
(*复制即可 *)
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点