| 查看: 1595 | 回复: 0 | ||
zzlovejyt金虫 (著名写手)
|
[求助]
将C语言编写的蒙特卡罗方法求解圆周率改写为fortran语言
|
|
说明：本例中先取0到20000之间的随机数，然后再用这些点除以10000即可得到0到2之间的随机数，随机数精度为五位有效数。 以下是用c++语言模拟的求解圆周率的程序： #include #include #include #include using namespace std; int main() { int dwCount; cout<<"请输入打点的数目"< double j,k; double x,y; double m=0; for(int i=0;i j=(int)(20000.0*rand()/(RAND_MAX+0));//取从0到20000之间的随机数 k=(int)(20000.0*rand()/(RAND_MAX+0));//取从0到20000之间的随机数 x=j/10000; /*用刚才所取得随机数除以10000就是0到2之间的随机数，5位有效数字，代表横坐标*/ y=k/10000; /*用刚才所取得随机数除以10000就是0到2之间的随机数，5位有效数字，代表纵坐标*/ if(((x-1)*(x-1)+(y-1)*(y-1))<=1) //判断所取得点是否在圆内 { m++; //如果这个所取得点在圆内，则计数器加1 } cout< cout< cout< cout< } |
回复此楼» 猜你喜欢
咱们一起用铁证分析2026国家社科基金中标与否
已经有25人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有70人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
-
招聘 金属平磨液，抛光液研发工程师
已经有3人回复
-
时间戳又变了8-15
已经有23人回复
-
filecode=后面第一个是大写字母
已经有7人回复
-
filecode
已经有12人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有13人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有7人回复
