int main() { slong iter; flint_rand_t state; flint_printf("sinh_cosh_series...."); fflush(stdout); flint_randinit(state); for (iter = 0; iter < 1000 * arb_test_multiplier(); iter++) { acb_poly_t a, b, c, d, e; slong n1, n2, prec; int alg1, alg2; prec = 2 + n_randint(state, 200); if (n_randint(state, 40) == 0) { n1 = n_randint(state, 300); n2 = n_randint(state, 300); } else { n1 = n_randint(state, 30); n2 = n_randint(state, 30); } 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, 20, prec, 3); acb_poly_randtest(b, state, 20, prec, 10); acb_poly_randtest(c, state, 20, prec, 10); acb_poly_randtest(d, state, 20, prec, 10); acb_poly_randtest(e, state, 20, prec, 10); alg1 = n_randint(state, 4); alg2 = n_randint(state, 7); switch (alg1) { case 0: acb_poly_sinh_cosh_series(b, c, a, n1, prec); break; case 1: acb_poly_sinh_cosh_series_basecase(b, c, a, n1, prec); break; case 2: acb_poly_sinh_cosh_series_exponential(b, c, a, n1, prec); break; default: acb_poly_sinh_series(b, a, n1, prec); acb_poly_cosh_series(c, a, n1, prec); break; } switch (alg2) { case 0: acb_poly_sinh_cosh_series(d, e, a, n2, prec); break; case 1: acb_poly_sinh_cosh_series_basecase(d, e, a, n2, prec); break; case 2: acb_poly_sinh_cosh_series_exponential(d, e, a, n2, prec); break; case 3: acb_poly_sinh_series(d, a, n2, prec); acb_poly_cosh_series(e, a, n2, prec); break; case 4: acb_poly_set(d, a); acb_poly_sinh_cosh_series(d, e, d, n2, prec); break; case 5: acb_poly_set(e, a); acb_poly_sinh_cosh_series(d, e, e, n2, prec); break; default: acb_poly_set(d, a); acb_poly_sinh_series(d, d, n2, prec); acb_poly_set(e, a); acb_poly_cosh_series(e, e, n2, prec); break; } acb_poly_truncate(b, FLINT_MIN(n1, n2)); acb_poly_truncate(c, FLINT_MIN(n1, n2)); acb_poly_truncate(d, FLINT_MIN(n1, n2)); acb_poly_truncate(e, FLINT_MIN(n1, n2)); if (!acb_poly_overlaps(b, d) || !acb_poly_overlaps(c, e)) { flint_printf("FAIL\n\n"); flint_printf("alg1 = %d, alg2 = %d, n1 = %wd, n2 = %wd\n\n", alg1, alg2, n1, n2); 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"); flint_printf("d = "); acb_poly_printd(e, 15); flint_printf("\n\n"); abort(); } 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; }
int main() { slong iter; flint_rand_t state; flint_printf("shi_series...."); fflush(stdout); flint_randinit(state); for (iter = 0; iter < 200 * arb_test_multiplier(); iter++) { slong m, n1, n2, n3, bits1, bits2, bits3; acb_poly_t S, A, B, C, T, U; bits1 = 2 + n_randint(state, 200); bits2 = 2 + n_randint(state, 200); bits3 = 2 + n_randint(state, 200); m = 1 + n_randint(state, 10); n1 = 1 + n_randint(state, 10); n2 = 1 + n_randint(state, 10); n3 = FLINT_MIN(n1, n2); acb_poly_init(S); acb_poly_init(A); acb_poly_init(B); acb_poly_init(C); acb_poly_init(T); acb_poly_init(U); acb_poly_randtest(S, state, m, bits1, 3); acb_poly_randtest(A, state, m, bits1, 3); acb_poly_randtest(B, state, m, bits1, 3); acb_hypgeom_shi_series(A, S, n1, bits2); acb_hypgeom_shi_series(B, S, n2, bits3); acb_poly_set(C, A); acb_poly_truncate(C, n3); acb_poly_truncate(B, n3); /* [Shi(h(x))]' h(x) = sinh(h(x)) h'(x) */ acb_poly_sinh_series(U, S, n3, bits2); acb_poly_derivative(T, S, bits2); acb_poly_mullow(U, U, T, FLINT_MAX(0, n3 - 1), bits2); acb_poly_derivative(T, A, bits2); acb_poly_mullow(T, T, S, FLINT_MAX(0, n3 - 1), bits2); if (!acb_poly_overlaps(B, C) || !acb_poly_overlaps(T, U)) { flint_printf("FAIL\n\n"); flint_printf("S = "); acb_poly_printd(S, 15); flint_printf("\n\n"); 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("T = "); acb_poly_printd(T, 15); flint_printf("\n\n"); flint_printf("U = "); acb_poly_printd(U, 15); flint_printf("\n\n"); flint_abort(); } acb_hypgeom_shi_series(S, S, n1, bits2); if (!acb_poly_overlaps(A, S)) { flint_printf("FAIL (aliasing)\n\n"); flint_abort(); } acb_poly_clear(S); acb_poly_clear(A); acb_poly_clear(B); acb_poly_clear(C); acb_poly_clear(T); acb_poly_clear(U); } flint_randclear(state); flint_cleanup(); flint_printf("PASS\n"); return EXIT_SUCCESS; }