数学建模社区-数学中国

标题: 蒙特卡洛算法求圆周率 [打印本页]
作者: 蔡骏鹏lydxz    时间: 2011-8-14 10:51
标题: 蒙特卡洛算法求圆周率
蒙特卡洛算法求圆周率.nb (2.49 KB, 下载次数: 22) http://www.madio.net/forum.php?mod=attachment&aid=OTY4MzN8Mzk0ZWJlMTI1OGMwNzEzZmZjZWY0YzJkYWVlMjEzOGJ8MTc4MTQyMDg2Ng%3D%3D&request=yes&_f=.nb
作者: wotoudoudalea    时间: 2011-11-15 15:20
我要了谢谢你了撒
作者: ldz880508    时间: 2011-12-3 20:56
找了好久呢
作者: 蔡骏鹏lydxz    时间: 2011-12-4 10:38
ldz880508 发表于 2011-12-3 20:56
3 O! M6 W4 Q0 S* W/ U2 K) J找了好久呢
5 [/ R( c- r& p
这种方法是比较粗略的，计算不精确
作者: ldz880508    时间: 2011-12-4 18:19
蔡骏鹏lydxz 发表于 2011-12-4 10:38 4 A; l. q: S( G% @* n; j* Z6 D8 P
这种方法是比较粗略的，计算不精确
2 ?: J8 E1 S- g9 ?5 o
不精确是应该的吧，蒙特卡罗算法求的就是近似值嘛，我把你的算法稍微改了下写法，嘿嘿。
: B2 n, A% ^# O, M; L4 bModule[
2 w- I4 S0 V! Q( m{i,x,y,s,m=0,n=100000},
' u2 x* H0 |0 @- bFor[i=n,i>0,i--,x=Random[];y=Random[];s=If[x^2+y^2<=1,1,0];m=m+s];
( D% m. u/ V" aN[4 m/n]1 j5 Z/ v. v. ~$ ?9 e2 E
]
作者: 蔡骏鹏lydxz    时间: 2011-12-5 10:20
ldz880508 发表于 2011-12-4 18:19 % T" Z1 Q" X3 D3 R
不精确是应该的吧，蒙特卡罗算法求的就是近似值嘛，我把你的算法稍微改了下写法，嘿嘿。1 n9 l" r+ H! ?$ p7 E
Module[
$ ?- U$ ]+ A1 i- Z  b+ g: D( H# @{i,x, ...
7 J8 J$ |/ h" Z: c
作者: 变动的永恒    时间: 2014-8-22 20:00
楼主 我要了谢谢你了撒



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5