home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
vol_200
/
247_02
/
sample.c
< prev
next >
Wrap
Text File
|
1989-04-19
|
640b
|
28 lines
/*
* Example program
*/
#include <stdio.h>
#include "miracl.h"
main()
{ /* Brents example program */
flash x,pi;
mirsys(20,MAXBASE);
x=mirvar(0);
pi=mirvar(0);
POINT=ON;
printf("Calculating pi..\n");
fpi(pi);
cotnum(pi,stdout); /* output pi */
printf("Calculating exp(pi*(163/9)^0.5)\n");
fconv(163,9,x);
froot(x,2,x);
fmul(x,pi,x);
fexp(x,x);
cotnum(x,stdout);
printf("Calculating exp(pi*(163)^0.5)\n");
fpower(x,3,x);
cotnum(x,stdout);
}