数学建模社区-数学中国

标题: 蒙特卡洛算法求圆周率 [打印本页]

作者: 蔡骏鹏lydxz    时间: 2011-8-14 10:51
标题: 蒙特卡洛算法求圆周率
蒙特卡洛算法求圆周率.nb (2.49 KB, 下载次数: 22) http://www.madio.net/forum.php?mod=attachment&aid=OTY4MzN8NTdkZjUyYWE3OTlmM2FhZmM2MTYyYTI2NzMzZmMyMzR8MTc4NzQ1ODcwMw%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
4 T" [+ A* K% K0 m! ]" g! Y! E找了好久呢
' {; `+ e! ~- i6 B
这种方法是比较粗略的,计算不精确
作者: ldz880508    时间: 2011-12-4 18:19
蔡骏鹏lydxz 发表于 2011-12-4 10:38 , [. }& ^6 C3 ^% r
这种方法是比较粗略的,计算不精确

$ r; ?( o! ^  ?/ I( F7 S不精确是应该的吧,蒙特卡罗算法求的就是近似值嘛,我把你的算法稍微改了下写法,嘿嘿。
* R3 U. t9 [- P; B7 b& c9 K( WModule[: S# `/ w: l4 _5 S: {# |
{i,x,y,s,m=0,n=100000},: G  g6 d$ F0 A# ]
For[i=n,i>0,i--,x=Random[];y=Random[];s=If[x^2+y^2<=1,1,0];m=m+s];
% z) E: }" }, I  tN[4 m/n]5 w8 e3 X/ c. q+ n
]
作者: 蔡骏鹏lydxz    时间: 2011-12-5 10:20
ldz880508 发表于 2011-12-4 18:19
3 n! H9 X9 }1 \; G1 n不精确是应该的吧,蒙特卡罗算法求的就是近似值嘛,我把你的算法稍微改了下写法,嘿嘿。- N5 U( [3 A" i, s8 K1 h; h0 p
Module[
& z2 n% C. U9 T  D{i,x, ...
" v% N% Q3 j- i  s

作者: 变动的永恒    时间: 2014-8-22 20:00
楼主 我要了谢谢你了撒




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