6 static void *pi_arctan_sequence(cf_t cf
) {
18 mpz_add_ui(denom
, denom
, 2);
20 mpz_add(num
, num
, denom
);
34 pi
= cf_new(pi_arctan_sequence
, NULL
);
35 mpz_init(a
); mpz_init(b
); mpz_init(c
); mpz_init(d
);
36 mpz_set_ui(a
, 0); mpz_set_ui(b
, 4);
37 mpz_set_ui(c
, 1); mpz_set_ui(d
, 0);
39 conv
= cf_new_nonregular_to_cf(pi
, a
, b
, c
, d
);
40 cf_t dec
= cf_new_cf_to_decimal(conv
);
42 for (int i
= 1; i
<= 5000; i
++) {
45 if (!(i
%5)) printf(" ");
46 if (!(i
%50)) printf("\n");
52 mpz_clear(d
); mpz_clear(c
); mpz_clear(b
); mpz_clear(a
);