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]
(*复制即可 *)
数学实验mathematica应用构造单位球面上依曲面面积服从均匀分布的随机点
数学实验mathematica应用构造单位球面上依曲面面积服从均匀分布的随机点
数学人气:486 ℃时间:2020-09-09 04:20:08
优质解答
我来回答
类似推荐
猜你喜欢
- 1已知奇函数f(x)是[-2,2]内的单调减函数,解不等式xf(2x-1)
- 2英语翻译
- 3向某盐溶液中通入过量Cl2,滴加Ba(NO3)2溶液和稀硝酸,有白色沉淀生成,则原溶液可能是( ) A.AgNO3溶液 B.CaCl2溶液 C.Na2SO3溶液 D.Na2CO3溶液
- 4拔一根长1米的圆柱形木材锯成4段,表面积比原来增加了2.4平方米,这跟木料原来体积是?
- 5sin2x的导数是什么!急!急
- 6小芳看一本故事书第一天看了60页第二天看了全书的8\1第二天看的页数比第一天多10%这本书一共多页算式
- 7自由与生命阅读答案 两全其美的“两全”在文中指的是 “厄运”在文中指的是
- 8莎莎按照自然数的顺序从1开始求和,当计算到某个数时,和是60但她重复计算了一个数,问重复了哪个数
- 9人们都爱大海,爱她的 爱她的 爱她的
- 10一个正多边形的内角和是外角和的3倍,求这个正多边形的每个内角和每个外角的度数.