scipy 1.15.3__cp312-cp312-win_amd64.whl → 1.16.0__cp312-cp312-win_amd64.whl

scipy/special/xsf/cephes/hyperg.h

@@ -1,361 +0,0 @@
-/* Translated into C++ by SciPy developers in 2024.
- * Original header with Copyright information appears below.
- */
-
-/*                                                     hyperg.c
- *
- *     Confluent hypergeometric function
- *
- *
- *
- * SYNOPSIS:
- *
- * double a, b, x, y, hyperg();
- *
- * y = hyperg( a, b, x );
- *
- *
- *
- * DESCRIPTION:
- *
- * Computes the confluent hypergeometric function
- *
- *                          1           2
- *                       a x    a(a+1) x
- *   F ( a,b;x )  =  1 + ---- + --------- + ...
- *  1 1                  b 1!   b(b+1) 2!
- *
- * Many higher transcendental functions are special cases of
- * this power series.
- *
- * As is evident from the formula, b must not be a negative
- * integer or zero unless a is an integer with 0 >= a > b.
- *
- * The routine attempts both a direct summation of the series
- * and an asymptotic expansion.  In each case error due to
- * roundoff, cancellation, and nonconvergence is estimated.
- * The result with smaller estimated error is returned.
- *
- *
- *
- * ACCURACY:
- *
- * Tested at random points (a, b, x), all three variables
- * ranging from 0 to 30.
- *                      Relative error:
- * arithmetic   domain     # trials      peak         rms
- *    IEEE      0,30        30000       1.8e-14     1.1e-15
- *
- * Larger errors can be observed when b is near a negative
- * integer or zero.  Certain combinations of arguments yield
- * serious cancellation error in the power series summation
- * and also are not in the region of near convergence of the
- * asymptotic series.  An error message is printed if the
- * self-estimated relative error is greater than 1.0e-12.
- *
- */
-
-/*
- * Cephes Math Library Release 2.8:  June, 2000
- * Copyright 1984, 1987, 1988, 2000 by Stephen L. Moshier
- */
-
-#pragma once
-
-#include "../config.h"
-#include "../error.h"
-
-#include "const.h"
-#include "gamma.h"
-#include "rgamma.h"
-
-namespace xsf {
-namespace cephes {
-
-    namespace detail {
-
-        /* the `type` parameter determines what converging factor to use */
-        XSF_HOST_DEVICE inline double hyp2f0(double a, double b, double x, int type, double *err) {
-            double a0, alast, t, tlast, maxt;
-            double n, an, bn, u, sum, temp;
-
-            an = a;
-            bn = b;
-            a0 = 1.0e0;
-            alast = 1.0e0;
-            sum = 0.0;
-            n = 1.0e0;
-            t = 1.0e0;
-            tlast = 1.0e9;
-            maxt = 0.0;
-
-            do {
-                if (an == 0)
-                    goto pdone;
-                if (bn == 0)
-                    goto pdone;
-
-                u = an * (bn * x / n);
-
-                /* check for blowup */
-                temp = std::abs(u);
-                if ((temp > 1.0) && (maxt > (std::numeric_limits<double>::max() / temp)))
-                    goto error;
-
-                a0 *= u;
-                t = std::abs(a0);
-
-                /* terminating condition for asymptotic series:
-                 * the series is divergent (if a or b is not a negative integer),
-                 * but its leading part can be used as an asymptotic expansion
-                 */
-                if (t > tlast)
-                    goto ndone;
-
-                tlast = t;
-                sum += alast; /* the sum is one term behind */
-                alast = a0;
-
-                if (n > 200)
-                    goto ndone;
-
-                an += 1.0e0;
-                bn += 1.0e0;
-                n += 1.0e0;
-                if (t > maxt)
-                    maxt = t;
-            } while (t > MACHEP);
-
-        pdone: /* series converged! */
-
-            /* estimate error due to roundoff and cancellation */
-            *err = std::abs(MACHEP * (n + maxt));
-
-            alast = a0;
-            goto done;
-
-        ndone: /* series did not converge */
-
-            /* The following "Converging factors" are supposed to improve accuracy,
-             * but do not actually seem to accomplish very much. */
-
-            n -= 1.0;
-            x = 1.0 / x;
-
-            switch (type) { /* "type" given as subroutine argument */
-            case 1:
-                alast *= (0.5 + (0.125 + 0.25 * b - 0.5 * a + 0.25 * x - 0.25 * n) / x);
-                break;
-
-            case 2:
-                alast *= 2.0 / 3.0 - b + 2.0 * a + x - n;
-                break;
-
-            default:;
-            }
-
-            /* estimate error due to roundoff, cancellation, and nonconvergence */
-            *err = MACHEP * (n + maxt) + std::abs(a0);
-
-        done:
-            sum += alast;
-            return (sum);
-
-            /* series blew up: */
-        error:
-            *err = std::numeric_limits<double>::infinity();
-            set_error("hyperg", SF_ERROR_NO_RESULT, NULL);
-            return (sum);
-        }
-
-        /* asymptotic formula for hypergeometric function:
-         *
-         *        (    -a
-         *  --    ( |z|
-         * |  (b) ( -------- 2f0( a, 1+a-b, -1/x )
-         *        (  --
-         *        ( |  (b-a)
-         *
-         *
-         *                                x    a-b                     )
-         *                               e  |x|                        )
-         *                             + -------- 2f0( b-a, 1-a, 1/x ) )
-         *                                --                           )
-         *                               |  (a)                        )
-         */
-
-        XSF_HOST_DEVICE inline double hy1f1a(double a, double b, double x, double *err) {
-            double h1, h2, t, u, temp, acanc, asum, err1, err2;
-
-            if (x == 0) {
-                acanc = 1.0;
-                asum = std::numeric_limits<double>::infinity();
-                goto adone;
-            }
-            temp = std::log(std::abs(x));
-            t = x + temp * (a - b);
-            u = -temp * a;
-
-            if (b > 0) {
-                temp = xsf::cephes::lgam(b);
-                t += temp;
-                u += temp;
-            }
-
-            h1 = hyp2f0(a, a - b + 1, -1.0 / x, 1, &err1);
-
-            temp = std::exp(u) * xsf::cephes::rgamma(b - a);
-            h1 *= temp;
-            err1 *= temp;
-
-            h2 = hyp2f0(b - a, 1.0 - a, 1.0 / x, 2, &err2);
-
-            if (a < 0)
-                temp = std::exp(t) * xsf::cephes::rgamma(a);
-            else
-                temp = std::exp(t - xsf::cephes::lgam(a));
-
-            h2 *= temp;
-            err2 *= temp;
-
-            if (x < 0.0)
-                asum = h1;
-            else
-                asum = h2;
-
-            acanc = std::abs(err1) + std::abs(err2);
-
-            if (b < 0) {
-                temp = xsf::cephes::Gamma(b);
-                asum *= temp;
-                acanc *= std::abs(temp);
-            }
-
-            if (asum != 0.0)
-                acanc /= std::abs(asum);
-
-            if (acanc != acanc)
-                /* nan */
-                acanc = 1.0;
-
-            if (std::isinf(asum))
-                /* infinity */
-                acanc = 0;
-
-            acanc *= 30.0; /* fudge factor, since error of asymptotic formula
-                            * often seems this much larger than advertised */
-        adone:
-            *err = acanc;
-            return (asum);
-        }
-
-        /* Power series summation for confluent hypergeometric function */
-        XSF_HOST_DEVICE inline double hy1f1p(double a, double b, double x, double *err) {
-            double n, a0, sum, t, u, temp, maxn;
-            double an, bn, maxt;
-            double y, c, sumc;
-
-            /* set up for power series summation */
-            an = a;
-            bn = b;
-            a0 = 1.0;
-            sum = 1.0;
-            c = 0.0;
-            n = 1.0;
-            t = 1.0;
-            maxt = 0.0;
-            *err = 1.0;
-
-            maxn = 200.0 + 2 * fabs(a) + 2 * fabs(b);
-
-            while (t > MACHEP) {
-                if (bn == 0) { /* check bn first since if both   */
-                    sf_error("hyperg", SF_ERROR_SINGULAR, NULL);
-                    return (std::numeric_limits<double>::infinity()); /* an and bn are zero it is     */
-                }
-                if (an == 0) /* a singularity            */
-                    return (sum);
-                if (n > maxn) {
-                    /* too many terms; take the last one as error estimate */
-                    c = std::abs(c) + std::abs(t) * 50.0;
-                    goto pdone;
-                }
-                u = x * (an / (bn * n));
-
-                /* check for blowup */
-                temp = std::abs(u);
-                if ((temp > 1.0) && (maxt > (std::numeric_limits<double>::max() / temp))) {
-                    *err = 1.0; /* blowup: estimate 100% error */
-                    return sum;
-                }
-
-                a0 *= u;
-
-                y = a0 - c;
-                sumc = sum + y;
-                c = (sumc - sum) - y;
-                sum = sumc;
-
-                t = std::abs(a0);
-
-                an += 1.0;
-                bn += 1.0;
-                n += 1.0;
-            }
-
-        pdone:
-
-            /* estimate error due to roundoff and cancellation */
-            if (sum != 0.0) {
-                *err = std::abs(c / sum);
-            } else {
-                *err = std::abs(c);
-            }
-
-            if (*err != *err) {
-                /* nan */
-                *err = 1.0;
-            }
-
-            return (sum);
-        }
-
-    } // namespace detail
-
-    XSF_HOST_DEVICE inline double hyperg(double a, double b, double x) {
-        double asum, psum, acanc, pcanc, temp;
-
-        /* See if a Kummer transformation will help */
-        temp = b - a;
-        if (std::abs(temp) < 0.001 * std::abs(a))
-            return (exp(x) * hyperg(temp, b, -x));
-
-        /* Try power & asymptotic series, starting from the one that is likely OK */
-        if (std::abs(x) < 10 + std::abs(a) + std::abs(b)) {
-            psum = detail::hy1f1p(a, b, x, &pcanc);
-            if (pcanc < 1.0e-15)
-                goto done;
-            asum = detail::hy1f1a(a, b, x, &acanc);
-        } else {
-            psum = detail::hy1f1a(a, b, x, &pcanc);
-            if (pcanc < 1.0e-15)
-                goto done;
-            asum = detail::hy1f1p(a, b, x, &acanc);
-        }
-
-        /* Pick the result with less estimated error */
-
-        if (acanc < pcanc) {
-            pcanc = acanc;
-            psum = asum;
-        }
-
-    done:
-        if (pcanc > 1.0e-12)
-            set_error("hyperg", SF_ERROR_LOSS, NULL);
-
-        return (psum);
-    }
-
-} // namespace cephes
-} // namespace xsf

