| 查看: 1534 | 回复: 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< } |
回复此楼» 猜你喜欢
267一志愿南京工业大学0817化工求调剂
已经有7人回复
-
一志愿华中科技大学，080502，354分求调剂
已经有3人回复
-
一志愿中国海洋大学，生物学，301分，求调剂
已经有4人回复
-
一志愿武理材料305分求调剂
已经有6人回复
-
材料专硕英一数二306
已经有3人回复
-
085600材料与化工调剂 324分
已经有7人回复
-
311求调剂
已经有3人回复
-
26调剂/材料/英一数二/总分289/已过A区线
已经有7人回复
-
295求调剂
已经有5人回复
-
354求调剂
已经有5人回复
5