1 realprecision = 19 significant digits 2 echo = 1 (on) 3? gettime;intnum(x=0,Pi,sin(x)) 42.000000000000000000 5? intnum(x=0,4,exp(-x^2)) 60.8862269117895689458 7? intnum(x=1,[1],1/(1+x^2))-Pi/4 80.E-19 9? intnum(x=-0.5,0.5,1/sqrt(1-x^2))-Pi/3 100.E-19 11? intnum(x=0,[[1],-I],sin(x)/x)-Pi/2 120.E-19 13? \p38 14 realprecision = 38 significant digits 15? prod(k=1,10,1+1/k!) 163335784368058308553334783/905932868585678438400000 17? prod(k=1,10,1+1./k!) 183.6821540356142043935732308433185262946 19? Pi^2/6*prodeuler(p=2,10000,1-p^-2) 201.0000098157493066238697591433298145196 21? prodinf(n=0,(1+2^-n)/(1+2^(-n+1))) 220.33333333333333333333333333333333333320 23? prodinf(n=0,-2^-n/(1+2^(-n+1)),1) 240.33333333333333333333333333333333333320 25? solve(x=1,4,sin(x)) 263.1415926535897932384626433832795028842 27? sum(k=1,10,2^-k) 281023/1024 29? sum(k=1,10,2.^-k) 300.99902343750000000000000000000000000000 31? 4*sumalt(n=0,(-1)^n/(2*n+1)) 323.1415926535897932384626433832795028842 33? 4*sumalt(n=0,(-1)^n/(2*n+1),1) 343.1415926535897932384626433832795028842 35? sumdiv(8!,x,x) 36159120 37? suminf(n=1,2.^-n) 380.99999999999999999999999999999999999999 39? 6/Pi^2*sumpos(n=1,n^-2) 401.0000000000000000000000000000000000000 41? getheap 42[19, 158] 43? print("Total time spent: ",gettime); 44Total time spent: 34 45? \q 46