/******************************************************************************/

/*
#                            A SLICE OF PI - XXV
#
#              On the Origin of the Truncated Northian Series for Pi
#
#                            Joseph Roy D. North
#                            2008 Jan. 04 d
# 
#
*/

scale = 100;
pi = 0;
pin = 0;
ll = 10000000000;
lc = 0;

for(lc = ll - 1; lc >= 1; lc -= 2)
{   
   pin += 1.0 / (4 * lc * lc - 1);

   /* print"pin = ", pin, "\n"; */
}

pin = 8 * pin;

print"lc = ", lc, "\n";

print"pin = ", pin, "\n";

pi = 4 * a(1.0);

print"pi  = ", pi, "\n\a";

halt;

/******************************************************************************/

/*                           SESSION OUTPUT:                                  */

Fri Jan  4 12:03:02 CST 2008
lc = -1
pin = 3.141592653489793238462643383279752884197169399375102695974944\
5923078165015987089986280348179319741016
pi  = 3.141592653589793238462643383279502884197169399375105820974944\
5923078164062862089986280348253421170676
Sat Jan  5 15:36:08 CST 2008



#!/bin/bash
# This script automates the evaluation of the truncated Northian Series.

date > pi29.out
time bc -l < pi29.bc >> pi29.out
date >> pi29.out



address@hidden n1]$ ./pi29.com &
[5] 12611
[4]   Done                    gedit pi29.out
address@hidden n1]$ 
address@hidden n1]$ ps
  PID TTY          TIME CMD
 3737 pts/1    00:00:00 bash
12012 pts/1    00:00:03 gedit
12611 pts/1    00:00:00 pi29.com
12613 pts/1    00:28:01 bc
13829 pts/1    00:00:00 ps
address@hidden n1]$ ps
  PID TTY          TIME CMD
 3737 pts/1    00:00:00 bash
12611 pts/1    00:00:00 pi29.com
12613 pts/1    00:34:08 bc
14088 pts/1    00:00:00 ps
[3]-  Done                    gedit pi29.bc
address@hidden n1]$ date
Fri Jan  4 12:37:46 CST 2008
address@hidden n1]$ ps
  PID TTY          TIME CMD
 3737 pts/1    00:00:00 bash
12611 pts/1    00:00:00 pi29.com
12613 pts/1    06:16:50 bc
29294 pts/1    00:00:00 ps
.
.
.

address@hidden n1]$ ps
  PID TTY          TIME CMD
 3737 pts/1    00:00:00 bash
12611 pts/1    00:00:00 pi29.com
12613 pts/1    1-01:40:44 bc
29331 pts/1    00:00:00 ps
address@hidden n1]$ 
real    1653m5.358s
user    1650m51.910s
sys     0m53.904s

[5]+  Done                    ./pi29.com
address@hidden n1]$ date
Sat Jan  5 18:45:52 CST 2008


/******************************************************************************/

/*                           DETAILS:                                         */

1: Purpose: To introduce the truncated Northian Series for pi.
2: Host: Generic PC, RAM = 4.0 GB.
3: CPU: AMD Athlon 64 X2 Dual-Core Processor 5600+, 2.80 GHz.
4: OS: Red Hat Linux Fedora 8, updated.
5: Author: Joseph Roy D. North,
           V: (512) 835-0982 (C),
           E: address@hidden,
           E: address@hidden

/******************************************************************************/