From b9db4d25d87cd4ab0f493413db92fb41b7eacda9 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 29 Jul 2007 15:43:21 +0000 Subject: more automatic wrappers for simple special functions --- lib/GSL/Special/Expint.hs | 163 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 163 insertions(+) create mode 100644 lib/GSL/Special/Expint.hs (limited to 'lib/GSL/Special/Expint.hs') diff --git a/lib/GSL/Special/Expint.hs b/lib/GSL/Special/Expint.hs new file mode 100644 index 0000000..f761966 --- /dev/null +++ b/lib/GSL/Special/Expint.hs @@ -0,0 +1,163 @@ +------------------------------------------------------------ +{- | +Module : GSL.Special.Expint +Copyright : (c) Alberto Ruiz 2006 +License : GPL-style +Maintainer : Alberto Ruiz (aruiz at um dot es) +Stability : provisional +Portability : uses ffi + + + +-} +------------------------------------------------------------ + +module GSL.Special.Expint( + expint_E1_e +, expint_E1 +, expint_E2_e +, expint_E2 +, expint_E1_scaled_e +, expint_E1_scaled +, expint_E2_scaled_e +, expint_E2_scaled +, expint_Ei_e +, expint_Ei +, expint_Ei_scaled_e +, expint_Ei_scaled +, shi_e +, shi +, chi_e +, chi +, expint_3_e +, expint_3 +, si_e +, si +, ci_e +, ci +, atanint_e +, atanint +) where + +import Foreign(Ptr) +import GSL.Special.Internal + +-- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result); +expint_E1_e :: Double -> (Double,Double) +expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x +foreign import ccall "expint.h gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_expint_E1(double x); +expint_E1 :: Double -> Double +expint_E1 = gsl_sf_expint_E1 +foreign import ccall "expint.h gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double + +-- | wrapper for int gsl_sf_expint_E2_e(double x,gsl_sf_result* result); +expint_E2_e :: Double -> (Double,Double) +expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x +foreign import ccall "expint.h gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_expint_E2(double x); +expint_E2 :: Double -> Double +expint_E2 = gsl_sf_expint_E2 +foreign import ccall "expint.h gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double + +-- | wrapper for int gsl_sf_expint_E1_scaled_e(double x,gsl_sf_result* result); +expint_E1_scaled_e :: Double -> (Double,Double) +expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x +foreign import ccall "expint.h gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_expint_E1_scaled(double x); +expint_E1_scaled :: Double -> Double +expint_E1_scaled = gsl_sf_expint_E1_scaled +foreign import ccall "expint.h gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double + +-- | wrapper for int gsl_sf_expint_E2_scaled_e(double x,gsl_sf_result* result); +expint_E2_scaled_e :: Double -> (Double,Double) +expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x +foreign import ccall "expint.h gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_expint_E2_scaled(double x); +expint_E2_scaled :: Double -> Double +expint_E2_scaled = gsl_sf_expint_E2_scaled +foreign import ccall "expint.h gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double + +-- | wrapper for int gsl_sf_expint_Ei_e(double x,gsl_sf_result* result); +expint_Ei_e :: Double -> (Double,Double) +expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x +foreign import ccall "expint.h gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_expint_Ei(double x); +expint_Ei :: Double -> Double +expint_Ei = gsl_sf_expint_Ei +foreign import ccall "expint.h gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double + +-- | wrapper for int gsl_sf_expint_Ei_scaled_e(double x,gsl_sf_result* result); +expint_Ei_scaled_e :: Double -> (Double,Double) +expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x +foreign import ccall "expint.h gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_expint_Ei_scaled(double x); +expint_Ei_scaled :: Double -> Double +expint_Ei_scaled = gsl_sf_expint_Ei_scaled +foreign import ccall "expint.h gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double + +-- | wrapper for int gsl_sf_Shi_e(double x,gsl_sf_result* result); +shi_e :: Double -> (Double,Double) +shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x +foreign import ccall "expint.h gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_Shi(double x); +shi :: Double -> Double +shi = gsl_sf_Shi +foreign import ccall "expint.h gsl_sf_Shi" gsl_sf_Shi :: Double -> Double + +-- | wrapper for int gsl_sf_Chi_e(double x,gsl_sf_result* result); +chi_e :: Double -> (Double,Double) +chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x +foreign import ccall "expint.h gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_Chi(double x); +chi :: Double -> Double +chi = gsl_sf_Chi +foreign import ccall "expint.h gsl_sf_Chi" gsl_sf_Chi :: Double -> Double + +-- | wrapper for int gsl_sf_expint_3_e(double x,gsl_sf_result* result); +expint_3_e :: Double -> (Double,Double) +expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x +foreign import ccall "expint.h gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_expint_3(double x); +expint_3 :: Double -> Double +expint_3 = gsl_sf_expint_3 +foreign import ccall "expint.h gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double + +-- | wrapper for int gsl_sf_Si_e(double x,gsl_sf_result* result); +si_e :: Double -> (Double,Double) +si_e x = createSFR "si_e" $ gsl_sf_Si_e x +foreign import ccall "expint.h gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_Si(double x); +si :: Double -> Double +si = gsl_sf_Si +foreign import ccall "expint.h gsl_sf_Si" gsl_sf_Si :: Double -> Double + +-- | wrapper for int gsl_sf_Ci_e(double x,gsl_sf_result* result); +ci_e :: Double -> (Double,Double) +ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x +foreign import ccall "expint.h gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_Ci(double x); +ci :: Double -> Double +ci = gsl_sf_Ci +foreign import ccall "expint.h gsl_sf_Ci" gsl_sf_Ci :: Double -> Double + +-- | wrapper for int gsl_sf_atanint_e(double x,gsl_sf_result* result); +atanint_e :: Double -> (Double,Double) +atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x +foreign import ccall "expint.h gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr Double -> IO(Int) + +-- | wrapper for double gsl_sf_atanint(double x); +atanint :: Double -> Double +atanint = gsl_sf_atanint +foreign import ccall "expint.h gsl_sf_atanint" gsl_sf_atanint :: Double -> Double -- cgit v1.2.3