24小时热门版块排行榜    

查看: 1593  |  回复: 0

zzlovejyt

金虫 (著名写手)

[求助] 将C语言编写的蒙特卡罗方法求解圆周率改写为fortran语言

说明:本例中先取0到20000之间的随机数,然后再用这些点除以10000即可得到0到2之间的随机数,随机数精度为五位有效数。
以下是用c++语言模拟的求解圆周率的程序:

#include
#include    //setw函数,setprecision函数
#include       //time函数
#include     //srand,rand函数
using namespace std;
int main()
{
        int dwCount;
        cout<<"请输入打点的数目"<         cin>>dwCount;            //自己输入所要取的点数。
        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<         double s=m/dwCount;    //用圆内的点数除以所取得点数,得到一个比例
        cout<     double t=4*s;    /*用刚才的点数乘以4就是圆的面积,因为这里做了特殊,所以这个值也就是圆周率*/
    cout< return 0;
}
回复此楼
人生苦短,何妨一试,每个读硕读博的人都曾在一段苦逼的岁月里像个二逼的坚持着!
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zzlovejyt 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +9 majunge000 2026-08-11 11/550 2026-08-15 23:20 by botar
[基金申请] 时间戳又变了8-15 +12 archvillain 2026-08-15 23/1150 2026-08-15 20:47 by foyo404
[基金申请] filecode=后面第一个是大写字母 +6 wangze12014 2026-08-14 7/350 2026-08-15 20:12 by gltch
[基金申请] filecode +8 cratir 2026-08-14 12/600 2026-08-15 18:08 by zyfgau
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +12 Tide man 2026-08-10 13/650 2026-08-15 16:34 by 氺木
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜? +7 Ldrop2023 2026-08-13 7/350 2026-08-15 15:57 by mzhh2000
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +23 Lanmanbaby 2026-08-09 37/1850 2026-08-14 13:40 by Equinoxhua
[硕博家园] 请教兼职经验 +3 是阿文鸭 2026-08-09 3/150 2026-08-14 12:07 by HER12025
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[文学芳草园] 阿姨 +4 汪汪锅 2026-08-09 4/200 2026-08-13 19:43 by arzu_hma
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
信息提示
请填处理意见