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

add arb_fpwrap_double_erfinv, arb_fpwrap_double_erfcinv

Browse source
This commit is contained in:
fredrik 2021-12-05 13:12:11 +01:00
parent 139adec806
commit 22fff3bb87
4 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
arb_fpwrap.h
View file

@ -171,6 +171,9 @@ int arb_fpwrap_cdouble_erfc(complex_double * res, complex_double x, int flags);
int arb_fpwrap_double_erfi(double * res, double x, int flags);
int arb_fpwrap_cdouble_erfi(complex_double * res, complex_double x, int flags);
int arb_fpwrap_double_erfinv(double * res, double x, int flags);
int arb_fpwrap_double_erfcinv(double * res, double x, int flags);
int arb_fpwrap_double_fresnel_s(double * res, double x, int normalized, int flags);
int arb_fpwrap_cdouble_fresnel_s(complex_double * res, complex_double x, int normalized, int flags);

3
arb_fpwrap/fpwrap.c
View file

@ -1038,6 +1038,9 @@ DEF_CDOUBLE_FUN_1(erfc, acb_hypgeom_erfc)
DEF_DOUBLE_FUN_1(erfi, arb_hypgeom_erfi)
DEF_CDOUBLE_FUN_1(erfi, acb_hypgeom_erfi)
DEF_DOUBLE_FUN_1(erfinv, arb_hypgeom_erfinv)
DEF_DOUBLE_FUN_1(erfcinv, arb_hypgeom_erfcinv)
static void _arb_hypgeom_fresnel_s(arb_t res, const arb_t x, int normalized, slong prec) { arb_hypgeom_fresnel(res, NULL, x, normalized, prec); }
static void _arb_hypgeom_fresnel_c(arb_t res, const arb_t x, int normalized, slong prec) { arb_hypgeom_fresnel(NULL, res, x, normalized, prec); }
static void _acb_hypgeom_fresnel_s(acb_t res, const acb_t x, int normalized, slong prec) { acb_hypgeom_fresnel(res, NULL, x, normalized, prec); }

3
arb_fpwrap/test/t-fpwrap.c
View file

@ -304,6 +304,9 @@ int main()
CHECK_DOUBLE(arb_fpwrap_double_erfi(&res, x, flags));
CHECK_CDOUBLE(arb_fpwrap_cdouble_erfi(&cres, cx, flags));
CHECK_DOUBLE(arb_fpwrap_double_erfinv(&res, x, flags));
CHECK_DOUBLE(arb_fpwrap_double_erfcinv(&res, x, flags));
CHECK_DOUBLE(arb_fpwrap_double_fresnel_s(&res, x, 0, flags));
CHECK_CDOUBLE(arb_fpwrap_cdouble_fresnel_s(&cres, cx, 0, flags));

3
doc/source/arb_fpwrap.rst
View file

@ -284,6 +284,9 @@ Error functions and exponential integrals
.. function:: int arb_fpwrap_double_erfi(double * res, double x, int flags)
int arb_fpwrap_cdouble_erfi(complex_double * res, complex_double x, int flags)
.. function:: int arb_fpwrap_double_erfinv(double * res, double x, int flags)
.. function:: int arb_fpwrap_double_erfcinv(double * res, double x, int flags)
.. function:: int arb_fpwrap_double_fresnel_s(double * res, double x, int normalized, int flags)
int arb_fpwrap_cdouble_fresnel_s(complex_double * res, complex_double x, int normalized, int flags)