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_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_zero(acb_imagref(s))))
{

View file

@ -52,7 +52,8 @@ acb_dirichlet_zeta(acb_t res, const acb_t s, slong prec)
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;
slong wp = prec + 6;