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

change how some integer shape parameters are handled

Browse source
This commit is contained in:
p15-git-acc 2020-09-07 13:14:49 -05:00
parent df2a194695
commit 961f73ed4e
1 changed files with 5 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
acb_hypgeom/gamma_upper.c
View file

@ -388,15 +388,7 @@ acb_hypgeom_gamma_upper(acb_t res, const acb_t s, const acb_t z, int regularized
return; return;
} }
if (0 < n && n < WORD_MAX) if (_acb_is_nonnegative_real(s) && _acb_is_nonnegative_real(z))
{
if (acb_hypgeom_u_use_asymp(z, prec))
{
acb_hypgeom_gamma_upper_asymp(res, s, z, regularized, prec);
return;
}
}
else if (_acb_is_nonnegative_real(s) && _acb_is_nonnegative_real(z))
{ {
if (arf_cmpabs_2exp_si(arb_midref(acb_realref(z)), 2) > 0) if (arf_cmpabs_2exp_si(arb_midref(acb_realref(z)), 2) > 0)
{ {
@ -413,13 +405,11 @@ acb_hypgeom_gamma_upper(acb_t res, const acb_t s, const acb_t z, int regularized
} }
} }
} }
else if (_determine_region(s, z)) else if (acb_hypgeom_u_use_asymp(z, prec) &&
((0 < n && n < WORD_MAX) || _determine_region(s, z)))
{ {
if (acb_hypgeom_u_use_asymp(z, prec)) acb_hypgeom_gamma_upper_asymp(res, s, z, regularized, prec);
{ return;
acb_hypgeom_gamma_upper_asymp(res, s, z, regularized, prec);
return;
}
} }
if (n <= 0 && n > -10 * prec) if (n <= 0 && n > -10 * prec)