求一个简单的Mathematica程序试验内容：模拟抛掷一枚均匀硬币的随机实验(可用0-1随机数来模拟实验结果),取模拟n次掷硬币的随机实验.记录实验结果,观察样本空间的确定性及每次实验结果的
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/19 11:52:03
求一个简单的Mathematica程序试验内容：模拟抛掷一枚均匀硬币的随机实验(可用0-1随机数来模拟实验结果),取模拟n次掷硬币的随机实验.记录实验结果,观察样本空间的确定性及每次实验结果的
求一个简单的Mathematica程序
试验内容：模拟抛掷一枚均匀硬币的随机实验(可用0-1随机数来模拟实验结果),取模拟n次掷硬币的随机实验.记录实验结果,观察样本空间的确定性及每次实验结果的偶然性,统计正面出现的次数,并计算正面出现的频率.对不同的实验次数n进行实验,记录下实验结果,通过比较实验的结果,你能得出什么结论?
请发邮箱[email protected]
求一个简单的Mathematica程序试验内容：模拟抛掷一枚均匀硬币的随机实验(可用0-1随机数来模拟实验结果),取模拟n次掷硬币的随机实验.记录实验结果,观察样本空间的确定性及每次实验结果的
程序已发至邮箱
来个直观的回答啦。。。 拖动n的滑动条，就可以看到分布图。。 Manipulate[Histogram@RandomInteger[1, n], {n, 10, 100000, 10}]
Ran[n_]:=Module[{A,i,t=0},
A=Table[0,{i,1,n}];(* 保存随机结果 *)
SeedRandom[];(* 用当前时间作为随机的种子 *)
For[i=1,i<=n,i++,
A[[i]]=Random[Integer];(* 产生随机数0或者1,0：反面，1：正面 *)
If[A[[i]]==1,
t=t+...
全部展开
Ran[n_]:=Module[{A,i,t=0},
A=Table[0,{i,1,n}];(* 保存随机结果 *)
SeedRandom[];(* 用当前时间作为随机的种子 *)
For[i=1,i<=n,i++,
A[[i]]=Random[Integer];(* 产生随机数0或者1,0：反面，1：正面 *)
If[A[[i]]==1,
t=t+1;
];
];
Print["正面频率：",t," 概率：",1.0t/n];
(*Print[A];去掉星号和括号可以输出随机结果*)
]
具体已发你邮箱，注意查收，满意请给分哦！
收起