声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1093|回复: 3

[综合讨论] 怎么样连续运行蒙特卡罗小程序

[复制链接]
发表于 2009-8-22 18:53 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
各位坛友大家好,本人编程能力不好想请大家帮我看一下下面的程序怎么添加使它自动运行。
运用蒙特卡罗方法能够解决简单的数值积分问题,因为有随机数的原因每次生成的随机数都不一样经过几次重复运行就能得到一个近似解。下面的程序是解y=exp(-x2)在(-1,1)之间的定积分,运行十次取平均值课的近似解,但我不知道怎么加程序只要运行一次就出现十个值(因为运行十次好麻烦),请高手帮忙,谢谢了
xi=unifrnd(-1,1,100000,1);
yi=rand(100000,1);
k=0;
y=exp(-xi.^2);
for i=1:100000
    if yi(i)<=y(i)
        k=k+1;
    end
end
I=k/50000
回复
分享到:

使用道具 举报

发表于 2009-8-22 21:38 | 显示全部楼层
我写过蒙特卡洛方法的程序 ,只是没看懂你什么意思:)


而且,既然是求近似解,用求高斯积分点和牛顿xx积分方法都可以求出很精确的解啊,那个要简单好多.......

如果仍未解决,可以联系我,qq 595538386    呵呵
发表于 2009-8-22 21:56 | 显示全部楼层
for jjj=1:10
xi=unifrnd(-1,1,100000,1);
yi=rand(100000,1);
k=0;
y=exp(-xi.^2);
for i=1:100000
    if yi(i)<=y(i)
        k=k+1;
    end
end
I=k/50000
end

评分

1

查看全部评分

 楼主| 发表于 2009-8-23 09:27 | 显示全部楼层
恩谢谢大家的帮助,昨晚回去之后想了一下今天来运行一下对了,依然感谢上面两位的回帖。
for j=1:10
xi=unifrnd(-1,1,100000,1);
yi=rand(100000,1);
k=0;
y=exp(-xi.^2);
for i=1:100000
    if yi(i)<=y(i)
        k=k+1;
    end
end
I(j)=k/50000;
end
I
我是这样写的,跟三楼的差不多
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-12-28 20:48 , Processed in 0.074090 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表