C家家
游戏编程之道
posts - 4,  comments - 1,  trackbacks - 0

  目前PC机上流行的最快的圆周率计算程序是PiFast。它除了计算圆周率,还可以计算e和sqrt(2)。PiFast可以利用磁盘缓存,突破物理内存的限制进行超高精度的计算,最高计算位数可达240亿位,并提供基于Fabrice Bellard公式的验算功能。
最高记录:12,884,901,372位
时间:2000年10月10日
记录创造者:Shigeru Kondo
所用程序:PiFast ver3.3
机器配置:Pentium III 1G, 1792M RAM,WindowsNT4.0,40GBx2(IDE,FastTrak66)
计算时间:1,884,375秒 (21.8天)
验算时间:29小时

·G++编译器中的运算程序微机WindowsXP中Dev-cpp中的运算程序(30000位)(C++)

 1#include <iostream>
 2#include <fstream>
 3
 4#define N 30010
 5
 6using namespace std;
 7
 8void mult (int *a,int b,int *s)
 9{
10    for (int i=N,c=0;i>=0;i--)
11    {
12        int y=(*(a+i))*b+c;
13        c=y/10;
14        *(s+i)=y%10;
15    }

16}

17
18void divi (int *a,int b,int *s)
19{
20    for (int i=0,c=0;i<=N;i++)
21    {
22        int y=(*(a+i))+c*10;
23        c=y%b;
24        *(s+i)=y/b;
25    }

26}

27
28void incr(int *a,int *b,int *s)
29{
30    for (int i=N,c=0;i>=0;i--)
31    {
32        int y=(*(a+i))+(*(b+i))+c;
33        c=y/10;
34        *(s+i)=y%10;
35    }

36}

37
38bool eqs(int *a,int *b)
39{
40    int i=0;
41    while (((*(a+i))==(*(b+i)))&&(i<=N)) i++;
42    return i>N;
43}

44
45int main(int argc, char *argv[])
46{
47    int lpi[N+1],lls[N+1],lsl[N+1],lp[N+1];
48    int *pi=lpi,*ls=lls,*sl=lsl,*p=lp;
49    for (int i=0;i<=N;i++)*(pi+i)=*(ls+i)=*(sl+i)=*(p+i)=0;
50    memset(pi,0,sizeof(pi));
51    memset(ls,0,sizeof(ls));
52    memset(sl,0,sizeof(sl));
53    memset(p,0,sizeof(p));
54    *pi=*ls=*sl=1;
55    for (int i=1;true;i++)
56    {
57        mult(ls,i,sl);
58        divi(sl,2*i+1,ls);
59        incr(pi,ls,p);
60        if (eqs(pi,p)) break;
61        int *t;
62        t=p;
63        p=pi;
64        pi=t;
65        if (i%50==0) cout << i << "   ";
66    }

67    cout << endl;
68    mult(p,2,pi);
69    ofstream fout("pi.txt");
70    fout << *pi << ".";
71    for (int i=1;i<=N;i++)
72    {
73        fout << *(pi+i);
74        if (i%10==0) fout << " ";
75        if (i%80==0) fout << endl;
76    }

77    return 0;
78}


注:①运行时会有数据弹出,那是无关紧要的,只为了加快了感觉速度;
   ②最后的txt文本里有30010位,其中最后10位可能是错的。

posted on 2009-04-09 20:35 菜青虫 阅读(915) 评论(0)  编辑 收藏 引用

只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   博问   Chat2DB   管理



<2009年4月>
2930311234
567891011
12131415161718
19202122232425
262728293012
3456789

常用链接

留言簿(1)

随笔档案

编程之道

搜索

  •  

最新评论

阅读排行榜

评论排行榜