summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Gamma.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Special/Gamma.hs')
-rw-r--r--lib/Numeric/GSL/Special/Gamma.hs44
1 files changed, 44 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Gamma.hs b/lib/Numeric/GSL/Special/Gamma.hs
index 5cc05f3..1a395ff 100644
--- a/lib/Numeric/GSL/Special/Gamma.hs
+++ b/lib/Numeric/GSL/Special/Gamma.hs
@@ -58,135 +58,179 @@ module Numeric.GSL.Special.Gamma(
58import Foreign(Ptr) 58import Foreign(Ptr)
59import Foreign.C.Types(CInt) 59import Foreign.C.Types(CInt)
60import Numeric.GSL.Special.Internal 60import Numeric.GSL.Special.Internal
61
61lngamma_e :: Double -> (Double,Double) 62lngamma_e :: Double -> (Double,Double)
62lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x 63lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x
63foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt 64foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt
65
64lngamma :: Double -> Double 66lngamma :: Double -> Double
65lngamma = gsl_sf_lngamma 67lngamma = gsl_sf_lngamma
66foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double 68foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double
69
67lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt 70lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt
68lngamma_sgn_e = gsl_sf_lngamma_sgn_e 71lngamma_sgn_e = gsl_sf_lngamma_sgn_e
69foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt 72foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt
73
70gamma_e :: Double -> (Double,Double) 74gamma_e :: Double -> (Double,Double)
71gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x 75gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x
72foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt 76foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt
77
73gamma :: Double -> Double 78gamma :: Double -> Double
74gamma = gsl_sf_gamma 79gamma = gsl_sf_gamma
75foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double 80foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double
81
76gammastar_e :: Double -> (Double,Double) 82gammastar_e :: Double -> (Double,Double)
77gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x 83gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x
78foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt 84foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt
85
79gammastar :: Double -> Double 86gammastar :: Double -> Double
80gammastar = gsl_sf_gammastar 87gammastar = gsl_sf_gammastar
81foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double 88foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double
89
82gammainv_e :: Double -> (Double,Double) 90gammainv_e :: Double -> (Double,Double)
83gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x 91gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x
84foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt 92foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt
93
85gammainv :: Double -> Double 94gammainv :: Double -> Double
86gammainv = gsl_sf_gammainv 95gammainv = gsl_sf_gammainv
87foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double 96foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double
97
88lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) 98lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double)
89lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr 99lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr
90foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 100foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
101
91taylorcoeff_e :: CInt -> Double -> (Double,Double) 102taylorcoeff_e :: CInt -> Double -> (Double,Double)
92taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x 103taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x
93foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt 104foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt
105
94taylorcoeff :: CInt -> Double -> Double 106taylorcoeff :: CInt -> Double -> Double
95taylorcoeff = gsl_sf_taylorcoeff 107taylorcoeff = gsl_sf_taylorcoeff
96foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double 108foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double
109
97fact_e :: CInt -> (Double,Double) 110fact_e :: CInt -> (Double,Double)
98fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n 111fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n
99foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt 112foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt
113
100fact :: CInt -> Double 114fact :: CInt -> Double
101fact = gsl_sf_fact 115fact = gsl_sf_fact
102foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double 116foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double
117
103doublefact_e :: CInt -> (Double,Double) 118doublefact_e :: CInt -> (Double,Double)
104doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n 119doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n
105foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt 120foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt
121
106doublefact :: CInt -> Double 122doublefact :: CInt -> Double
107doublefact = gsl_sf_doublefact 123doublefact = gsl_sf_doublefact
108foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double 124foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double
125
109lnfact_e :: CInt -> (Double,Double) 126lnfact_e :: CInt -> (Double,Double)
110lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n 127lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n
111foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt 128foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt
129
112lnfact :: CInt -> Double 130lnfact :: CInt -> Double
113lnfact = gsl_sf_lnfact 131lnfact = gsl_sf_lnfact
114foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double 132foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double
133
115lndoublefact_e :: CInt -> (Double,Double) 134lndoublefact_e :: CInt -> (Double,Double)
116lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n 135lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n
117foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt 136foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt
137
118lndoublefact :: CInt -> Double 138lndoublefact :: CInt -> Double
119lndoublefact = gsl_sf_lndoublefact 139lndoublefact = gsl_sf_lndoublefact
120foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double 140foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double
141
121lnchoose_e :: CInt -> CInt -> (Double,Double) 142lnchoose_e :: CInt -> CInt -> (Double,Double)
122lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m 143lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m
123foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt 144foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt
145
124lnchoose :: CInt -> CInt -> Double 146lnchoose :: CInt -> CInt -> Double
125lnchoose = gsl_sf_lnchoose 147lnchoose = gsl_sf_lnchoose
126foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double 148foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double
149
127choose_e :: CInt -> CInt -> (Double,Double) 150choose_e :: CInt -> CInt -> (Double,Double)
128choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m 151choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m
129foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt 152foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt
153
130choose :: CInt -> CInt -> Double 154choose :: CInt -> CInt -> Double
131choose = gsl_sf_choose 155choose = gsl_sf_choose
132foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double 156foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double
157
133lnpoch_e :: Double -> Double -> (Double,Double) 158lnpoch_e :: Double -> Double -> (Double,Double)
134lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x 159lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x
135foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt 160foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt
161
136lnpoch :: Double -> Double -> Double 162lnpoch :: Double -> Double -> Double
137lnpoch = gsl_sf_lnpoch 163lnpoch = gsl_sf_lnpoch
138foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double 164foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double
165
139lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt 166lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
140lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e 167lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e
141foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt 168foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
169
142poch_e :: Double -> Double -> (Double,Double) 170poch_e :: Double -> Double -> (Double,Double)
143poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x 171poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x
144foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt 172foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt
173
145poch :: Double -> Double -> Double 174poch :: Double -> Double -> Double
146poch = gsl_sf_poch 175poch = gsl_sf_poch
147foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double 176foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double
177
148pochrel_e :: Double -> Double -> (Double,Double) 178pochrel_e :: Double -> Double -> (Double,Double)
149pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x 179pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x
150foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt 180foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt
181
151pochrel :: Double -> Double -> Double 182pochrel :: Double -> Double -> Double
152pochrel = gsl_sf_pochrel 183pochrel = gsl_sf_pochrel
153foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double 184foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double
185
154gamma_inc_Q_e :: Double -> Double -> (Double,Double) 186gamma_inc_Q_e :: Double -> Double -> (Double,Double)
155gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x 187gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x
156foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt 188foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt
189
157gamma_inc_Q :: Double -> Double -> Double 190gamma_inc_Q :: Double -> Double -> Double
158gamma_inc_Q = gsl_sf_gamma_inc_Q 191gamma_inc_Q = gsl_sf_gamma_inc_Q
159foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double 192foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double
193
160gamma_inc_P_e :: Double -> Double -> (Double,Double) 194gamma_inc_P_e :: Double -> Double -> (Double,Double)
161gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x 195gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x
162foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt 196foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt
197
163gamma_inc_P :: Double -> Double -> Double 198gamma_inc_P :: Double -> Double -> Double
164gamma_inc_P = gsl_sf_gamma_inc_P 199gamma_inc_P = gsl_sf_gamma_inc_P
165foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double 200foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double
201
166gamma_inc_e :: Double -> Double -> (Double,Double) 202gamma_inc_e :: Double -> Double -> (Double,Double)
167gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x 203gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x
168foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt 204foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt
205
169gamma_inc :: Double -> Double -> Double 206gamma_inc :: Double -> Double -> Double
170gamma_inc = gsl_sf_gamma_inc 207gamma_inc = gsl_sf_gamma_inc
171foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double 208foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double
209
172lnbeta_e :: Double -> Double -> (Double,Double) 210lnbeta_e :: Double -> Double -> (Double,Double)
173lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b 211lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b
174foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt 212foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt
213
175lnbeta :: Double -> Double -> Double 214lnbeta :: Double -> Double -> Double
176lnbeta = gsl_sf_lnbeta 215lnbeta = gsl_sf_lnbeta
177foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double 216foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double
217
178lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt 218lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
179lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e 219lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e
180foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt 220foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
221
181beta_e :: Double -> Double -> (Double,Double) 222beta_e :: Double -> Double -> (Double,Double)
182beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b 223beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b
183foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt 224foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt
225
184beta :: Double -> Double -> Double 226beta :: Double -> Double -> Double
185beta = gsl_sf_beta 227beta = gsl_sf_beta
186foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double 228foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double
229
187beta_inc_e :: Double -> Double -> Double -> (Double,Double) 230beta_inc_e :: Double -> Double -> Double -> (Double,Double)
188beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x 231beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x
189foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt 232foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt
233
190beta_inc :: Double -> Double -> Double -> Double 234beta_inc :: Double -> Double -> Double -> Double
191beta_inc = gsl_sf_beta_inc 235beta_inc = gsl_sf_beta_inc
192foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double 236foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double