From: Tony Lance <judema...@bigberthathing.co.uk> Newsgroups: swnet.sci.astro,sci.space.policy Subject: Re: Big Bertha Thing tidings Date: Fri, 06 Apr 2007 15:04:46 +0100
Big Bertha Thing PI Cosmic Ray Series Possible Real World System Constructs http://www.tonylance.talktalk.net/calpi.html Access page to 46K ZIP file Astrophysics net ring access site Newsgroup Reviews including alt.politics.bush
Calculate PI upto 3000 decimal places.
Ready to run Fortran 77 program complete with original source code and ported source code in listing format. Adds extended precision routines to Fortran 77. Written by Mark P. Esplin Ported to Fortran 77 By Tony Lance
Big Bertha Thing general
A general told his troops, before the big battle, "Right lads, we are outnumbered 4 to 1, but we are much better than them, so we should win through in the end!"
Half-way through the battle he sees one of his men leaning against a tree smoking. He rushes up to him, calls him all the names under the sun and asks him what he thinks he is doing? He replied "I have already killed my four." Try not to turn the minimum requirements, into the maximum of your endeavour.
(C) Copyright Tony Lance 1999. To comply with my copyright, please distribute complete and free of charge.
> Big Bertha Thing PI > Cosmic Ray Series > Possible Real World System Constructshttp://www.tonylance.talktalk.net/calpi.html > Access page to 46K ZIP file > Astrophysics net ring access site > Newsgroup Reviews including alt.politics.bush
> Calculate PI upto 3000 decimal places.
> Ready to run Fortran 77 program complete with original > source code and ported source code in listing format. > Adds extended precision routines to Fortran 77. > Written by Mark P. Esplin > Ported to Fortran 77 > By Tony Lance
Fortran 77? This is the 21st century. Try to keep up.
Python 3.1 (r31:73574, Jun 26 2009, 20:21:35) [MSC v.1500 32 bit (Intel)] on win32 Type "copyright", "credits" or "license()" for more information.
> A general told his troops, before the big battle, "Right lads, > we are outnumbered 4 to 1, but we are much better than them, > so we should win through in the end!"
> Half-way through the battle he sees one of his men > leaning against a tree smoking. He rushes up to him, > calls him all the names under the sun > and asks him what he thinks he is doing? > He replied "I have already killed my four." > Try not to turn the minimum requirements, > into the maximum of your endeavour.
> (C) Copyright Tony Lance 1999. > To comply with my copyright, > please distribute complete and free of charge.
Hi there, Ten years ago, someone poured scorn on this posting, so some-else did what you did and posted 3000 decimal places of pi, using my software. I have got a Fortran 95 compiler software package. It cost 175 pounds stirling. Unfortunately that is as far as I got. Google has just filtered it out using the smtp protocol, which tells you of emails not delivered and why. (swnet.sci.astro) Once upon a time AOL and Compuserve thought they owned the internet, whereas they only had little walled gardens. Google thinks it owns usenet. (deja-vu) Thank you, Tony Lance tonyla...@myinternetuk.com +++++++++++++++++++++++++++++++++++++
On Nov 3, 12:06 pm, Tony Lance <tonyla...@myinternetuk.com> wrote:
> Hi there, > Ten years ago, someone poured scorn on this posting,
As well they should.
> so some-else did > what you did and posted 3000 decimal places of pi, using my software.
I had no need of your software. There should be absolutely no interest in this junk as it has been superceeded by other languages.
> I have got a Fortran 95 compiler software package. It cost 175 pounds > stirling. Unfortunately that is as far as I got.
Wasted 175 pounds, eh? By the way, Python costs nothing.
> Google has just filtered it out using the smtp protocol, which tells > you of emails not delivered and why. (swnet.sci.astro) > Once upon a time AOL and Compuserve thought they owned the internet, > whereas they only had little walled gardens. Google thinks it owns > usenet. (deja-vu)
> Hi there, > Ten years ago, someone poured scorn on this posting, >As well they should. >> so some-else did >> what you did and posted 3000 decimal places of pi, using my software. >I had no need of your software. There should be absolutely no interest >in this junk as it has been superceeded by other languages. >> I have got a Fortran 95 compiler software package. It cost 175 pounds >> stirling. Unfortunately that is as far as I got. >Wasted 175 pounds, eh? By the way, Python costs nothing.
> >> so some-else did > >> what you did and posted 3000 decimal places of pi, using my software.
> >I had no need of your software. There should be absolutely no interest > >in this junk as it has been superceeded by other languages.
> >> I have got a Fortran 95 compiler software package. It cost 175 pounds > >> stirling. Unfortunately that is as far as I got.
> >Wasted 175 pounds, eh? By the way, Python costs nothing.
> **************************************
> Ugh, FORTRAN 95 (should be all caps)
Nope. Since Fortran 90, only the first letter has been capitalized.
> How many byte precision is it ? 8 or 16 ?
> bet pi was a challenge with such crummy precision
Calculation of pi to 32000 digits is trivial even with integer precision:
dcorbit@DCORBIT2008 /c/tmp $ cat dikpi.c /* Calculation of pi to 32372 decimal digits */ /* After Dik T. Winter, CWI Amsterdam */ #include<stdio.h> unsigned a=1e4,b,c=113316,d,e,f[113316],g,h,i; int main(){for(;b=c,c-=14;i=printf("%04d",e+d/a),e=d%a) while(g=--b*2)d=h*b+a*(i?f[b]:a/5),h=d/--g,f[b]=d-g*h; return 0;}
dcorbit@DCORBIT2008 /c/tmp $ gcc -O3 -W -Wall -ansi -pedantic dikpi.c dikpi.c: In function 'main': dikpi.c:6: warning: suggest parentheses around assignment used as truth value
dcorbit@DCORBIT2008 /c/tmp $ ./a.exe 314159265358979323846264338327950288419716939937510582097494459230781640 62862089986280348253421170679821480865132823066470938446095505822317 253594081284811174502841027019385211055596446229489549303819644288109756 65933446128475648233786783165271201909145648566923460348610454326648 213393607260249141273724587006606315588174881520920962829254091715364367 89259036001133053054882046652138414695194151160943305727036575959195 [snip of many digits] */
Hi Dann, 16 bit precision. I did not write it just ported it to 77. It was originally Microsoft Fortran. It has a suite of subroutines to extend the precision to 3000 decimal places. Fortran 95 has quad precision and lets you write programs as big as you like. Here is output from one I wrote in 1997 using 77. see link:- http://groups.google.co.uk/group/swnet.sci.astro/browse_frm/thread/a0... It only took 42 years to get to this point. (10 years Fortran and 4 years maths) Thank you, Tony Lance tonyla...@myinternetuk.com +++++++++++++++++++++++++++++++++++++++++++
|
