找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 3494|回复: 11

经典算法求PI

[复制链接]

30

主题

210

回帖

2776

积分

用户组: 版主

UID
1821
精华
7
威望
69 点
宅币
2157 个
贡献
206 次
宅之契约
0 份
在线时间
479 小时
注册时间
2016-7-12
发表于 2017-4-18 18:03:16 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有账号?立即注册→加入我们

×
蒲丰投针,其实这算法本质是个求定积分的算法

  1. #include <windows.h>
  2. #define N 10000
  3. #define C 20
  4. #define R 19

  5. __int64 a=1000000, b=0, c=N*R, d, e, f[N*R+1], g;   
  6. main()   
  7. {   
  8. for (;b-c;) f[b++]=C*N;
  9. for(;d=0,g=c*2;c-=R,printf("%.6d",e+d/a),e=d%a)   
  10. for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);   
  11. system("pause");
  12. return 0;   
  13. }   
复制代码

本帖被以下淘专辑推荐:

回复

使用道具 举报

1110

主题

1651

回帖

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
244
威望
743 点
宅币
24221 个
贡献
46222 次
宅之契约
0 份
在线时间
2296 小时
注册时间
2014-1-26
发表于 2017-4-18 19:29:01 | 显示全部楼层
无力吐槽abcdefg,不过代码还真简短
回复 赞! 靠!

使用道具 举报

0

主题

8

回帖

64

积分

用户组: 小·技术宅

UID
2357
精华
0
威望
1 点
宅币
54 个
贡献
0 次
宅之契约
0 份
在线时间
10 小时
注册时间
2017-3-28
发表于 2017-4-23 01:11:50 | 显示全部楼层
我今天在http://outofmemory.cn/code-snipp ... c-algorithm-PI-tell 上也看到一个求pi的算法了呢。不过好长,囧。
回复 赞! 靠!

使用道具 举报

13

主题

49

回帖

513

积分

用户组: 大·技术宅

UID
2285
精华
0
威望
39 点
宅币
362 个
贡献
11 次
宅之契约
0 份
在线时间
36 小时
注册时间
2017-2-25
发表于 2017-5-4 12:45:50 | 显示全部楼层
N久前看到过,3行代码计算PI的东西,你这个有点长了。。。
回复 赞! 靠!

使用道具 举报

30

主题

210

回帖

2776

积分

用户组: 版主

UID
1821
精华
7
威望
69 点
宅币
2157 个
贡献
206 次
宅之契约
0 份
在线时间
479 小时
注册时间
2016-7-12
 楼主| 发表于 2017-5-4 19:23:04 | 显示全部楼层
乘简 发表于 2017-5-4 12:45
N久前看到过,3行代码计算PI的东西,你这个有点长了。。。

当然有点长 因为对原代码进行了词义解释 方便计算精度的扩展
回复 赞! 靠!

使用道具 举报

1110

主题

1651

回帖

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
244
威望
743 点
宅币
24221 个
贡献
46222 次
宅之契约
0 份
在线时间
2296 小时
注册时间
2014-1-26
发表于 2017-5-5 07:12:59 | 显示全部楼层
乘简 发表于 2017-5-4 12:45
N久前看到过,3行代码计算PI的东西,你这个有点长了。。。

代码长度不能决定其优秀程度
回复 赞! 靠!

使用道具 举报

13

主题

49

回帖

513

积分

用户组: 大·技术宅

UID
2285
精华
0
威望
39 点
宅币
362 个
贡献
11 次
宅之契约
0 份
在线时间
36 小时
注册时间
2017-2-25
发表于 2017-5-26 16:58:34 | 显示全部楼层
本帖最后由 乘简 于 2017-5-26 17:03 编辑

原来代码是一样的。。。
回复 赞! 靠!

使用道具 举报

13

主题

49

回帖

513

积分

用户组: 大·技术宅

UID
2285
精华
0
威望
39 点
宅币
362 个
贡献
11 次
宅之契约
0 份
在线时间
36 小时
注册时间
2017-2-25
发表于 2017-5-26 17:00:32 | 显示全部楼层
本帖最后由 乘简 于 2017-5-26 17:03 编辑
0xAA55 发表于 2017-5-5 07:12
代码长度不能决定其优秀程度


不好意思,发错了。。。
回复 赞! 靠!

使用道具 举报

13

主题

49

回帖

513

积分

用户组: 大·技术宅

UID
2285
精华
0
威望
39 点
宅币
362 个
贡献
11 次
宅之契约
0 份
在线时间
36 小时
注册时间
2017-2-25
发表于 2017-5-26 17:02:15 | 显示全部楼层
0xAA55 发表于 2017-5-5 07:12
代码长度不能决定其优秀程度

不好意思,是我看错了。。。
回复 赞! 靠!

使用道具 举报

1

主题

83

回帖

89

积分

用户组: 小·技术宅

UID
3026
精华
0
威望
1 点
宅币
3 个
贡献
0 次
宅之契约
0 份
在线时间
6 小时
注册时间
2017-10-31
发表于 2017-11-7 23:25:45 | 显示全部楼层
这就是精髓的
回复 赞! 靠!

使用道具 举报

29

主题

315

回帖

1561

积分

用户组: 上·技术宅

UID
3808
精华
11
威望
105 点
宅币
702 个
贡献
165 次
宅之契约
0 份
在线时间
404 小时
注册时间
2018-5-6
发表于 2018-9-7 08:18:21 | 显示全部楼层
蒙特卡洛方法与数值模拟第一课就是讲的蒲丰式投针实验,
Passion Coding!
回复 赞! 靠!

使用道具 举报

0

主题

28

回帖

4320

积分

用户组: 真·技术宅

UID
3513
精华
0
威望
12 点
宅币
4268 个
贡献
0 次
宅之契约
0 份
在线时间
385 小时
注册时间
2018-3-1
发表于 2019-3-7 06:39:53 | 显示全部楼层
发帖辛苦,谢谢分享
回复 赞! 靠!

使用道具 举报

QQ|Archiver|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2024-4-19 01:19 , Processed in 0.038922 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表