| 查看: 1539 | 回复: 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< } |
回复此楼» 猜你喜欢
考研调剂-材料类-284
已经有3人回复
-
0703化学求调剂
已经有9人回复
-
一志愿深大085601材料工程专业（专硕）300分可以调剂去哪
已经有16人回复
-
085801 总分275 本科新能源 求调剂
已经有4人回复
-
368化学求调剂
已经有9人回复
-
334求调剂
已经有10人回复
-
085404，334分，求调剂
已经有3人回复
-
材料专硕调剂
已经有15人回复
-
材料工程调剂
已经有9人回复
-
材料化工总分334求调剂
已经有3人回复
