| 查看: 1616 | 回复: 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< } |
回复此楼» 猜你喜欢
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
