hiro/arb
1
0
Fork 0
mirror of https://github.com/vale981/arb synced 2025-03-05 09:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

a couple of small improvements

Browse source
This commit is contained in:
fredrik 2022-02-18 18:09:57 +01:00
parent 1abaf57c00
commit 8971bee10c
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
acb_dirichlet/lerch_phi.c
View file

@ -136,7 +136,7 @@ acb_dirichlet_lerch_phi(acb_t res, const acb_t z, const acb_t s, const acb_t a,
mag_init(lim); mag_init(lim);
acb_get_mag(zm, z); acb_get_mag(zm, z);
mag_set_d(lim, 0.75); mag_set_d(lim, 0.875);
if (mag_cmp(zm, lim) <= 0) if (mag_cmp(zm, lim) <= 0)
{ {

6
acb_dirichlet/lerch_phi_integral.c
View file

@ -202,8 +202,9 @@ _acb_dirichlet_lerch_phi_integral(acb_t res, const acb_t z, const acb_t s, const
acb_sub(log_z, log_z, t, prec); acb_sub(log_z, log_z, t, prec);
} }
arb_one(acb_realref(t));
is_real = acb_is_real(z) && acb_is_real(s) && acb_is_real(a) && is_real = acb_is_real(z) && acb_is_real(s) && acb_is_real(a) &&
arb_is_positive(acb_realref(a)) && arb_is_negative(acb_realref(log_z)); arb_is_positive(acb_realref(a)) && arb_lt(acb_realref(z), acb_realref(t));
acb_set(param + 0, z); acb_set(param + 0, z);
acb_set(param + 1, s); acb_set(param + 1, s);
@ -288,6 +289,9 @@ _acb_dirichlet_lerch_phi_integral(acb_t res, const acb_t z, const acb_t s, const
acb_add_error_mag(t, tail_bound); acb_add_error_mag(t, tail_bound);
if (is_real && acb_is_finite(t))
arb_zero(acb_imagref(t));
acb_rgamma(u, s, prec); acb_rgamma(u, s, prec);
acb_mul(res, t, u, prec); acb_mul(res, t, u, prec);
} }