scipy/special/xsf/cephes/i0.h

@@ -1,149 +0,0 @@
-/* Translated into C++ by SciPy developers in 2024.
- * Original header with Copyright information appears below.
- */
-
-/*                                                     i0.c
- *
- *     Modified Bessel function of order zero
- *
- *
- *
- * SYNOPSIS:
- *
- * double x, y, i0();
- *
- * y = i0( x );
- *
- *
- *
- * DESCRIPTION:
- *
- * Returns modified Bessel function of order zero of the
- * argument.
- *
- * The function is defined as i0(x) = j0( ix ).
- *
- * The range is partitioned into the two intervals [0,8] and
- * (8, infinity).  Chebyshev polynomial expansions are employed
- * in each interval.
- *
- *
- *
- * ACCURACY:
- *
- *                      Relative error:
- * arithmetic   domain     # trials      peak         rms
- *    IEEE      0,30        30000       5.8e-16     1.4e-16
- *
- */
-/*							i0e.c
- *
- *	Modified Bessel function of order zero,
- *	exponentially scaled
- *
- *
- *
- * SYNOPSIS:
- *
- * double x, y, i0e();
- *
- * y = i0e( x );
- *
- *
- *
- * DESCRIPTION:
- *
- * Returns exponentially scaled modified Bessel function
- * of order zero of the argument.
- *
- * The function is defined as i0e(x) = exp(-|x|) j0( ix ).
- *
- *
- *
- * ACCURACY:
- *
- *                      Relative error:
- * arithmetic   domain     # trials      peak         rms
- *    IEEE      0,30        30000       5.4e-16     1.2e-16
- * See i0().
- *
- */
-
-/*                                                     i0.c            */
-
-/*
- * Cephes Math Library Release 2.8:  June, 2000
- * Copyright 1984, 1987, 2000 by Stephen L. Moshier
- */
-#pragma once
-
-#include "../config.h"
-#include "chbevl.h"
-
-namespace xsf {
-namespace cephes {
-
-    namespace detail {
-
-        /* Chebyshev coefficients for exp(-x) I0(x)
-         * in the interval [0,8].
-         *
-         * lim(x->0){ exp(-x) I0(x) } = 1.
-         */
-        constexpr double i0_A[] = {
-            -4.41534164647933937950E-18, 3.33079451882223809783E-17,  -2.43127984654795469359E-16,
-            1.71539128555513303061E-15,  -1.16853328779934516808E-14, 7.67618549860493561688E-14,
-            -4.85644678311192946090E-13, 2.95505266312963983461E-12,  -1.72682629144155570723E-11,
-            9.67580903537323691224E-11,  -5.18979560163526290666E-10, 2.65982372468238665035E-9,
-            -1.30002500998624804212E-8,  6.04699502254191894932E-8,   -2.67079385394061173391E-7,
-            1.11738753912010371815E-6,   -4.41673835845875056359E-6,  1.64484480707288970893E-5,
-            -5.75419501008210370398E-5,  1.88502885095841655729E-4,   -5.76375574538582365885E-4,
-            1.63947561694133579842E-3,   -4.32430999505057594430E-3,  1.05464603945949983183E-2,
-            -2.37374148058994688156E-2,  4.93052842396707084878E-2,   -9.49010970480476444210E-2,
-            1.71620901522208775349E-1,   -3.04682672343198398683E-1,  6.76795274409476084995E-1};
-
-        /* Chebyshev coefficients for exp(-x) sqrt(x) I0(x)
-         * in the inverted interval [8,infinity].
-         *
-         * lim(x->inf){ exp(-x) sqrt(x) I0(x) } = 1/sqrt(2pi).
-         */
-        constexpr double i0_B[] = {
-            -7.23318048787475395456E-18, -4.83050448594418207126E-18, 4.46562142029675999901E-17,
-            3.46122286769746109310E-17,  -2.82762398051658348494E-16, -3.42548561967721913462E-16,
-            1.77256013305652638360E-15,  3.81168066935262242075E-15,  -9.55484669882830764870E-15,
-            -4.15056934728722208663E-14, 1.54008621752140982691E-14,  3.85277838274214270114E-13,
-            7.18012445138366623367E-13,  -1.79417853150680611778E-12, -1.32158118404477131188E-11,
-            -3.14991652796324136454E-11, 1.18891471078464383424E-11,  4.94060238822496958910E-10,
-            3.39623202570838634515E-9,   2.26666899049817806459E-8,   2.04891858946906374183E-7,
-            2.89137052083475648297E-6,   6.88975834691682398426E-5,   3.36911647825569408990E-3,
-            8.04490411014108831608E-1};
-    } // namespace detail
-
-    XSF_HOST_DEVICE inline double i0(double x) {
-        double y;
-
-        if (x < 0)
-            x = -x;
-        if (x <= 8.0) {
-            y = (x / 2.0) - 2.0;
-            return (std::exp(x) * chbevl(y, detail::i0_A, 30));
-        }
-
-        return (std::exp(x) * chbevl(32.0 / x - 2.0, detail::i0_B, 25) / sqrt(x));
-    }
-
-    XSF_HOST_DEVICE inline double i0e(double x) {
-        double y;
-
-        if (x < 0)
-            x = -x;
-        if (x <= 8.0) {
-            y = (x / 2.0) - 2.0;
-            return (chbevl(y, detail::i0_A, 30));
-        }
-
-        return (chbevl(32.0 / x - 2.0, detail::i0_B, 25) / std::sqrt(x));
-    }
-
-} // namespace cephes
-} // namespace xsf

