diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-06-17 12:27:17 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-06-17 12:27:17 +0000 |
commit | e58f1e0e94407983fa18cd535cf76427019f1519 (patch) | |
tree | 4ffffdb92fd78e2233485895fb288111af0bf386 /lib/Numeric/GSL/Special/Gamma.hs | |
parent | 45e0e90ffdedd3c1fbe3da750018c65a1535cf75 (diff) |
added special transport and elljac
Diffstat (limited to 'lib/Numeric/GSL/Special/Gamma.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Gamma.hs | 200 |
1 files changed, 11 insertions, 189 deletions
diff --git a/lib/Numeric/GSL/Special/Gamma.hs b/lib/Numeric/GSL/Special/Gamma.hs index cef086e..5cc05f3 100644 --- a/lib/Numeric/GSL/Special/Gamma.hs +++ b/lib/Numeric/GSL/Special/Gamma.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Gamma | 3 | -- Module : Numeric.GSL.Special.Gamma |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | -- Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | -- License : GPL |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) |
7 | Stability : provisional | 7 | -- Stability : provisional |
8 | Portability : uses ffi | 8 | -- Portability : uses ffi |
9 | 9 | -- | |
10 | Wrappers for selected functions described at: | 10 | -- Wrappers for selected functions described at: |
11 | 11 | -- | |
12 | <http://www.google.com/search?q=gsl_sf_gamma.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_gamma.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Gamma( | 15 | module Numeric.GSL.Special.Gamma( |
@@ -60,311 +58,135 @@ module Numeric.GSL.Special.Gamma( | |||
60 | import Foreign(Ptr) | 58 | import Foreign(Ptr) |
61 | import Foreign.C.Types(CInt) | 59 | import Foreign.C.Types(CInt) |
62 | import Numeric.GSL.Special.Internal | 60 | import Numeric.GSL.Special.Internal |
63 | |||
64 | -- | wrapper for int gsl_sf_lngamma_e(double x,gsl_sf_result* result); | ||
65 | -- | ||
66 | -- <http://www.google.com/search?q=gsl_sf_lngamma_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | lngamma_e :: Double -> (Double,Double) | 61 | lngamma_e :: Double -> (Double,Double) |
68 | lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x | 62 | lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x |
69 | foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt | 63 | foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt |
70 | |||
71 | -- | wrapper for double gsl_sf_lngamma(double x); | ||
72 | -- | ||
73 | -- <http://www.google.com/search?q=gsl_sf_lngamma&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
74 | lngamma :: Double -> Double | 64 | lngamma :: Double -> Double |
75 | lngamma = gsl_sf_lngamma | 65 | lngamma = gsl_sf_lngamma |
76 | foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double | 66 | foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double |
77 | |||
78 | -- | wrapper for int gsl_sf_lngamma_sgn_e(double x,gsl_sf_result* result_lg,double* sgn); | ||
79 | -- | ||
80 | -- <http://www.google.com/search?q=gsl_sf_lngamma_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
81 | lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt | 67 | lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt |
82 | lngamma_sgn_e = gsl_sf_lngamma_sgn_e | 68 | lngamma_sgn_e = gsl_sf_lngamma_sgn_e |
83 | foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt | 69 | foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt |
84 | |||
85 | -- | wrapper for int gsl_sf_gamma_e(double x,gsl_sf_result* result); | ||
86 | -- | ||
87 | -- <http://www.google.com/search?q=gsl_sf_gamma_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | gamma_e :: Double -> (Double,Double) | 70 | gamma_e :: Double -> (Double,Double) |
89 | gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x | 71 | gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x |
90 | foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt | 72 | foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt |
91 | |||
92 | -- | wrapper for double gsl_sf_gamma(double x); | ||
93 | -- | ||
94 | -- <http://www.google.com/search?q=gsl_sf_gamma&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
95 | gamma :: Double -> Double | 73 | gamma :: Double -> Double |
96 | gamma = gsl_sf_gamma | 74 | gamma = gsl_sf_gamma |
97 | foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double | 75 | foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double |
98 | |||
99 | -- | wrapper for int gsl_sf_gammastar_e(double x,gsl_sf_result* result); | ||
100 | -- | ||
101 | -- <http://www.google.com/search?q=gsl_sf_gammastar_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
102 | gammastar_e :: Double -> (Double,Double) | 76 | gammastar_e :: Double -> (Double,Double) |
103 | gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x | 77 | gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x |
104 | foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt | 78 | foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt |
105 | |||
106 | -- | wrapper for double gsl_sf_gammastar(double x); | ||
107 | -- | ||
108 | -- <http://www.google.com/search?q=gsl_sf_gammastar&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
109 | gammastar :: Double -> Double | 79 | gammastar :: Double -> Double |
110 | gammastar = gsl_sf_gammastar | 80 | gammastar = gsl_sf_gammastar |
111 | foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double | 81 | foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double |
112 | |||
113 | -- | wrapper for int gsl_sf_gammainv_e(double x,gsl_sf_result* result); | ||
114 | -- | ||
115 | -- <http://www.google.com/search?q=gsl_sf_gammainv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
116 | gammainv_e :: Double -> (Double,Double) | 82 | gammainv_e :: Double -> (Double,Double) |
117 | gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x | 83 | gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x |
118 | foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt | 84 | foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt |
119 | |||
120 | -- | wrapper for double gsl_sf_gammainv(double x); | ||
121 | -- | ||
122 | -- <http://www.google.com/search?q=gsl_sf_gammainv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
123 | gammainv :: Double -> Double | 85 | gammainv :: Double -> Double |
124 | gammainv = gsl_sf_gammainv | 86 | gammainv = gsl_sf_gammainv |
125 | foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double | 87 | foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double |
126 | |||
127 | -- | wrapper for int gsl_sf_lngamma_complex_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* arg); | ||
128 | -- | ||
129 | -- <http://www.google.com/search?q=gsl_sf_lngamma_complex_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
130 | lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) | 88 | lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) |
131 | lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr | 89 | lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr |
132 | foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 90 | foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
133 | |||
134 | -- | wrapper for int gsl_sf_taylorcoeff_e(int n,double x,gsl_sf_result* result); | ||
135 | -- | ||
136 | -- <http://www.google.com/search?q=gsl_sf_taylorcoeff_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
137 | taylorcoeff_e :: CInt -> Double -> (Double,Double) | 91 | taylorcoeff_e :: CInt -> Double -> (Double,Double) |
138 | taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x | 92 | taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x |
139 | foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt | 93 | foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt |
140 | |||
141 | -- | wrapper for double gsl_sf_taylorcoeff(int n,double x); | ||
142 | -- | ||
143 | -- <http://www.google.com/search?q=gsl_sf_taylorcoeff&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
144 | taylorcoeff :: CInt -> Double -> Double | 94 | taylorcoeff :: CInt -> Double -> Double |
145 | taylorcoeff = gsl_sf_taylorcoeff | 95 | taylorcoeff = gsl_sf_taylorcoeff |
146 | foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double | 96 | foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double |
147 | |||
148 | -- | wrapper for int gsl_sf_fact_e(int n,gsl_sf_result* result); | ||
149 | -- | ||
150 | -- <http://www.google.com/search?q=gsl_sf_fact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
151 | fact_e :: CInt -> (Double,Double) | 97 | fact_e :: CInt -> (Double,Double) |
152 | fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n | 98 | fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n |
153 | foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt | 99 | foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt |
154 | |||
155 | -- | wrapper for double gsl_sf_fact(int n); | ||
156 | -- | ||
157 | -- <http://www.google.com/search?q=gsl_sf_fact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
158 | fact :: CInt -> Double | 100 | fact :: CInt -> Double |
159 | fact = gsl_sf_fact | 101 | fact = gsl_sf_fact |
160 | foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double | 102 | foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double |
161 | |||
162 | -- | wrapper for int gsl_sf_doublefact_e(int n,gsl_sf_result* result); | ||
163 | -- | ||
164 | -- <http://www.google.com/search?q=gsl_sf_doublefact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
165 | doublefact_e :: CInt -> (Double,Double) | 103 | doublefact_e :: CInt -> (Double,Double) |
166 | doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n | 104 | doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n |
167 | foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt | 105 | foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt |
168 | |||
169 | -- | wrapper for double gsl_sf_doublefact(int n); | ||
170 | -- | ||
171 | -- <http://www.google.com/search?q=gsl_sf_doublefact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
172 | doublefact :: CInt -> Double | 106 | doublefact :: CInt -> Double |
173 | doublefact = gsl_sf_doublefact | 107 | doublefact = gsl_sf_doublefact |
174 | foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double | 108 | foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double |
175 | |||
176 | -- | wrapper for int gsl_sf_lnfact_e(int n,gsl_sf_result* result); | ||
177 | -- | ||
178 | -- <http://www.google.com/search?q=gsl_sf_lnfact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
179 | lnfact_e :: CInt -> (Double,Double) | 109 | lnfact_e :: CInt -> (Double,Double) |
180 | lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n | 110 | lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n |
181 | foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt | 111 | foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt |
182 | |||
183 | -- | wrapper for double gsl_sf_lnfact(int n); | ||
184 | -- | ||
185 | -- <http://www.google.com/search?q=gsl_sf_lnfact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
186 | lnfact :: CInt -> Double | 112 | lnfact :: CInt -> Double |
187 | lnfact = gsl_sf_lnfact | 113 | lnfact = gsl_sf_lnfact |
188 | foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double | 114 | foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double |
189 | |||
190 | -- | wrapper for int gsl_sf_lndoublefact_e(int n,gsl_sf_result* result); | ||
191 | -- | ||
192 | -- <http://www.google.com/search?q=gsl_sf_lndoublefact_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
193 | lndoublefact_e :: CInt -> (Double,Double) | 115 | lndoublefact_e :: CInt -> (Double,Double) |
194 | lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n | 116 | lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n |
195 | foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt | 117 | foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt |
196 | |||
197 | -- | wrapper for double gsl_sf_lndoublefact(int n); | ||
198 | -- | ||
199 | -- <http://www.google.com/search?q=gsl_sf_lndoublefact&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
200 | lndoublefact :: CInt -> Double | 118 | lndoublefact :: CInt -> Double |
201 | lndoublefact = gsl_sf_lndoublefact | 119 | lndoublefact = gsl_sf_lndoublefact |
202 | foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double | 120 | foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double |
203 | |||
204 | -- | wrapper for int gsl_sf_lnchoose_e(int n,int m,gsl_sf_result* result); | ||
205 | -- | ||
206 | -- <http://www.google.com/search?q=gsl_sf_lnchoose_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
207 | lnchoose_e :: CInt -> CInt -> (Double,Double) | 121 | lnchoose_e :: CInt -> CInt -> (Double,Double) |
208 | lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m | 122 | lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m |
209 | foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt | 123 | foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt |
210 | |||
211 | -- | wrapper for double gsl_sf_lnchoose(int n,int m); | ||
212 | -- | ||
213 | -- <http://www.google.com/search?q=gsl_sf_lnchoose&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
214 | lnchoose :: CInt -> CInt -> Double | 124 | lnchoose :: CInt -> CInt -> Double |
215 | lnchoose = gsl_sf_lnchoose | 125 | lnchoose = gsl_sf_lnchoose |
216 | foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double | 126 | foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double |
217 | |||
218 | -- | wrapper for int gsl_sf_choose_e(int n,int m,gsl_sf_result* result); | ||
219 | -- | ||
220 | -- <http://www.google.com/search?q=gsl_sf_choose_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
221 | choose_e :: CInt -> CInt -> (Double,Double) | 127 | choose_e :: CInt -> CInt -> (Double,Double) |
222 | choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m | 128 | choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m |
223 | foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt | 129 | foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt |
224 | |||
225 | -- | wrapper for double gsl_sf_choose(int n,int m); | ||
226 | -- | ||
227 | -- <http://www.google.com/search?q=gsl_sf_choose&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
228 | choose :: CInt -> CInt -> Double | 130 | choose :: CInt -> CInt -> Double |
229 | choose = gsl_sf_choose | 131 | choose = gsl_sf_choose |
230 | foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double | 132 | foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double |
231 | |||
232 | -- | wrapper for int gsl_sf_lnpoch_e(double a,double x,gsl_sf_result* result); | ||
233 | -- | ||
234 | -- <http://www.google.com/search?q=gsl_sf_lnpoch_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
235 | lnpoch_e :: Double -> Double -> (Double,Double) | 133 | lnpoch_e :: Double -> Double -> (Double,Double) |
236 | lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x | 134 | lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x |
237 | foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt | 135 | foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt |
238 | |||
239 | -- | wrapper for double gsl_sf_lnpoch(double a,double x); | ||
240 | -- | ||
241 | -- <http://www.google.com/search?q=gsl_sf_lnpoch&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
242 | lnpoch :: Double -> Double -> Double | 136 | lnpoch :: Double -> Double -> Double |
243 | lnpoch = gsl_sf_lnpoch | 137 | lnpoch = gsl_sf_lnpoch |
244 | foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double | 138 | foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double |
245 | |||
246 | -- | wrapper for int gsl_sf_lnpoch_sgn_e(double a,double x,gsl_sf_result* result,double* sgn); | ||
247 | -- | ||
248 | -- <http://www.google.com/search?q=gsl_sf_lnpoch_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
249 | lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 139 | lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
250 | lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e | 140 | lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e |
251 | foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 141 | foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
252 | |||
253 | -- | wrapper for int gsl_sf_poch_e(double a,double x,gsl_sf_result* result); | ||
254 | -- | ||
255 | -- <http://www.google.com/search?q=gsl_sf_poch_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
256 | poch_e :: Double -> Double -> (Double,Double) | 142 | poch_e :: Double -> Double -> (Double,Double) |
257 | poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x | 143 | poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x |
258 | foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt | 144 | foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt |
259 | |||
260 | -- | wrapper for double gsl_sf_poch(double a,double x); | ||
261 | -- | ||
262 | -- <http://www.google.com/search?q=gsl_sf_poch&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
263 | poch :: Double -> Double -> Double | 145 | poch :: Double -> Double -> Double |
264 | poch = gsl_sf_poch | 146 | poch = gsl_sf_poch |
265 | foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double | 147 | foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double |
266 | |||
267 | -- | wrapper for int gsl_sf_pochrel_e(double a,double x,gsl_sf_result* result); | ||
268 | -- | ||
269 | -- <http://www.google.com/search?q=gsl_sf_pochrel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
270 | pochrel_e :: Double -> Double -> (Double,Double) | 148 | pochrel_e :: Double -> Double -> (Double,Double) |
271 | pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x | 149 | pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x |
272 | foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt | 150 | foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt |
273 | |||
274 | -- | wrapper for double gsl_sf_pochrel(double a,double x); | ||
275 | -- | ||
276 | -- <http://www.google.com/search?q=gsl_sf_pochrel&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
277 | pochrel :: Double -> Double -> Double | 151 | pochrel :: Double -> Double -> Double |
278 | pochrel = gsl_sf_pochrel | 152 | pochrel = gsl_sf_pochrel |
279 | foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double | 153 | foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double |
280 | |||
281 | -- | wrapper for int gsl_sf_gamma_inc_Q_e(double a,double x,gsl_sf_result* result); | ||
282 | -- | ||
283 | -- <http://www.google.com/search?q=gsl_sf_gamma_inc_Q_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
284 | gamma_inc_Q_e :: Double -> Double -> (Double,Double) | 154 | gamma_inc_Q_e :: Double -> Double -> (Double,Double) |
285 | gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x | 155 | gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x |
286 | foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt | 156 | foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt |
287 | |||
288 | -- | wrapper for double gsl_sf_gamma_inc_Q(double a,double x); | ||
289 | -- | ||
290 | -- <http://www.google.com/search?q=gsl_sf_gamma_inc_Q&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
291 | gamma_inc_Q :: Double -> Double -> Double | 157 | gamma_inc_Q :: Double -> Double -> Double |
292 | gamma_inc_Q = gsl_sf_gamma_inc_Q | 158 | gamma_inc_Q = gsl_sf_gamma_inc_Q |
293 | foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double | 159 | foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double |
294 | |||
295 | -- | wrapper for int gsl_sf_gamma_inc_P_e(double a,double x,gsl_sf_result* result); | ||
296 | -- | ||
297 | -- <http://www.google.com/search?q=gsl_sf_gamma_inc_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
298 | gamma_inc_P_e :: Double -> Double -> (Double,Double) | 160 | gamma_inc_P_e :: Double -> Double -> (Double,Double) |
299 | gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x | 161 | gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x |
300 | foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt | 162 | foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt |
301 | |||
302 | -- | wrapper for double gsl_sf_gamma_inc_P(double a,double x); | ||
303 | -- | ||
304 | -- <http://www.google.com/search?q=gsl_sf_gamma_inc_P&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
305 | gamma_inc_P :: Double -> Double -> Double | 163 | gamma_inc_P :: Double -> Double -> Double |
306 | gamma_inc_P = gsl_sf_gamma_inc_P | 164 | gamma_inc_P = gsl_sf_gamma_inc_P |
307 | foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double | 165 | foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double |
308 | |||
309 | -- | wrapper for int gsl_sf_gamma_inc_e(double a,double x,gsl_sf_result* result); | ||
310 | -- | ||
311 | -- <http://www.google.com/search?q=gsl_sf_gamma_inc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
312 | gamma_inc_e :: Double -> Double -> (Double,Double) | 166 | gamma_inc_e :: Double -> Double -> (Double,Double) |
313 | gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x | 167 | gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x |
314 | foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt | 168 | foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt |
315 | |||
316 | -- | wrapper for double gsl_sf_gamma_inc(double a,double x); | ||
317 | -- | ||
318 | -- <http://www.google.com/search?q=gsl_sf_gamma_inc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
319 | gamma_inc :: Double -> Double -> Double | 169 | gamma_inc :: Double -> Double -> Double |
320 | gamma_inc = gsl_sf_gamma_inc | 170 | gamma_inc = gsl_sf_gamma_inc |
321 | foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double | 171 | foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double |
322 | |||
323 | -- | wrapper for int gsl_sf_lnbeta_e(double a,double b,gsl_sf_result* result); | ||
324 | -- | ||
325 | -- <http://www.google.com/search?q=gsl_sf_lnbeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
326 | lnbeta_e :: Double -> Double -> (Double,Double) | 172 | lnbeta_e :: Double -> Double -> (Double,Double) |
327 | lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b | 173 | lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b |
328 | foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt | 174 | foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt |
329 | |||
330 | -- | wrapper for double gsl_sf_lnbeta(double a,double b); | ||
331 | -- | ||
332 | -- <http://www.google.com/search?q=gsl_sf_lnbeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
333 | lnbeta :: Double -> Double -> Double | 175 | lnbeta :: Double -> Double -> Double |
334 | lnbeta = gsl_sf_lnbeta | 176 | lnbeta = gsl_sf_lnbeta |
335 | foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double | 177 | foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double |
336 | |||
337 | -- | wrapper for int gsl_sf_lnbeta_sgn_e(double x,double y,gsl_sf_result* result,double* sgn); | ||
338 | -- | ||
339 | -- <http://www.google.com/search?q=gsl_sf_lnbeta_sgn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
340 | lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 178 | lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
341 | lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e | 179 | lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e |
342 | foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 180 | foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
343 | |||
344 | -- | wrapper for int gsl_sf_beta_e(double a,double b,gsl_sf_result* result); | ||
345 | -- | ||
346 | -- <http://www.google.com/search?q=gsl_sf_beta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
347 | beta_e :: Double -> Double -> (Double,Double) | 181 | beta_e :: Double -> Double -> (Double,Double) |
348 | beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b | 182 | beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b |
349 | foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt | 183 | foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt |
350 | |||
351 | -- | wrapper for double gsl_sf_beta(double a,double b); | ||
352 | -- | ||
353 | -- <http://www.google.com/search?q=gsl_sf_beta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
354 | beta :: Double -> Double -> Double | 184 | beta :: Double -> Double -> Double |
355 | beta = gsl_sf_beta | 185 | beta = gsl_sf_beta |
356 | foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double | 186 | foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double |
357 | |||
358 | -- | wrapper for int gsl_sf_beta_inc_e(double a,double b,double x,gsl_sf_result* result); | ||
359 | -- | ||
360 | -- <http://www.google.com/search?q=gsl_sf_beta_inc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
361 | beta_inc_e :: Double -> Double -> Double -> (Double,Double) | 187 | beta_inc_e :: Double -> Double -> Double -> (Double,Double) |
362 | beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x | 188 | beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x |
363 | foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 189 | foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
364 | |||
365 | -- | wrapper for double gsl_sf_beta_inc(double a,double b,double x); | ||
366 | -- | ||
367 | -- <http://www.google.com/search?q=gsl_sf_beta_inc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
368 | beta_inc :: Double -> Double -> Double -> Double | 190 | beta_inc :: Double -> Double -> Double -> Double |
369 | beta_inc = gsl_sf_beta_inc | 191 | beta_inc = gsl_sf_beta_inc |
370 | foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double | 192 | foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double |