Question

mathematica 依 概率分布 产生随机数

mathematica 依 概率分布 产生随机数
用mathematica编程， 实现基于Random【】，给出一个按照如下分布｛0.2，0.5.，0.3｝随机生成数字123的程序 谢谢

Answer 1

R[] := Module[{x},
a = Random[];
If[a < 0.2, x = 1];
If[a >= 0.2 && a < 0.7, x = 2];
If[a >= 0.7, x = 3]
]

Answer 2

r =.;
dot =.;
dot[r_] := Module[,
rand = 2 r*Random[] - r;
rz = rand;
rand = 2 Pi*Random[];
u = rand;
rxy = Sqrt[r^2 - rz^2];

]
Graphics3D[Point[Table[dot[1], ]], Boxed -> False]
(*复制即可 *)