数学建模社区-数学中国

标题: 蒙特卡洛算法求圆周率 [打印本页]
作者: 蔡骏鹏lydxz    时间: 2011-8-14 10:51
标题: 蒙特卡洛算法求圆周率
蒙特卡洛算法求圆周率.nb (2.49 KB, 下载次数: 22) http://www.madio.net/forum.php?mod=attachment&aid=OTY4MzN8Y2UwMzc5N2NhNGU0NWM3OGIyODUxZTZhY2U2MmIxMjB8MTc5MTQ4NDkwMQ%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 : ?! @% K* {* z# Z- o
找了好久呢
5 g9 s- c( c$ M! u# c* t: V
这种方法是比较粗略的，计算不精确
作者: ldz880508    时间: 2011-12-4 18:19
蔡骏鹏lydxz 发表于 2011-12-4 10:38
3 Z- {' `9 z7 K. Q( g这种方法是比较粗略的，计算不精确
$ }- a* H+ B, |, D1 A% w. _' C
不精确是应该的吧，蒙特卡罗算法求的就是近似值嘛，我把你的算法稍微改了下写法，嘿嘿。: K# S7 }' y# \3 X! P; c! J
Module[, [0 ?* G& Y8 z" n
{i,x,y,s,m=0,n=100000},6 Y- d! [% a# a& o
For[i=n,i>0,i--,x=Random[];y=Random[];s=If[x^2+y^2<=1,1,0];m=m+s];2 {. k) \8 z; X4 p9 E
N[4 m/n]
) S. D% J+ r) v* w8 D]
作者: 蔡骏鹏lydxz    时间: 2011-12-5 10:20
ldz880508 发表于 2011-12-4 18:19
0 H- f6 B( R7 o8 B, u$ X% g8 I不精确是应该的吧，蒙特卡罗算法求的就是近似值嘛，我把你的算法稍微改了下写法，嘿嘿。6 d5 a- k2 F3 e* T) f
Module[' w+ X2 T. Q; Z5 B+ X" E
{i,x, ...
7 X5 g( L4 q* _( C& f7 r0 ^
作者: 变动的永恒    时间: 2014-8-22 20:00
楼主 我要了谢谢你了撒



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