void _arb_poly_div(arb_ptr Q, arb_srcptr A, slong lenA, arb_srcptr B, slong lenB, slong prec) { slong lenQ, lenB2; arb_ptr Arev, Brev; lenQ = lenA - lenB + 1; Arev = _arb_vec_init(2 * lenQ); Brev = Arev + lenQ; _arb_poly_reverse(Arev, A + (lenA - lenQ), lenQ, lenQ); if (lenB >= lenQ) { _arb_poly_reverse(Brev, B + (lenB - lenQ), lenQ, lenQ); lenB2 = lenQ; } else { _arb_poly_reverse(Brev, B, lenB, lenB); lenB2 = lenB; } _arb_poly_div_series(Q, Arev, lenQ, Brev, lenB2, lenQ, prec); _arb_poly_reverse(Q, Q, lenQ, lenQ); _arb_vec_clear(Arev, 2 * lenQ); }
static void _newton_to_monomial(arb_ptr ys, arb_srcptr xs, long n, long prec) { arb_t t, u; long i, j; arb_init(t); arb_init(u); for (i = n - 2; i >= 0; i--) { arb_set(t, ys + i); arb_set(ys + i, ys + i + 1); for (j = i + 1; j < n - 1; j++) { arb_mul(u, ys + j, xs + i, prec); arb_sub(ys + j, ys + j + 1, u, prec); } arb_mul(u, ys + n - 1, xs + i, prec); arb_sub(ys + n - 1, t, u, prec); } _arb_poly_reverse(ys, ys, n, n); arb_clear(t); arb_clear(u); }