Gecko [ naturenectar.co.uk ]

Name	Size	Permission	Date
array	6.82 KB	-rw-r--r--	2025-02-12 13:06
bessel_function.tcc	22.4 KB	-rw-r--r--	2025-02-12 13:06
beta_function.tcc	5.85 KB	-rw-r--r--	2025-02-12 13:06
ccomplex	1.23 KB	-rw-r--r--	2025-02-12 13:06
cctype	1.44 KB	-rw-r--r--	2025-02-12 13:06
cfenv	2.02 KB	-rw-r--r--	2025-02-12 13:06
cfloat	1.35 KB	-rw-r--r--	2025-02-12 13:06
cinttypes	2.27 KB	-rw-r--r--	2025-02-12 13:06
climits	1.42 KB	-rw-r--r--	2025-02-12 13:06
cmath	42.85 KB	-rw-r--r--	2025-02-12 13:06
complex	12.09 KB	-rw-r--r--	2025-02-12 13:06
complex.h	1.23 KB	-rw-r--r--	2025-02-12 13:06
cstdarg	1.22 KB	-rw-r--r--	2025-02-12 13:06
cstdbool	1.31 KB	-rw-r--r--	2025-02-12 13:06
cstdint	2.62 KB	-rw-r--r--	2025-02-12 13:06
cstdio	1.51 KB	-rw-r--r--	2025-02-12 13:06
cstdlib	1.82 KB	-rw-r--r--	2025-02-12 13:06
ctgmath	1.22 KB	-rw-r--r--	2025-02-12 13:06
ctime	1.21 KB	-rw-r--r--	2025-02-12 13:06
ctype.h	1.18 KB	-rw-r--r--	2025-02-12 13:06
cwchar	1.74 KB	-rw-r--r--	2025-02-12 13:06
cwctype	1.49 KB	-rw-r--r--	2025-02-12 13:06
ell_integral.tcc	26.5 KB	-rw-r--r--	2025-02-12 13:06
exp_integral.tcc	15.64 KB	-rw-r--r--	2025-02-12 13:06
fenv.h	1.18 KB	-rw-r--r--	2025-02-12 13:06
float.h	1.18 KB	-rw-r--r--	2025-02-12 13:06
functional	69.07 KB	-rw-r--r--	2025-02-12 13:06
functional_hash.h	5.9 KB	-rw-r--r--	2025-02-12 13:06
gamma.tcc	14.34 KB	-rw-r--r--	2025-02-12 13:06
hashtable.h	41.01 KB	-rw-r--r--	2025-02-12 13:06
hashtable_policy.h	24.5 KB	-rw-r--r--	2025-02-12 13:06
hypergeometric.tcc	27.41 KB	-rw-r--r--	2025-02-12 13:06
inttypes.h	1.24 KB	-rw-r--r--	2025-02-12 13:06
legendre_function.tcc	10.41 KB	-rw-r--r--	2025-02-12 13:06
limits.h	1.19 KB	-rw-r--r--	2025-02-12 13:06
math.h	4.45 KB	-rw-r--r--	2025-02-12 13:06
memory	1.75 KB	-rw-r--r--	2025-02-12 13:06
modified_bessel_func.tcc	15.88 KB	-rw-r--r--	2025-02-12 13:06
poly_hermite.tcc	3.83 KB	-rw-r--r--	2025-02-12 13:06
poly_laguerre.tcc	11.4 KB	-rw-r--r--	2025-02-12 13:06
random	1.55 KB	-rw-r--r--	2025-02-12 13:06
random.h	71.38 KB	-rw-r--r--	2025-02-12 13:06
random.tcc	52.66 KB	-rw-r--r--	2025-02-12 13:06
regex	90.74 KB	-rw-r--r--	2025-02-12 13:06
riemann_zeta.tcc	13.74 KB	-rw-r--r--	2025-02-12 13:06
shared_ptr.h	32.46 KB	-rw-r--r--	2025-02-12 13:06
special_function_util.h	4.94 KB	-rw-r--r--	2025-02-12 13:06
stdarg.h	1.19 KB	-rw-r--r--	2025-02-12 13:06
stdbool.h	1.19 KB	-rw-r--r--	2025-02-12 13:06
stdint.h	1.19 KB	-rw-r--r--	2025-02-12 13:06
stdio.h	1.18 KB	-rw-r--r--	2025-02-12 13:06
stdlib.h	1.45 KB	-rw-r--r--	2025-02-12 13:06
tgmath.h	1.23 KB	-rw-r--r--	2025-02-12 13:06
tuple	11.83 KB	-rw-r--r--	2025-02-12 13:06
type_traits	18.57 KB	-rw-r--r--	2025-02-12 13:06
unordered_map	1.54 KB	-rw-r--r--	2025-02-12 13:06
unordered_map.h	9.98 KB	-rw-r--r--	2025-02-12 13:06
unordered_set	1.54 KB	-rw-r--r--	2025-02-12 13:06
unordered_set.h	9.32 KB	-rw-r--r--	2025-02-12 13:06
utility	3.15 KB	-rw-r--r--	2025-02-12 13:06
wchar.h	1.22 KB	-rw-r--r--	2025-02-12 13:06
wctype.h	1.23 KB	-rw-r--r--	2025-02-12 13:06

