Annotation of OpenXM_contrib/pari-2.2/src/test/64/sumiter, Revision 1.2
1.1 noro 1: realprecision = 19 significant digits
2: echo = 1 (on)
3: ? intnum(x=0,Pi,sin(x),1)
4: 2.000000000000000017
5: ? sqr(2*intnum(x=0,4,exp(-x^2),1))
6: 3.141592556720305685
7: ? 4*intnum(x=1,10^20,1/(1+x^2),2)
8: 3.141592653589793208
9: ? intnum(x=-0.5,0.5,1/sqrt(1-x^2))
10: 1.047197551196597747
11: ? 2*intnum(x=0,100,sin(x)/x,3)
12: 3.124450933778112629
13: ? \p38
14: realprecision = 38 significant digits
15: ? prod(k=1,10,1+1/k!)
16: 3335784368058308553334783/905932868585678438400000
17: ? prod(k=1,10,1+1./k!)
18: 3.6821540356142043935732308433185262946
19: ? Pi^2/6*prodeuler(p=2,10000,1-p^-2)
1.2 ! noro 20: 1.0000098157493066238697591433298145166
1.1 noro 21: ? prodinf(n=0,(1+2^-n)/(1+2^(-n+1)))
1.2 ! noro 22: 0.33333333333333333333333333333333333313
1.1 noro 23: ? prodinf(n=0,-2^-n/(1+2^(-n+1)),1)
1.2 ! noro 24: 0.33333333333333333333333333333333333313
1.1 noro 25: ? solve(x=1,4,sin(x))
26: 3.1415926535897932384626433832795028841
27: ? sum(k=1,10,2^-k)
28: 1023/1024
29: ? sum(k=1,10,2.^-k)
30: 0.99902343750000000000000000000000000000
31: ? 4*sumalt(n=0,(-1)^n/(2*n+1))
32: 3.1415926535897932384626433832795028841
33: ? 4*sumalt(n=0,(-1)^n/(2*n+1),1)
34: 3.1415926535897932384626433832795028842
35: ? sumdiv(8!,x,x)
36: 159120
37: ? suminf(n=1,2.^-n)
38: 0.99999999999999999999999999999999999999
39: ? 6/Pi^2*sumpos(n=1,n^-2)
40: 0.99999999999999999999999999999999999999
41: ? getheap
1.2 ! noro 42: [19, 160]
1.1 noro 43: ? print("Total time spent: ",gettime);
1.2 ! noro 44: Total time spent: 820
1.1 noro 45: ? \q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>