数学建模社区-数学中国

标题: 蒙特卡洛算法求圆周率 [打印本页]
作者: 蔡骏鹏lydxz    时间: 2011-8-14 10:51
标题: 蒙特卡洛算法求圆周率
蒙特卡洛算法求圆周率.nb (2.49 KB, 下载次数: 22) http://www.madio.net/forum.php?mod=attachment&aid=OTY4MzN8NDcxZmM1NGNjNTdjOTVkZGNkMGRhMzI1ODRmZGI3NTN8MTc3NTcyNjI0OA%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 6 d6 f7 M8 z% H6 `- {
找了好久呢

' J4 K* s8 D, `% \这种方法是比较粗略的，计算不精确
作者: ldz880508    时间: 2011-12-4 18:19
蔡骏鹏lydxz 发表于 2011-12-4 10:38
6 D* s6 w) \! U$ |1 e5 W/ ~. [  B0 o这种方法是比较粗略的，计算不精确
% @8 Q% i# B2 r% b- ~
不精确是应该的吧，蒙特卡罗算法求的就是近似值嘛，我把你的算法稍微改了下写法，嘿嘿。( [3 W: |/ W# k7 H) v
Module[, s2 K* G9 Y9 l$ Y  R8 T' ^
{i,x,y,s,m=0,n=100000},
& p$ ]; o( ?$ h- R9 E9 kFor[i=n,i>0,i--,x=Random[];y=Random[];s=If[x^2+y^2<=1,1,0];m=m+s];
; S0 L  C4 h# I& Z( uN[4 m/n]
/ {6 L$ Q$ L# Y$ `8 H. @]
作者: 蔡骏鹏lydxz    时间: 2011-12-5 10:20
ldz880508 发表于 2011-12-4 18:19
4 w: q9 y+ L2 T( a1 A不精确是应该的吧，蒙特卡罗算法求的就是近似值嘛，我把你的算法稍微改了下写法，嘿嘿。: B0 j) O# R3 h( B( y& Q2 Z
Module[
" j" n/ \7 A) K3 D# W' G! c! m  c{i,x, ...

9 u' z2 N# G0 g) e6 \# K
作者: 变动的永恒    时间: 2014-8-22 20:00
楼主 我要了谢谢你了撒



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