summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Psi.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Special/Psi.hs')
-rw-r--r--lib/Numeric/GSL/Special/Psi.hs38
1 files changed, 23 insertions, 15 deletions
diff --git a/lib/Numeric/GSL/Special/Psi.hs b/lib/Numeric/GSL/Special/Psi.hs
index c0021e4..3ff6570 100644
--- a/lib/Numeric/GSL/Special/Psi.hs
+++ b/lib/Numeric/GSL/Special/Psi.hs
@@ -30,28 +30,29 @@ module Numeric.GSL.Special.Psi(
30) where 30) where
31 31
32import Foreign(Ptr) 32import Foreign(Ptr)
33import Foreign.C.Types(CInt)
33import Numeric.GSL.Special.Internal 34import Numeric.GSL.Special.Internal
34 35
35-- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result); 36-- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result);
36-- 37--
37-- <http://www.google.com/search?q=gsl_sf_psi_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 38-- <http://www.google.com/search?q=gsl_sf_psi_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
38psi_int_e :: Int -> (Double,Double) 39psi_int_e :: CInt -> (Double,Double)
39psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n 40psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n
40foreign import ccall "psi.h gsl_sf_psi_int_e" gsl_sf_psi_int_e :: Int -> Ptr Double -> IO(Int) 41foreign import ccall "psi.h gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt
41 42
42-- | wrapper for double gsl_sf_psi_int(int n); 43-- | wrapper for double gsl_sf_psi_int(int n);
43-- 44--
44-- <http://www.google.com/search?q=gsl_sf_psi_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 45-- <http://www.google.com/search?q=gsl_sf_psi_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
45psi_int :: Int -> Double 46psi_int :: CInt -> Double
46psi_int = gsl_sf_psi_int 47psi_int = gsl_sf_psi_int
47foreign import ccall "psi.h gsl_sf_psi_int" gsl_sf_psi_int :: Int -> Double 48foreign import ccall "psi.h gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double
48 49
49-- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result); 50-- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result);
50-- 51--
51-- <http://www.google.com/search?q=gsl_sf_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 52-- <http://www.google.com/search?q=gsl_sf_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
52psi_e :: Double -> (Double,Double) 53psi_e :: Double -> (Double,Double)
53psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x 54psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x
54foreign import ccall "psi.h gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr Double -> IO(Int) 55foreign import ccall "psi.h gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt
55 56
56-- | wrapper for double gsl_sf_psi(double x); 57-- | wrapper for double gsl_sf_psi(double x);
57-- 58--
@@ -65,7 +66,7 @@ foreign import ccall "psi.h gsl_sf_psi" gsl_sf_psi :: Double -> Double
65-- <http://www.google.com/search?q=gsl_sf_psi_1piy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 66-- <http://www.google.com/search?q=gsl_sf_psi_1piy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
66psi_1piy_e :: Double -> (Double,Double) 67psi_1piy_e :: Double -> (Double,Double)
67psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y 68psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y
68foreign import ccall "psi.h gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr Double -> IO(Int) 69foreign import ccall "psi.h gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt
69 70
70-- | wrapper for double gsl_sf_psi_1piy(double y); 71-- | wrapper for double gsl_sf_psi_1piy(double y);
71-- 72--
@@ -74,26 +75,33 @@ psi_1piy :: Double -> Double
74psi_1piy = gsl_sf_psi_1piy 75psi_1piy = gsl_sf_psi_1piy
75foreign import ccall "psi.h gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double 76foreign import ccall "psi.h gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double
76 77
78-- | wrapper for int gsl_sf_complex_psi_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im);
79--
80-- <http://www.google.com/search?q=gsl_sf_complex_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
81complex_psi_e :: Double -> Double -> Ptr () -> (Double,Double)
82complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re
83foreign import ccall "psi.h gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
84
77-- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result); 85-- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result);
78-- 86--
79-- <http://www.google.com/search?q=gsl_sf_psi_1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 87-- <http://www.google.com/search?q=gsl_sf_psi_1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
80psi_1_int_e :: Int -> (Double,Double) 88psi_1_int_e :: CInt -> (Double,Double)
81psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n 89psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n
82foreign import ccall "psi.h gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: Int -> Ptr Double -> IO(Int) 90foreign import ccall "psi.h gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt
83 91
84-- | wrapper for double gsl_sf_psi_1_int(int n); 92-- | wrapper for double gsl_sf_psi_1_int(int n);
85-- 93--
86-- <http://www.google.com/search?q=gsl_sf_psi_1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 94-- <http://www.google.com/search?q=gsl_sf_psi_1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
87psi_1_int :: Int -> Double 95psi_1_int :: CInt -> Double
88psi_1_int = gsl_sf_psi_1_int 96psi_1_int = gsl_sf_psi_1_int
89foreign import ccall "psi.h gsl_sf_psi_1_int" gsl_sf_psi_1_int :: Int -> Double 97foreign import ccall "psi.h gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double
90 98
91-- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result); 99-- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result);
92-- 100--
93-- <http://www.google.com/search?q=gsl_sf_psi_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 101-- <http://www.google.com/search?q=gsl_sf_psi_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
94psi_1_e :: Double -> (Double,Double) 102psi_1_e :: Double -> (Double,Double)
95psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x 103psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x
96foreign import ccall "psi.h gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr Double -> IO(Int) 104foreign import ccall "psi.h gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt
97 105
98-- | wrapper for double gsl_sf_psi_1(double x); 106-- | wrapper for double gsl_sf_psi_1(double x);
99-- 107--
@@ -105,13 +113,13 @@ foreign import ccall "psi.h gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double
105-- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result); 113-- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result);
106-- 114--
107-- <http://www.google.com/search?q=gsl_sf_psi_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 115-- <http://www.google.com/search?q=gsl_sf_psi_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
108psi_n_e :: Int -> Double -> (Double,Double) 116psi_n_e :: CInt -> Double -> (Double,Double)
109psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x 117psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x
110foreign import ccall "psi.h gsl_sf_psi_n_e" gsl_sf_psi_n_e :: Int -> Double -> Ptr Double -> IO(Int) 118foreign import ccall "psi.h gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt
111 119
112-- | wrapper for double gsl_sf_psi_n(int n,double x); 120-- | wrapper for double gsl_sf_psi_n(int n,double x);
113-- 121--
114-- <http://www.google.com/search?q=gsl_sf_psi_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 122-- <http://www.google.com/search?q=gsl_sf_psi_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
115psi_n :: Int -> Double -> Double 123psi_n :: CInt -> Double -> Double
116psi_n = gsl_sf_psi_n 124psi_n = gsl_sf_psi_n
117foreign import ccall "psi.h gsl_sf_psi_n" gsl_sf_psi_n :: Int -> Double -> Double 125foreign import ccall "psi.h gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double