diff options
Diffstat (limited to 'lib/GSL/Special/Psi.hs')
-rw-r--r-- | lib/GSL/Special/Psi.hs | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/lib/GSL/Special/Psi.hs b/lib/GSL/Special/Psi.hs index 31f4f8c..bee934b 100644 --- a/lib/GSL/Special/Psi.hs +++ b/lib/GSL/Special/Psi.hs | |||
@@ -9,7 +9,7 @@ Portability : uses ffi | |||
9 | 9 | ||
10 | Wrappers for selected functions described at: | 10 | Wrappers for selected functions described at: |
11 | 11 | ||
12 | <http://www.gnu.org/software/gsl/manual/html_node/Psi-_0028Digamma_0029-Function.html> | 12 | <http://www.google.com/search?q=gsl_sf_psi.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | 13 | ||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
@@ -33,61 +33,85 @@ import Foreign(Ptr) | |||
33 | import GSL.Special.Internal | 33 | import GSL.Special.Internal |
34 | 34 | ||
35 | -- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result); | 35 | -- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result); |
36 | -- | ||
37 | -- <http://www.google.com/search?q=gsl_sf_psi_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
36 | psi_int_e :: Int -> (Double,Double) | 38 | psi_int_e :: Int -> (Double,Double) |
37 | psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n | 39 | psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n |
38 | foreign import ccall "psi.h gsl_sf_psi_int_e" gsl_sf_psi_int_e :: Int -> Ptr Double -> IO(Int) | 40 | foreign import ccall "psi.h gsl_sf_psi_int_e" gsl_sf_psi_int_e :: Int -> Ptr Double -> IO(Int) |
39 | 41 | ||
40 | -- | wrapper for double gsl_sf_psi_int(int n); | 42 | -- | wrapper for double gsl_sf_psi_int(int n); |
43 | -- | ||
44 | -- <http://www.google.com/search?q=gsl_sf_psi_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
41 | psi_int :: Int -> Double | 45 | psi_int :: Int -> Double |
42 | psi_int = gsl_sf_psi_int | 46 | psi_int = gsl_sf_psi_int |
43 | foreign import ccall "psi.h gsl_sf_psi_int" gsl_sf_psi_int :: Int -> Double | 47 | foreign import ccall "psi.h gsl_sf_psi_int" gsl_sf_psi_int :: Int -> Double |
44 | 48 | ||
45 | -- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result); | 49 | -- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result); |
50 | -- | ||
51 | -- <http://www.google.com/search?q=gsl_sf_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
46 | psi_e :: Double -> (Double,Double) | 52 | psi_e :: Double -> (Double,Double) |
47 | psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x | 53 | psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x |
48 | foreign import ccall "psi.h gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr Double -> IO(Int) | 54 | foreign import ccall "psi.h gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr Double -> IO(Int) |
49 | 55 | ||
50 | -- | wrapper for double gsl_sf_psi(double x); | 56 | -- | wrapper for double gsl_sf_psi(double x); |
57 | -- | ||
58 | -- <http://www.google.com/search?q=gsl_sf_psi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
51 | psi :: Double -> Double | 59 | psi :: Double -> Double |
52 | psi = gsl_sf_psi | 60 | psi = gsl_sf_psi |
53 | foreign import ccall "psi.h gsl_sf_psi" gsl_sf_psi :: Double -> Double | 61 | foreign import ccall "psi.h gsl_sf_psi" gsl_sf_psi :: Double -> Double |
54 | 62 | ||
55 | -- | wrapper for int gsl_sf_psi_1piy_e(double y,gsl_sf_result* result); | 63 | -- | wrapper for int gsl_sf_psi_1piy_e(double y,gsl_sf_result* result); |
64 | -- | ||
65 | -- <http://www.google.com/search?q=gsl_sf_psi_1piy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
56 | psi_1piy_e :: Double -> (Double,Double) | 66 | psi_1piy_e :: Double -> (Double,Double) |
57 | psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y | 67 | psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y |
58 | foreign import ccall "psi.h gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr Double -> IO(Int) | 68 | foreign import ccall "psi.h gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr Double -> IO(Int) |
59 | 69 | ||
60 | -- | wrapper for double gsl_sf_psi_1piy(double y); | 70 | -- | wrapper for double gsl_sf_psi_1piy(double y); |
71 | -- | ||
72 | -- <http://www.google.com/search?q=gsl_sf_psi_1piy&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
61 | psi_1piy :: Double -> Double | 73 | psi_1piy :: Double -> Double |
62 | psi_1piy = gsl_sf_psi_1piy | 74 | psi_1piy = gsl_sf_psi_1piy |
63 | foreign import ccall "psi.h gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double | 75 | foreign import ccall "psi.h gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double |
64 | 76 | ||
65 | -- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result); | 77 | -- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result); |
78 | -- | ||
79 | -- <http://www.google.com/search?q=gsl_sf_psi_1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
66 | psi_1_int_e :: Int -> (Double,Double) | 80 | psi_1_int_e :: Int -> (Double,Double) |
67 | psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n | 81 | psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n |
68 | foreign import ccall "psi.h gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: Int -> Ptr Double -> IO(Int) | 82 | foreign import ccall "psi.h gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: Int -> Ptr Double -> IO(Int) |
69 | 83 | ||
70 | -- | wrapper for double gsl_sf_psi_1_int(int n); | 84 | -- | wrapper for double gsl_sf_psi_1_int(int n); |
85 | -- | ||
86 | -- <http://www.google.com/search?q=gsl_sf_psi_1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
71 | psi_1_int :: Int -> Double | 87 | psi_1_int :: Int -> Double |
72 | psi_1_int = gsl_sf_psi_1_int | 88 | psi_1_int = gsl_sf_psi_1_int |
73 | foreign import ccall "psi.h gsl_sf_psi_1_int" gsl_sf_psi_1_int :: Int -> Double | 89 | foreign import ccall "psi.h gsl_sf_psi_1_int" gsl_sf_psi_1_int :: Int -> Double |
74 | 90 | ||
75 | -- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result); | 91 | -- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result); |
92 | -- | ||
93 | -- <http://www.google.com/search?q=gsl_sf_psi_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
76 | psi_1_e :: Double -> (Double,Double) | 94 | psi_1_e :: Double -> (Double,Double) |
77 | psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x | 95 | psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x |
78 | foreign import ccall "psi.h gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr Double -> IO(Int) | 96 | foreign import ccall "psi.h gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr Double -> IO(Int) |
79 | 97 | ||
80 | -- | wrapper for double gsl_sf_psi_1(double x); | 98 | -- | wrapper for double gsl_sf_psi_1(double x); |
99 | -- | ||
100 | -- <http://www.google.com/search?q=gsl_sf_psi_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
81 | psi_1 :: Double -> Double | 101 | psi_1 :: Double -> Double |
82 | psi_1 = gsl_sf_psi_1 | 102 | psi_1 = gsl_sf_psi_1 |
83 | foreign import ccall "psi.h gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double | 103 | foreign import ccall "psi.h gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double |
84 | 104 | ||
85 | -- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result); | 105 | -- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result); |
106 | -- | ||
107 | -- <http://www.google.com/search?q=gsl_sf_psi_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
86 | psi_n_e :: Int -> Double -> (Double,Double) | 108 | psi_n_e :: Int -> Double -> (Double,Double) |
87 | psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x | 109 | psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x |
88 | foreign import ccall "psi.h gsl_sf_psi_n_e" gsl_sf_psi_n_e :: Int -> Double -> Ptr Double -> IO(Int) | 110 | foreign import ccall "psi.h gsl_sf_psi_n_e" gsl_sf_psi_n_e :: Int -> Double -> Ptr Double -> IO(Int) |
89 | 111 | ||
90 | -- | wrapper for double gsl_sf_psi_n(int n,double x); | 112 | -- | wrapper for double gsl_sf_psi_n(int n,double x); |
113 | -- | ||
114 | -- <http://www.google.com/search?q=gsl_sf_psi_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
91 | psi_n :: Int -> Double -> Double | 115 | psi_n :: Int -> Double -> Double |
92 | psi_n = gsl_sf_psi_n | 116 | psi_n = gsl_sf_psi_n |
93 | foreign import ccall "psi.h gsl_sf_psi_n" gsl_sf_psi_n :: Int -> Double -> Double | 117 | foreign import ccall "psi.h gsl_sf_psi_n" gsl_sf_psi_n :: Int -> Double -> Double |