int main() { long iter; flint_rand_t state; printf("sin_cos_series_tangent...."); fflush(stdout); flint_randinit(state); for (iter = 0; iter < 10000; iter++) { long m, n, qbits, rbits1, rbits2; fmpq_poly_t A, B; fmprb_poly_t a, b, c, d, e; qbits = 2 + n_randint(state, 200); rbits1 = 2 + n_randint(state, 200); rbits2 = 2 + n_randint(state, 200); m = 1 + n_randint(state, 30); n = 1 + n_randint(state, 30); fmpq_poly_init(A); fmpq_poly_init(B); fmprb_poly_init(a); fmprb_poly_init(b); fmprb_poly_init(c); fmprb_poly_init(d); fmprb_poly_init(e); fmpq_poly_randtest(A, state, m, qbits); fmprb_poly_set_fmpq_poly(a, A, rbits1); fmprb_poly_sin_cos_series_tangent(b, c, a, n, rbits2); /* Check sin(x)^2 + cos(x)^2 = 1 */ fmprb_poly_mullow(d, b, b, n, rbits2); fmprb_poly_mullow(e, c, c, n, rbits2); fmprb_poly_add(d, d, e, rbits2); fmpq_poly_one(B); if (!fmprb_poly_contains_fmpq_poly(d, B)) { printf("FAIL\n\n"); printf("bits2 = %ld\n", rbits2); printf("A = "); fmpq_poly_print(A); printf("\n\n"); printf("a = "); fmprb_poly_printd(a, 15); printf("\n\n"); printf("b = "); fmprb_poly_printd(b, 15); printf("\n\n"); printf("c = "); fmprb_poly_printd(c, 15); printf("\n\n"); printf("d = "); fmprb_poly_printd(d, 15); printf("\n\n"); abort(); } fmprb_poly_set(d, a); fmprb_poly_sin_cos_series_tangent(d, c, d, n, rbits2); if (!fmprb_poly_equal(b, d)) { printf("FAIL (aliasing 1)\n\n"); abort(); } fmprb_poly_set(d, a); fmprb_poly_sin_cos_series_tangent(b, d, d, n, rbits2); if (!fmprb_poly_equal(c, d)) { printf("FAIL (aliasing 2)\n\n"); abort(); } fmpq_poly_clear(A); fmpq_poly_clear(B); fmprb_poly_clear(a); fmprb_poly_clear(b); fmprb_poly_clear(c); fmprb_poly_clear(d); fmprb_poly_clear(e); } flint_randclear(state); flint_cleanup(); printf("PASS\n"); return EXIT_SUCCESS; }
int main() { slong iter; flint_rand_t state; flint_printf("sin_cos_series_basecase...."); fflush(stdout); flint_randinit(state); for (iter = 0; iter < 1000 * arb_test_multiplier(); iter++) { slong m, n, rbits1, rbits2; fmpq_poly_t B; acb_poly_t a, b, c, d, e; int times_pi; rbits1 = 2 + n_randint(state, 200); rbits2 = 2 + n_randint(state, 200); m = 1 + n_randint(state, 30); n = 1 + n_randint(state, 30); times_pi = n_randint(state, 2); fmpq_poly_init(B); acb_poly_init(a); acb_poly_init(b); acb_poly_init(c); acb_poly_init(d); acb_poly_init(e); acb_poly_randtest(a, state, m, rbits1, 10); acb_poly_sin_cos_series_basecase(b, c, a, n, rbits2, times_pi); /* Check sin(x)^2 + cos(x)^2 = 1 */ acb_poly_mullow(d, b, b, n, rbits2); acb_poly_mullow(e, c, c, n, rbits2); acb_poly_add(d, d, e, rbits2); fmpq_poly_one(B); if (!acb_poly_contains_fmpq_poly(d, B)) { flint_printf("FAIL\n\n"); flint_printf("bits2 = %wd\n", rbits2); flint_printf("a = "); acb_poly_printd(a, 15); flint_printf("\n\n"); flint_printf("b = "); acb_poly_printd(b, 15); flint_printf("\n\n"); flint_printf("c = "); acb_poly_printd(c, 15); flint_printf("\n\n"); flint_printf("d = "); acb_poly_printd(d, 15); flint_printf("\n\n"); abort(); } acb_poly_set(d, a); acb_poly_sin_cos_series_basecase(d, c, d, n, rbits2, times_pi); if (!acb_poly_equal(b, d)) { flint_printf("FAIL (aliasing 1)\n\n"); abort(); } acb_poly_set(d, a); acb_poly_sin_cos_series_basecase(b, d, d, n, rbits2, times_pi); if (!acb_poly_equal(c, d)) { flint_printf("FAIL (aliasing 2)\n\n"); abort(); } fmpq_poly_clear(B); acb_poly_clear(a); acb_poly_clear(b); acb_poly_clear(c); acb_poly_clear(d); acb_poly_clear(e); } flint_randclear(state); flint_cleanup(); flint_printf("PASS\n"); return EXIT_SUCCESS; }