scipy/special/xsf/cephes/i1.h

@@ -1,158 +0,0 @@
-/* Translated into C++ by SciPy developers in 2024.
- * Original header with Copyright information appears below.
- */
-
-/*                                                     i1.c
- *
- *     Modified Bessel function of order one
- *
- *
- *
- * SYNOPSIS:
- *
- * double x, y, i1();
- *
- * y = i1( x );
- *
- *
- *
- * DESCRIPTION:
- *
- * Returns modified Bessel function of order one of the
- * argument.
- *
- * The function is defined as i1(x) = -i j1( ix ).
- *
- * The range is partitioned into the two intervals [0,8] and
- * (8, infinity).  Chebyshev polynomial expansions are employed
- * in each interval.
- *
- *
- *
- * ACCURACY:
- *
- *                      Relative error:
- * arithmetic   domain     # trials      peak         rms
- *    IEEE      0, 30       30000       1.9e-15     2.1e-16
- *
- *
- */
-/*							i1e.c
- *
- *	Modified Bessel function of order one,
- *	exponentially scaled
- *
- *
- *
- * SYNOPSIS:
- *
- * double x, y, i1e();
- *
- * y = i1e( x );
- *
- *
- *
- * DESCRIPTION:
- *
- * Returns exponentially scaled modified Bessel function
- * of order one of the argument.
- *
- * The function is defined as i1(x) = -i exp(-|x|) j1( ix ).
- *
- *
- *
- * ACCURACY:
- *
- *                      Relative error:
- * arithmetic   domain     # trials      peak         rms
- *    IEEE      0, 30       30000       2.0e-15     2.0e-16
- * See i1().
- *
- */
-
-/*                                                     i1.c 2          */
-
-/*
- * Cephes Math Library Release 2.8:  June, 2000
- * Copyright 1985, 1987, 2000 by Stephen L. Moshier
- */
-#pragma once
-
-#include "../config.h"
-#include "chbevl.h"
-
-namespace xsf {
-namespace cephes {
-
-    namespace detail {
-
-        /* Chebyshev coefficients for exp(-x) I1(x) / x
-         * in the interval [0,8].
-         *
-         * lim(x->0){ exp(-x) I1(x) / x } = 1/2.
-         */
-
-        constexpr double i1_A[] = {
-            2.77791411276104639959E-18,  -2.11142121435816608115E-17, 1.55363195773620046921E-16,
-            -1.10559694773538630805E-15, 7.60068429473540693410E-15,  -5.04218550472791168711E-14,
-            3.22379336594557470981E-13,  -1.98397439776494371520E-12, 1.17361862988909016308E-11,
-            -6.66348972350202774223E-11, 3.62559028155211703701E-10,  -1.88724975172282928790E-9,
-            9.38153738649577178388E-9,   -4.44505912879632808065E-8,  2.00329475355213526229E-7,
-            -8.56872026469545474066E-7,  3.47025130813767847674E-6,   -1.32731636560394358279E-5,
-            4.78156510755005422638E-5,   -1.61760815825896745588E-4,  5.12285956168575772895E-4,
-            -1.51357245063125314899E-3,  4.15642294431288815669E-3,   -1.05640848946261981558E-2,
-            2.47264490306265168283E-2,   -5.29459812080949914269E-2,  1.02643658689847095384E-1,
-            -1.76416518357834055153E-1,  2.52587186443633654823E-1};
-
-        /* Chebyshev coefficients for exp(-x) sqrt(x) I1(x)
-         * in the inverted interval [8,infinity].
-         *
-         * lim(x->inf){ exp(-x) sqrt(x) I1(x) } = 1/sqrt(2pi).
-         */
-        constexpr double i1_B[] = {
-            7.51729631084210481353E-18,  4.41434832307170791151E-18,  -4.65030536848935832153E-17,
-            -3.20952592199342395980E-17, 2.96262899764595013876E-16,  3.30820231092092828324E-16,
-            -1.88035477551078244854E-15, -3.81440307243700780478E-15, 1.04202769841288027642E-14,
-            4.27244001671195135429E-14,  -2.10154184277266431302E-14, -4.08355111109219731823E-13,
-            -7.19855177624590851209E-13, 2.03562854414708950722E-12,  1.41258074366137813316E-11,
-            3.25260358301548823856E-11,  -1.89749581235054123450E-11, -5.58974346219658380687E-10,
-            -3.83538038596423702205E-9,  -2.63146884688951950684E-8,  -2.51223623787020892529E-7,
-            -3.88256480887769039346E-6,  -1.10588938762623716291E-4,  -9.76109749136146840777E-3,
-            7.78576235018280120474E-1};
-
-    } // namespace detail
-
-    XSF_HOST_DEVICE inline double i1(double x) {
-        double y, z;
-
-        z = std::abs(x);
-        if (z <= 8.0) {
-            y = (z / 2.0) - 2.0;
-            z = chbevl(y, detail::i1_A, 29) * z * std::exp(z);
-        } else {
-            z = std::exp(z) * chbevl(32.0 / z - 2.0, detail::i1_B, 25) / std::sqrt(z);
-        }
-        if (x < 0.0)
-            z = -z;
-        return (z);
-    }
-
-    /*                                                     i1e()   */
-
-    XSF_HOST_DEVICE inline double i1e(double x) {
-        double y, z;
-
-        z = std::abs(x);
-        if (z <= 8.0) {
-            y = (z / 2.0) - 2.0;
-            z = chbevl(y, detail::i1_A, 29) * z;
-        } else {
-            z = chbevl(32.0 / z - 2.0, detail::i1_B, 25) / std::sqrt(z);
-        }
-        if (x < 0.0)
-            z = -z;
-        return (z);
-    }
-
-} // namespace cephes
-} // namespace xsf