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

bugfix

Browse source
This commit is contained in:
fredrik 2019-02-19 22:59:08 +01:00
parent 29c2a4167c
commit 1736aaba94
2 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
acb_dirichlet/zeta_jet_rs.c
View file

@ -151,9 +151,7 @@ acb_dirichlet_zeta_jet_rs(acb_ptr res, const acb_t s, slong len, slong prec)
acb_dirichlet_zeta_deriv_bound(der1, der2, s); acb_dirichlet_zeta_deriv_bound(der1, der2, s);
/* f(m), f'(m) */ /* f(m), f'(m) */
acb_set(t, s); acb_get_mid(t, s);
mag_zero(arb_radref(acb_realref(t)));
mag_zero(arb_radref(acb_imagref(t)));
acb_dirichlet_zeta_jet_rs_mid(res, t, prec); acb_dirichlet_zeta_jet_rs_mid(res, t, prec);
/* err1 = |f''(s)| r */ /* err1 = |f''(s)| r */

3
acb_dirichlet/zeta_rs.c
View file

@ -114,8 +114,7 @@ acb_dirichlet_zeta_rs(acb_t res, const acb_t s, slong K, slong prec)
mag_mul(err, err, rad); mag_mul(err, err, rad);
/* evaluate at midpoint */ /* evaluate at midpoint */
mag_zero(arb_radref(acb_realref(t))); acb_get_mid(t, s);
mag_zero(arb_radref(acb_imagref(t)));
acb_dirichlet_zeta_rs_mid(res, t, K, prec); acb_dirichlet_zeta_rs_mid(res, t, K, prec);
acb_add_error_mag(res, err); acb_add_error_mag(res, err);