Programming Pi

 BBS: Inland Empire Archive
Date: 05-24-92 (11:09)             Number: 191
From: ROB FLOR                     Refer#: NONE
  To: BILL WHITE                    Recvd: NO  
Subj: Programming Pi                 Conf: (2) Quik_Bas

BW>RF>  I just saw this post by accident, don't know why I didn't get
  >RF>it last week.  Did you see my subsequent post using integers and
  >RF>postponing the division until the end?

BW>     No, didn't see it.  I find a lot goes unseen - I'll
  >find others responding to messages I never the original
  >of - the system isn't perfect.  And, of course, I'll have
  >to admit that sometimes I zip thru pretty quickly,
  >especially when there's been a 2 day dry period followed
  >by 250 messages!

You are very lucky.  We get 40 - 50 a day this side of the black hole.
Here it is.

'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
DEFINT A-Z :DEFLNG A,B,C,D

A = 1: B = 1: C = 1: Sign = 0
N = 25  'lets say

FOR D = 3 TO N STEP 2
   Sign = NOT Sign

  'Find common denominator, A*D/B*D, C*B/D*B

   IF Sign THEN C = -B ELSE C = B 'C is always 1 so 1*B=B

   B = B * D     'D*B = B*D so skip calculating D*B

   A = A * D     'multiply top and bottom by same amount


   A = A + C     ' A = A + [+|-]C

  'faster
  ' PRINT "Intermediate calculation of pi = 4( "; A; "/"; B; " )"
  'slower
   PRINT "PI="; 4# * (A / B)
NEXT

PRINT "pi to "; N; " calculations ="; 4# * (A / B) 'the only division

'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

' Rob


 * OLX 2.2 * * IMAGE OF ELVIS IN DUST BUNNY *    pine cone diet page 8


--- WM v2.01/91-0156
 * Origin: BEAR HEAVEN BBS (914) 677-6948 MILLBROOK NY (1:272/53)