- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
概率统计上机实验题
概率论上机实验报告
班级:应化31
姓名:沈子超
学号:2130904016
实验内容:用蒙特卡洛方法估计积分值
1用蒙特卡洛方法估计积分 ,和的值,并将估计值与真值进行比较。
2用蒙特卡洛方法估计积分 和的值,并对误差进行估计。
要求:(1)针对要估计的积分选择适当的概率分布设计蒙特卡洛方法;
(2)利用计算机产生所选分布的随机数以估计积分值;
(3)进行重复试验,通过计算样本均值以评价估计的无偏性;通过计算均方误差(针对第1类题)或样本方差(针对第2类题)以评价估计结果的精度。
目的:(1)能通过 MATLAB 或其他数学软件了解随机变量的概率密度、分布函数及其期望、方差、协方差等2) 熟练使用 MATLAB 对样本进行基本统计,从而获取数据的基本信息3) 能用 MATLAB 熟练进行样本的一元回归分析。s=0;m=0;f=0;r=0;n=50;
h(1:10)=0;
for j=1:10
for i=1:n
a=unifrnd(0,pi/2,n,1);
x=sort(a);
y=pi/2*mean(x.*sin(x));
s=s+y;
end
b=s./n;
fprintf(b=%.4f\n,b);
h(j)=b; 结果显示f=0.000221,表明估计结果比较接近理论值。
s=0; 将容量增到到100时,结果如下:
m=m+b;
end
p=m./10;
z=1;
for j=1:10
r=(h(j)-z).^2;f=f+r;
end
f=f./10;
fprintf(f=%.6f\n,f)
表示容量越大,f越小,估计结果与理论值更接近。
(2)
s=0;m=0;f=0;n=50;r=0;
h(1:10)=0;
for j=1:10
for i=1:n
a=normrnd(0,1,1,n)
x=sort(a);
z=(sqrt(2.*pi)).*exp(-x(i).^2./2);
s=s+z; f值较小,估计结果与理论值接近。
end
b=(s./n)./2;
fprintf(b=%.4f\n,b);
h(j)=b;
s=0;
m=m+b;
end
p=m./10;
z=sqrt(pi)./2;
for j=1:10
r=(h(j)-z).^2;
f=f+r;
end
f=f./10;
fprintf(f=%.6f\n,f)
(3)
m=10000;sum=0;n=50;D=0;
X=unifrnd(-1,1,n,m);Y=unifrnd(-1,1,n,m);for i=1:n a=0;
for j=1:m
if(X(i,j)^2+Y(i,j)^2=1)
Z(i,j)=exp(X(i,j)^2+Y(i,j)^2);
a=a+Z(i,j);
end
end
S(i)=a/m;sum=sum+S(i);
End
I=sum/n*4
for i=1:n
D=D+(S(i)*4-pi*(exp(1)-1))^2;
End
d=D/n; d值较小,估计结果与理论值接近。
fprintf(d=%.4f\n,d);
2.(1)
s=0;m=0;f=0;r=0;n=50;
h(1:10)=0;
for j=1:10
for i=1:n
a=unifrnd(0,1,n,1);
x=sort(a);
y=exp(x(i).^2);
s=s+y;
end
b=s./n;
fprintf(b=%.4f\n,b);
h(j)=b;
s=0;
m=m+b;
end
p=m./10;
for j=1:10
r=(h(j)-p).^2;
f=f+r;
end
f=f./9;
fprintf(f=%.6f\n,f)
(2)
n=1000;m=100;sum=0;S=0;I=0;x=unifrnd(-2,2,m,n);y=unifrnd(-2,2,m,n);
for j=1:m
s=0;
for i=1:n
if x(j,i)^2+y(j,i)^2=4
s=s+16/sqrt(1+x(j,i)
您可能关注的文档
最近下载
- 金属工艺学 全套课件.ppt VIP
- 外研版(三起)(2024)三年级下册英语Unit 4《What’s your hobby?》第1课时教案 .pdf VIP
- Unit 4 What's your hobby 第三课时教案 2024-2025学年度 外研版英语三年级下册.docx VIP
- 老年患者麻醉管理专家共识.pptx
- 景区运营管理合作协议.doc VIP
- HGT21629-2021管架标准图图集标准.docx VIP
- 保健食品要掌握的全部基本知识【58页】.pptx VIP
- MDCG 2020-7 上市后临床随访 (PMCF) 计划模板中文版.docx VIP
- 基坑土方回填施工策划方案.doc VIP
- 半导体材料课件课件.pptx VIP
文档评论(0)