蒙特卡罗实验报告_第1页
蒙特卡罗实验报告_第2页
蒙特卡罗实验报告_第3页
蒙特卡罗实验报告_第4页
蒙特卡罗实验报告_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

蒙特卡罗方法实验一实 验 报 告蒙特卡罗方法实验一实验报告一、实验目的1、了解蒙特卡罗方法方法的基本思想;2、掌握蒙特卡罗方法计算面积、体积的方法;3、掌握由已知分布的随机抽样方法。二、实验原理Monte Carlo方法,又称统计模拟方法或计算机随机模拟方法,是一种基于“随机数”进行数值模拟的方法,一种采用统计抽样理论近似求解物理或数学问题的方法。倘若待求量可以表述成某些特征量的期望值、某些事件出现的概率或两者的函数形式,那么可采用蒙特卡罗方法求解。在求解某些特征量的期望值或某些事件出现的概率时,必须构建合符实际的数学模型。例如采用蒙特卡罗方法计算某函数所围面积时,构建的数学模型是构造一已知面积的可均匀抽样区域,在该区域投点,由伯努利定理大数定理可知,进入待求区域投点的频率依概率1收敛于该事件出现的概率(面积之比)。由已知分布的随机抽样方法指的是由已知分布的总体中抽取简单子样。抽样方法有:直接抽样方法:离散型分布随机抽样方法、连续型分布直接抽样方法;挑选抽样方法;复合抽样方法;随机抽样一般方法:加抽样方法、减抽样方法、乘抽样方法、乘加抽样方法、乘减抽样方法、对称抽样方法、替换抽样方法、多为分布抽样方法、积分抽样方法;随机抽样其他方法:偏倚抽样方法、近似分布抽样方法、近似-修正抽样方法。三、实验内容1、安装所需计算工具(MATLAB、fortran、C+等);2、编写一伪随机数发生器;(如乘加同余a=1366,c=150889,M=714025、a=9301,c=49297,M=233280;乘同余a=16807,M=232-1;或采用其它方法)以下内容选取一个采用自编伪随机数发生器进行计算,其余采用工具软件中自带伪随机数发生器进行计算。3、求解以下区域的面积、体积:3.1、给定曲线y =2 x2 和曲线y3 = x2,曲线的交点为:P1( 1,1 )、P2( 1,1 )。曲线围成平面有限区域,用蒙特卡罗方法计算区域面积;3.2、计算所围体积其中。4、对以下已知分布进行随机抽样:4.1、;4.2、其中。四、实验程序及其相关情况第2题function SJS=suiji(ZHONG)% SJS 产生的随机数% ZHONG 输入的随机数种子a=1366;c=150889;M=714025;SJS=mod(ZHONG*a+c,M)/M;第3.1题clear;clc;M=0;%记录投点在所围图形中的个数N= input(请输入总投点个数:n);ksi=0.89656; %用输入的方式tic;for i=1:N ksi=suiji(ksi); x=2*ksi-1; ksi=suiji(ksi); y=2*ksi; if y=x2 M=M+1; end endendtocMIANJI=M/N*4clear M N i x y;计算结果:N=50000时面积为2.1431,计算时间约0.688s。第3.2题clear;clc;M=0;%记录投点在所围图形中的个数N= input(请输入总投点个数:n);tic;for i=1:N x=2*rand()-1; y=2*rand()-1; z=2*rand(); t=x2+y2; s=z2; if s=t if t=-s+2*z M=M+1; end endendtocMIANJI=M/N*8clear M N i x y;计算结果:N=50000时面积为3.1350,计算时间约0.282s。第4.1题clear;clc;M = input(输入所需产生随机变量的个数:n);x = zeros(M,1);tic;for i=1:M if(rand()=0.5) x(i) = max(rand(),rand() x(i) = max(x(i),rand(); x(i) = max(x(i),rand(); else x(i) = min(rand(),rand(); x(i) = min(x(i),rand(); endendtocclear M;第4.2题clear;clc;E = input(输入入射光子的能量(单位keV):n);E=E/511;%计算系数KE=(1-2*(E+1)/(E2)*log(2*E+1)+0.5+4/E-1/(2*(2*E+1)2);p1=(E/(2*E+1)2/KE;p2=p1+(2/E+2*E/(2*E+1)2)/KE;p3=p1+p2+(1-2*(E+1)/(E2)*log(2*E+1)/KE;tic;a=rand();if a=p1 Cshe = (2*E+1)/(2*E*max(rand(),rand()-1);elseif a=p2 Cshe

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论