Message Boards Message Boards

1
|
1768 Views
|
0 Replies
|
1 Total Likes
View groups...
Share
Share this post:

Euler E705 (computing Pi, 1779)

Posted 3 years ago

http://eulerarchive.maa.org/hedi/HEDI-2009-02.pdf

Euler derives 1779 (age 72) this algorithm for Pi:

enter image description here

Which is suted for calculation by hand in the decimal system.

Let's see how (and if) it works:

piterms = 
  With[{n = 19}, 
   Table[(16/10 2^k + 12/10) (2 k)!!/(2 k + 1)!!, {k, 0, n}]];

Grid[Join[
  pi = MapIndexed[First[RealDigits[#1, 10, 19, #2[[1]] - 1]] &, 
    piterms], {First[
    RealDigits[Apply[Plus, Map[FromDigits, pi]]]]}, {First[
    RealDigits[N[Pi, 19]]]}], Frame -> All, 
 Background -> {None, {{LightBlue, LightYellow}, LightGreen, 
    LightRed}}]

Here 19 digits are computed and 20 terms are added (the 26th would be zero, so 25 terms would be the maximum)

The last line is Pi computed with Mathematica directly for comparison.

enter image description here

POSTED BY: Oliver Seipel
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract