Programming Pi

 BBS: Inland Empire Archive
Date: 05-08-92 (22:27)             Number: 169
From: DAVID BLISS                  Refer#: NONE
  To: ANDY KIDLE                    Recvd: NO  
Subj: Programming Pi                 Conf: (2) Quik_Bas

 > QUICKC for programming.  Here are the two series,
 > so if you can help, let me know:

 > pi = 4(1 - 1/3 + 1/5 - 1/7 + 1/9 - 1/11 +......)

I can write you a loop to calculate this, but i'd need more
time to work on the other one...

for x=1 to iterations%
if (x/2=int(x/2)) or (x=1) then
    t=t+1/((x*2)+1)
else
    t=t-1/((x*2)+1)
end if
next x
pi=4*(1-t)

That SHOULD work.  if not, fiddle it until it does.  I'll
look at the second series tonight and come up with some
finished code for you by sunday.

dave

---
 * Origin: The Aliens BBS, Simpsonville SC, 8032347195 (1:3639/4)