xi and zeta near zero

This commit is contained in:
p15-git-acc 2018-03-30 13:27:58 -05:00
parent e0693f9c10
commit e998502ac1
2 changed files with 4 additions and 2 deletions

View file

@ -52,7 +52,8 @@ void acb_dirichlet_xi(acb_t res, const acb_t s, slong prec)
acb_one(res); acb_one(res);
acb_mul_2exp_si(res, res, -1); acb_mul_2exp_si(res, res, -1);
} }
else if (arf_sgn(arb_midref(acb_realref(s))) < 0 || else if ((arf_sgn(arb_midref(acb_realref(s))) < 0 &&
!acb_contains_zero(s)) ||
(arb_contains_si(acb_realref(s), 1) && /* also intervals around s = 1 */ (arb_contains_si(acb_realref(s), 1) && /* also intervals around s = 1 */
arb_contains_zero(acb_imagref(s)))) arb_contains_zero(acb_imagref(s))))
{ {

View file

@ -52,7 +52,8 @@ acb_dirichlet_zeta(acb_t res, const acb_t s, slong prec)
return; return;
} }
if (arf_sgn(arb_midref(acb_realref(s))) < 0) if ((arf_sgn(arb_midref(acb_realref(s))) < 0) &&
!acb_contains_zero(s))
{ {
acb_t t, u, v; acb_t t, u, v;
slong wp = prec + 6; slong wp = prec + 6;