home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!gossip.pyramid.com!olivea!charnel!rat!usc!sol.ctr.columbia.edu!usenet.ucs.indiana.edu!master.cs.rose-hulman.edu!master.cs.rose-hulman.edu!news
- From: goddard@NeXTwork.Rose-Hulman.Edu (Bart E. Goddard)
- Newsgroups: sci.math
- Subject: Re: Pi base e, and e base Pi.
- Message-ID: <1gktp9INN4bg@master.cs.rose-hulman.edu>
- Date: 15 Dec 92 15:31:53 GMT
- References: <1992Dec15.041507.18194@serval.net.wsu.edu>
- Reply-To: goddard@NeXTwork.Rose-Hulman.Edu (Bart E. Goddard)
- Organization: Computer Science Department at Rose-Hulman
- Lines: 41
- NNTP-Posting-Host: g214-1.nextwork.rose-hulman.edu
-
- In article <1992Dec15.041507.18194@serval.net.wsu.edu>
- wvanweer@wsuaix.csc.wsu.edu (Wayne VanWeerthuizen) writes:
- > Is there an efficient method for calculating pi base e, or e
- base pi
- > to an arbitrary number of digits?
- >
- > What are the first 40 digits of each?
- >
- > --
- In Mathematica I typed:
-
- RealDigits[N[E,40],N[Pi,40]]
-
- {{2, 2, 0, 2, 1, 2, 0, 1, 0, 0, 2, 1, 1, 1, 1, 2, 2, 0,
-
- 0, 1, 1, 0, 1, 2, 0, 1, 0, 0, 0, 2, 0, 1, 1, 2, 0, 2,
-
- 2, 1, 0, 1, 2, 0, 0, 1, 1, 1, 2, 1, 0, 1, 2, 1, 1, 0,
-
- 2, 1, 1, 2, 1, 2, 1, 2, 2, 0, 1, 1, 0, 3, 0, 0, 2, 2,
-
- 0, 0, 2, 0, 0, 0, 0, 0}, 1}
- Which means 2.20212...
- and:
-
- RealDigits[N[Pi,40],N[E,40]]
-
- {{1, 0, 1, 0, 1, 0, 0, 2, 0, 2, 0, 0, 0, 2, 1, 1, 1, 1,
-
- 2, 0, 0, 2, 0, 1, 0, 1, 1, 2, 0, 0, 0, 1, 0, 1, 0, 2,
-
- 0, 2, 0, 0, 0, 1, 1, 1, 0, 1, 2, 0, 2, 0, 0, 1, 0, 1,
-
- 2, 0, 0, 0, 2, 0, 0, 1, 1, 0, 1, 1, 2, 0, 1, 0, 1, 2,
-
- 1, 0, 0, 1, 0, 0, 0, 2, 1, 0, 0, 1, 0, 0, 2, 1, 1, 0,
-
- 1}, 2}
- Which means 10.101002...
-
- Bart
-