mirror of
https://github.com/vale981/arb
synced 2025-03-05 09:21:38 -05:00
44 lines
798 B
C
44 lines
798 B
C
/* This file is public domain. Author: Fredrik Johansson. */
|
|
|
|
#include "arb.h"
|
|
#include "flint/profiler.h"
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
arb_t x;
|
|
slong prec, digits, condense;
|
|
|
|
if (argc < 2)
|
|
{
|
|
flint_printf("usage: build/examples/pi digits [condense = 20]\n");
|
|
return 1;
|
|
}
|
|
|
|
digits = atol(argv[1]);
|
|
|
|
if (argc > 2)
|
|
condense = atol(argv[2]);
|
|
else
|
|
condense = 20;
|
|
|
|
arb_init(x);
|
|
|
|
prec = digits * 3.3219280948873623 + 5;
|
|
|
|
flint_printf("computing pi with a precision of %wd bits... ", prec);
|
|
|
|
TIMEIT_ONCE_START
|
|
arb_const_pi(x, prec);
|
|
TIMEIT_ONCE_STOP
|
|
|
|
SHOW_MEMORY_USAGE
|
|
|
|
arb_printn(x, digits, ARB_STR_CONDENSE * condense);
|
|
|
|
flint_printf("\n");
|
|
|
|
arb_clear(x);
|
|
flint_cleanup();
|
|
return 0;
|
|
}
|
|
|