1 /*
2 * Example program
3 */
4
5 #include <stdio.h>
6 #include "miracl.h"
7
main()8 int main()
9 { /* Brents example program */
10 flash x,pi;
11 miracl *mip=mirsys(-35,0);
12 x=mirvar(0);
13 pi=mirvar(0);
14 mip->RPOINT=ON;
15 printf("Calculating pi..\n");
16 fpi(pi);
17 cotnum(pi,stdout); /* output pi */
18 printf("Calculating exp(pi*(163/9)^0.5)\n");
19 fconv(163,9,x);
20 froot(x,2,x);
21 fmul(x,pi,x);
22 fexp(x,x);
23 cotnum(x,stdout);
24 printf("Calculating exp(pi*(163)^0.5)\n");
25 fpower(x,3,x);
26 cotnum(x,stdout);
27 return 0;
28 }
29
30