Rename

// Special functions -*- C++ -*-

// Copyright (C) 2006-2021 Free Software Foundation, Inc.
//
// This file is part of the GNU ISO C++ Library.  This library is free
// software; you can redistribute it and/or modify it under the
// terms of the GNU General Public License as published by the
// Free Software Foundation; either version 3, or (at your option)
// any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// Under Section 7 of GPL version 3, you are granted additional
// permissions described in the GCC Runtime Library Exception, version
// 3.1, as published by the Free Software Foundation.

// You should have received a copy of the GNU General Public License and
// a copy of the GCC Runtime Library Exception along with this program;
// see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
// <http://www.gnu.org/licenses/>.

/** @file tr1/poly_hermite.tcc
 *  This is an internal header file, included by other library headers.
 *  Do not attempt to use it directly. @headername{tr1/cmath}
 */

//
// ISO C++ 14882 TR1: 5.2  Special functions
//

// Written by Edward Smith-Rowland based on:
//   (1) Handbook of Mathematical Functions,
//       Ed. Milton Abramowitz and Irene A. Stegun,
//       Dover Publications, Section 22 pp. 773-802

#ifndef _GLIBCXX_TR1_POLY_HERMITE_TCC
#define _GLIBCXX_TR1_POLY_HERMITE_TCC 1

namespace std _GLIBCXX_VISIBILITY(default)
{
_GLIBCXX_BEGIN_NAMESPACE_VERSION

#if _GLIBCXX_USE_STD_SPEC_FUNCS
#elif defined(_GLIBCXX_TR1_CMATH)
namespace tr1
{
#else
# error do not include this header directly, use <cmath> or <tr1/cmath>
#endif
  // [5.2] Special functions

// Implementation-space details.
  namespace __detail
  {
    /**
     *   @brief This routine returns the Hermite polynomial
     *          of order n: \f$ H_n(x) \f$ by recursion on n.
     * 
     *   The Hermite polynomial is defined by:
     *   @f[
     *     H_n(x) = (-1)^n e^{x^2} \frac{d^n}{dx^n} e^{-x^2}
     *   @f]
     *
     *   @param __n The order of the Hermite polynomial.
     *   @param __x The argument of the Hermite polynomial.
     *   @return The value of the Hermite polynomial of order n
     *           and argument x.
     */
    template<typename _Tp>
    _Tp
    __poly_hermite_recursion(unsigned int __n, _Tp __x)
    {
      //  Compute H_0.
      _Tp __H_0 = 1;
      if (__n == 0)
        return __H_0;

//  Compute H_1.
      _Tp __H_1 = 2 * __x;
      if (__n == 1)
        return __H_1;

//  Compute H_n.
      _Tp __H_n, __H_nm1, __H_nm2;
      unsigned int __i;
      for  (__H_nm2 = __H_0, __H_nm1 = __H_1, __i = 2; __i <= __n; ++__i)
        {
          __H_n = 2 * (__x * __H_nm1 - (__i - 1) * __H_nm2);
          __H_nm2 = __H_nm1;
          __H_nm1 = __H_n;
        }

return __H_n;
    }

/**
     *   @brief This routine returns the Hermite polynomial
     *          of order n: \f$ H_n(x) \f$.
     * 
     *   The Hermite polynomial is defined by:
     *   @f[
     *     H_n(x) = (-1)^n e^{x^2} \frac{d^n}{dx^n} e^{-x^2}
     *   @f]
     *
     *   @param __n The order of the Hermite polynomial.
     *   @param __x The argument of the Hermite polynomial.
     *   @return The value of the Hermite polynomial of order n
     *           and argument x.
     */
    template<typename _Tp>
    inline _Tp
    __poly_hermite(unsigned int __n, _Tp __x)
    {
      if (__isnan(__x))
        return std::numeric_limits<_Tp>::quiet_NaN();
      else
        return __poly_hermite_recursion(__n, __x);
    }
  } // namespace __detail
#if ! _GLIBCXX_USE_STD_SPEC_FUNCS && defined(_GLIBCXX_TR1_CMATH)
} // namespace tr1
#endif

_GLIBCXX_END_NAMESPACE_VERSION
}

#endif // _GLIBCXX_TR1_POLY_HERMITE_TCC