Bc1

From CleanPosts

Jump to: navigation, search

BC

Using the arctangent function in bc to obtain pi to 1000 digits.

teresita@teresita-Latitude-D630:~/Desktop$ bc -l

bc 1.07.1

Copyright 1991-1994, 1997, 1998, 2000, 2004, 2006, 2008, 2012-2017 Free Software Foundation, Inc.

This is free software with ABSOLUTELY NO WARRANTY.

For details type `warranty'.

scale=1000

4*a(1)

3.141592653589793238462643383279502884197169399375105820974944592307\

81640628620899862803482534211706798214808651328230664709384460955058\

22317253594081284811174502841027019385211055596446229489549303819644\

28810975665933446128475648233786783165271201909145648566923460348610\

45432664821339360726024914127372458700660631558817488152092096282925\

40917153643678925903600113305305488204665213841469519415116094330572\

70365759591953092186117381932611793105118548074462379962749567351885\

75272489122793818301194912983367336244065664308602139494639522473719\

07021798609437027705392171762931767523846748184676694051320005681271\

45263560827785771342757789609173637178721468440901224953430146549585\

37105079227968925892354201995611212902196086403441815981362977477130\

99605187072113499999983729780499510597317328160963185950244594553469\

08302642522308253344685035261931188171010003137838752886587533208381\

42061717766914730359825349042875546873115956286388235378759375195778\

18577805321712268066130019278766111959092164201988


quit

teresita@teresita-Latitude-D630:~/Desktop$


I like the recursive C function for the Fibonacci series, which calls itself twice in the same function.

define fibonacci(n) {if((n==1)||(n==0)) {return(n);} else {return(fibonacci(n-1)+fibonacci(n-2));}}

scale=10

fibonacci(20) / fibonacci(19)

1.6180339631


Power function (a ^ b)

define pow(a, b) {
   if (scale(b) == 0) {
       return a ^ b;
   }
   return e(b*l(a));
}


Personal tools
Strangers In Paradise