//  boost sinhc.hpp header file

 //  (C) Copyright Hubert Holin 2001.

 //  Distributed under the Boost Software License, Version 1.0. (See

 //  accompanying file LICENSE_1_0.txt or copy at

 //  http://www.boost.org/LICENSE_1_0.txt)

 // See http://www.boost.org for updates, documentation, and revision history.

 #ifndef BOOST_SINHC_HPP

 #define BOOST_SINHC_HPP

 #include <cmath>

 #include <boost/limits.hpp>

 #include <string>

 #include <stdexcept>

 #include <boost/config.hpp>

 // These are the the "Hyperbolic Sinus Cardinal" functions.

 namespace boost

 {

     namespace math

     {

 #if        defined(__GNUC__) && (__GNUC__ < 3)

         // gcc 2.x ignores function scope using declarations,

         // put them in the scope of the enclosing namespace instead:

         using    ::std::abs;

         using    ::std::sqrt;

         using    ::std::sinh;

         using    ::std::numeric_limits;

 #endif    /* defined(__GNUC__) && (__GNUC__ < 3) */

         // This is the "Hyperbolic Sinus Cardinal" of index Pi.

         template<typename T>

         inline T    sinhc_pi(const T x)

         {

 #ifdef    BOOST_NO_STDC_NAMESPACE

             using    ::abs;

             using    ::sinh;

             using    ::sqrt;

 #else    /* BOOST_NO_STDC_NAMESPACE */

             using    ::std::abs;

             using    ::std::sinh;

             using    ::std::sqrt;

 #endif    /* BOOST_NO_STDC_NAMESPACE */

             using    ::std::numeric_limits;

             static T const    taylor_0_bound = numeric_limits<T>::epsilon();

             static T const    taylor_2_bound = sqrt(taylor_0_bound);

             static T const    taylor_n_bound = sqrt(taylor_2_bound);

             if    (abs(x) >= taylor_n_bound)

             {

                 return(sinh(x)/x);

             }

             else

             {

                 // approximation by taylor series in x at 0 up to order 0

                 T    result = static_cast<T>(1);

                 if    (abs(x) >= taylor_0_bound)

                 {

                     T    x2 = x*x;

                     // approximation by taylor series in x at 0 up to order 2

                     result += x2/static_cast<T>(6);

                     if    (abs(x) >= taylor_2_bound)

                     {

                         // approximation by taylor series in x at 0 up to order 4

                         result += (x2*x2)/static_cast<T>(120);

                     }

                 }

                 return(result);

             }

         }

 #ifdef    BOOST_NO_TEMPLATE_TEMPLATES

 #else    /* BOOST_NO_TEMPLATE_TEMPLATES */

         template<typename T, template<typename> class U>

         inline U<T>    sinhc_pi(const U<T> x)

         {

 #if defined(BOOST_FUNCTION_SCOPE_USING_DECLARATION_BREAKS_ADL) || defined(__GNUC__)

             using namespace std;

 #elif    defined(BOOST_NO_STDC_NAMESPACE)

             using    ::abs;

             using    ::sinh;

             using    ::sqrt;

 #else    /* BOOST_NO_STDC_NAMESPACE */

             using    ::std::abs;

             using    ::std::sinh;

             using    ::std::sqrt;

 #endif    /* BOOST_NO_STDC_NAMESPACE */

             using    ::std::numeric_limits;

             static T const    taylor_0_bound = numeric_limits<T>::epsilon();

             static T const    taylor_2_bound = sqrt(taylor_0_bound);

             static T const    taylor_n_bound = sqrt(taylor_2_bound);

             if    (abs(x) >= taylor_n_bound)

             {

                 return(sinh(x)/x);

             }

             else

             {

                 // approximation by taylor series in x at 0 up to order 0

 #ifdef __MWERKS__

                 U<T>    result = static_cast<U<T> >(1);

 #else

                 U<T>    result = U<T>(1);

 #endif

                 if    (abs(x) >= taylor_0_bound)

                 {

                     U<T>    x2 = x*x;

                     // approximation by taylor series in x at 0 up to order 2

                     result += x2/static_cast<T>(6);

                     if    (abs(x) >= taylor_2_bound)

                     {

                         // approximation by taylor series in x at 0 up to order 4

                         result += (x2*x2)/static_cast<T>(120);

                     }

                 }

                 return(result);

             }

         }

 #endif    /* BOOST_NO_TEMPLATE_TEMPLATES */

     }

 }

 #endif /* BOOST_SINHC_HPP */