付费下载
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
Ex.1若将y-uniform(0,1)改为y-x,则上述算法估计的值是什么?
解:若令y-x,则原问题由平面投影到线段上了。随机产生的点都会落在线
段(0,0)-(V2,V2)上。所以k/n=l/V2,算法的输出为4k/n=2/七2.828。
故上述算法估计的值为2.828.
Ex.2在机器上用光估计n值,给出不同的n值及精度。
〃・,,
-#includelostream
Sinclude“math,h”
#include“time,h”
/include“stdlib.h"
usingnamespacestd;
臼voidmainO
(
doublex,y;
unsignedk,i,n;
n=10000;
for(j=0;j<5;j++)
(
n=n*10;
k=0;
srand((unsigned)time(0));
for(i=0;i<n;i++){
x=rand()*1.0/RAND_MAX;
y=rand0*1.0/RA1®_MAX;
if(y<=sqrt(1-x*x7)
k++;
)
cout«"n="«n«"时,"《"兀为"<4.0*k/
11
□X
C:\Windows\system32\cmd.exe
n=100000时,冗为3.14736
n=1000000时.兀为3.14021
n=10000000时.冗为3.1417
”100000000时,71^)3,14134
n=1000000000时,冗为3.1415
由截图可知:当n=100000时,精度(小数点后)为2位;当n=1000000时,
精度(小数点后)为2位;当n=10000000时,精度(小数点后)为3位;当
n=100000000时,精度(小数点后)为3位;当n=1000000000时,精度(小数
点后)为4位。
Ex3.设a,b,c和d是实数,且aWb,c<d,f:[a,b]—[c,d]是一个连续函
数,写一概率算法计算积分:「/(吟出(:注意,函数的参数是a,b,c,d,n和
f,其中f用函数指针实现,请选一连续函数做实验,并给出实验结果。
-^include“iostream”
#include"time,h”
^include*stdlib.h*
usingnamespacestd;
typedefdouble(*funcp)(double):
-doublef(doublex)
|(
returnx*x:|
-doubleuniform(doublem,doublen)
(
returnm-static_cast<double>(rand())/RAND_MAX*(n-m);
-doubleIntegral(doublea,doubleb,doublec,doubled,unsignedn,fimcpf)
|(
doublex.y:
unsignedi,k=0;
srand((unsigned)time(0)):
for(i=0:i<n:i++){
x=unifora(a,b):
y=unifcra(c,d):
if(y<=f(x))
k++:
)
return(b-a)*(d-c)*k/n+(b-a)*c;
L)
-voidmainO
{
doublea=1,b=2,c=1,d=4:
unsignedj,n:
n=100000;
funcppfun=f:
for(j=0;j<4:j++)
(
n=n♦10:
cout«*n=*«n«"时,"«"函数积分为为"«Integral(a,b,c,d,n,pfun)«*\n*:
)
图C:\Windows\system32\cmd.exe
=1000000时,函数积分为力2.3364
=10000000时,函数积分为为2.3335
=100000000时,函数积分为力2.33353
=1000000000时,函数枳分为为2.33333
'ressanykeytocontinue...
程序中我们设定的连续函数为KX)=",所求积分为/;%2热,理论值为
2.33333….由截图可知:当n=106时,精度(小数点后)为2位;当n=l()7时,
精度(小数点后)为3位;当n=108时,精度(小数点后)为3位;当n=109时,
精度(小数点后)为5位。
EX5.用上述算法(SetCount),估计整数子集l~n的大小,并分析n对估计
值的影响。
-专include*iostream*
#includeh*
^include*stdlib.h*
usingnasespacestd:
-unsigneduniform(unsigneda,unsignedb)
return(rand()%/-a+1))+a:
[}
-doubleSetCount(unsignedn)
{.
unsignedk=0;
unsigned*s=newunsigned[n]:
for(unsignedi=0:i<n:i-)
s[i]=0;
srand((unsigned)tinie(0));
unsignedx-uniform(1,n):
do{
荒=1:
x=uniformd,n):
}while(s[x]=0);
delete[]s;
return2.0*k*k/3.1415926;
-voidmain()
unsignedn-500:
doublesum-0;
for(inti=0:i<5:i++)
,{
for(intj=0:j<5000:jl)
sum=sus-SetCount(n):
cout«"当n="«n«"时yUSetCountO运行5000次后取平均为YQg/5000«*\n\
..…*10;
国!C:\Windows\system32\cmd.exe
当n=500时SetCountC包亍1000次后取平均为399.887
当n=5000B^SetCountC包亍§000次后取平均为1269.42
当n=50000时SetCount<〉匈亍§000次后取平均力281.5.01
当n=500000时SetCount<〉闻亍§000次后取平均为41254.5
当n=5000000时SetCoimtC运行5000次后取平均为81291.3
Press
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- GB/Z 174.3-2026工业过程测量控制和自动化智能制造第3部分:网络安全面临的挑战
- 安全第一必须落实到一把手铸就安全领导力刻不容缓
- app推广外包合同
- 一致性评价外包合同
- 中介签外包合同
- 互联网技术外包合同
- 人保财险理外包合同
- 少儿美术外包合同
- 企业临时工外包合同
- 入职第一年外包合同
- 《2023版CSCO小细胞肺癌诊疗指南》
- 2026年院感培训知识测试题及答案
- 四不伤害安全培训课件
- 华润药业介绍
- 2025年度全球风险投资状况回顾报告:私募市场交易、投融资和退出数据及分析 State of Venture Global 2025 recap
- 下水道科普教学课件
- 广西玉林师范学院招聘考试真题2025
- 车辆调度合作合同范本
- 涉密测绘成果安全管理细则
- 2025年高职(生物制药技术)药物发酵工艺综合测试卷及答案
- 生猪屠宰兽医卫生检验人员考试题库(含答案)
评论
0/150
提交评论