home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
vol_200
/
247_02
/
pi.c
< prev
next >
Wrap
Text File
|
1989-04-19
|
384b
|
18 lines
/*
* Program to calculate pi
*/
#include <stdio.h>
#include "miracl.h"
main()
{ /* Calculate pi using Guass-Legendre method */
flash pi;
mirsys(-35,MAXBASE);
pi=mirvar(0);
printf("Calculating pi... \n");
POINT=ON;
fpi(pi);
cotnum(pi,stdout);
}