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 | |
parent | 45e0e90ffdedd3c1fbe3da750018c65a1535cf75 (diff) |
added special transport and elljac
Diffstat (limited to 'lib/Numeric/GSL')
32 files changed, 404 insertions, 2545 deletions
diff --git a/lib/Numeric/GSL/Special.hs b/lib/Numeric/GSL/Special.hs index 3fd2ac2..a8bbaf6 100644 --- a/lib/Numeric/GSL/Special.hs +++ b/lib/Numeric/GSL/Special.hs | |||
@@ -25,6 +25,7 @@ module Numeric.GSL.Special ( | |||
25 | , module Numeric.GSL.Special.Dilog | 25 | , module Numeric.GSL.Special.Dilog |
26 | , module Numeric.GSL.Special.Elementary | 26 | , module Numeric.GSL.Special.Elementary |
27 | , module Numeric.GSL.Special.Ellint | 27 | , module Numeric.GSL.Special.Ellint |
28 | , module Numeric.GSL.Special.Elljac | ||
28 | , module Numeric.GSL.Special.Erf | 29 | , module Numeric.GSL.Special.Erf |
29 | , module Numeric.GSL.Special.Exp | 30 | , module Numeric.GSL.Special.Exp |
30 | , module Numeric.GSL.Special.Expint | 31 | , module Numeric.GSL.Special.Expint |
@@ -39,6 +40,7 @@ module Numeric.GSL.Special ( | |||
39 | , module Numeric.GSL.Special.Pow_int | 40 | , module Numeric.GSL.Special.Pow_int |
40 | , module Numeric.GSL.Special.Psi | 41 | , module Numeric.GSL.Special.Psi |
41 | , module Numeric.GSL.Special.Synchrotron | 42 | , module Numeric.GSL.Special.Synchrotron |
43 | , module Numeric.GSL.Special.Transport | ||
42 | , module Numeric.GSL.Special.Trig | 44 | , module Numeric.GSL.Special.Trig |
43 | , module Numeric.GSL.Special.Zeta | 45 | , module Numeric.GSL.Special.Zeta |
44 | ) | 46 | ) |
@@ -54,6 +56,7 @@ import Numeric.GSL.Special.Debye | |||
54 | import Numeric.GSL.Special.Dilog | 56 | import Numeric.GSL.Special.Dilog |
55 | import Numeric.GSL.Special.Elementary | 57 | import Numeric.GSL.Special.Elementary |
56 | import Numeric.GSL.Special.Ellint | 58 | import Numeric.GSL.Special.Ellint |
59 | import Numeric.GSL.Special.Elljac | ||
57 | import Numeric.GSL.Special.Erf | 60 | import Numeric.GSL.Special.Erf |
58 | import Numeric.GSL.Special.Exp | 61 | import Numeric.GSL.Special.Exp |
59 | import Numeric.GSL.Special.Expint | 62 | import Numeric.GSL.Special.Expint |
@@ -68,5 +71,6 @@ import Numeric.GSL.Special.Log | |||
68 | import Numeric.GSL.Special.Pow_int | 71 | import Numeric.GSL.Special.Pow_int |
69 | import Numeric.GSL.Special.Psi | 72 | import Numeric.GSL.Special.Psi |
70 | import Numeric.GSL.Special.Synchrotron | 73 | import Numeric.GSL.Special.Synchrotron |
74 | import Numeric.GSL.Special.Transport | ||
71 | import Numeric.GSL.Special.Trig | 75 | import Numeric.GSL.Special.Trig |
72 | import Numeric.GSL.Special.Zeta | 76 | import Numeric.GSL.Special.Zeta |
diff --git a/lib/Numeric/GSL/Special/Airy.hs b/lib/Numeric/GSL/Special/Airy.hs index 80e98f4..0477039 100644 --- a/lib/Numeric/GSL/Special/Airy.hs +++ b/lib/Numeric/GSL/Special/Airy.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Airy | 3 | -- Module : Numeric.GSL.Special.Airy |
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_airy.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_airy.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Airy( | 15 | module Numeric.GSL.Special.Airy( |
@@ -45,171 +43,75 @@ module Numeric.GSL.Special.Airy( | |||
45 | import Foreign(Ptr) | 43 | import Foreign(Ptr) |
46 | import Foreign.C.Types(CInt) | 44 | import Foreign.C.Types(CInt) |
47 | import Numeric.GSL.Special.Internal | 45 | import Numeric.GSL.Special.Internal |
48 | |||
49 | -- | wrapper for int gsl_sf_airy_Ai_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
50 | -- | ||
51 | -- <http://www.google.com/search?q=gsl_sf_airy_Ai_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
52 | airy_Ai_e :: Double -> Precision -> (Double,Double) | 46 | airy_Ai_e :: Double -> Precision -> (Double,Double) |
53 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) | 47 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) |
54 | foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 48 | foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
55 | |||
56 | -- | wrapper for double gsl_sf_airy_Ai(double x,gsl_mode_t mode); | ||
57 | -- | ||
58 | -- <http://www.google.com/search?q=gsl_sf_airy_Ai&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
59 | airy_Ai :: Double -> Precision -> Double | 49 | airy_Ai :: Double -> Precision -> Double |
60 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) | 50 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) |
61 | foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double | 51 | foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double |
62 | |||
63 | -- | wrapper for int gsl_sf_airy_Bi_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
64 | -- | ||
65 | -- <http://www.google.com/search?q=gsl_sf_airy_Bi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
66 | airy_Bi_e :: Double -> Precision -> (Double,Double) | 52 | airy_Bi_e :: Double -> Precision -> (Double,Double) |
67 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) | 53 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) |
68 | foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 54 | foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
69 | |||
70 | -- | wrapper for double gsl_sf_airy_Bi(double x,gsl_mode_t mode); | ||
71 | -- | ||
72 | -- <http://www.google.com/search?q=gsl_sf_airy_Bi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
73 | airy_Bi :: Double -> Precision -> Double | 55 | airy_Bi :: Double -> Precision -> Double |
74 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) | 56 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) |
75 | foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double | 57 | foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double |
76 | |||
77 | -- | wrapper for int gsl_sf_airy_Ai_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
78 | -- | ||
79 | -- <http://www.google.com/search?q=gsl_sf_airy_Ai_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
80 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) | 58 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) |
81 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) | 59 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) |
82 | foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
83 | |||
84 | -- | wrapper for double gsl_sf_airy_Ai_scaled(double x,gsl_mode_t mode); | ||
85 | -- | ||
86 | -- <http://www.google.com/search?q=gsl_sf_airy_Ai_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
87 | airy_Ai_scaled :: Double -> Precision -> Double | 61 | airy_Ai_scaled :: Double -> Precision -> Double |
88 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) | 62 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) |
89 | foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double | 63 | foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double |
90 | |||
91 | -- | wrapper for int gsl_sf_airy_Bi_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
92 | -- | ||
93 | -- <http://www.google.com/search?q=gsl_sf_airy_Bi_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
94 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) | 64 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) |
95 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) | 65 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) |
96 | foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 66 | foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
97 | |||
98 | -- | wrapper for double gsl_sf_airy_Bi_scaled(double x,gsl_mode_t mode); | ||
99 | -- | ||
100 | -- <http://www.google.com/search?q=gsl_sf_airy_Bi_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
101 | airy_Bi_scaled :: Double -> Precision -> Double | 67 | airy_Bi_scaled :: Double -> Precision -> Double |
102 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) | 68 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) |
103 | foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double | 69 | foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double |
104 | |||
105 | -- | wrapper for int gsl_sf_airy_Ai_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
106 | -- | ||
107 | -- <http://www.google.com/search?q=gsl_sf_airy_Ai_deriv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
108 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) | 70 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) |
109 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) | 71 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) |
110 | foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 72 | foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
111 | |||
112 | -- | wrapper for double gsl_sf_airy_Ai_deriv(double x,gsl_mode_t mode); | ||
113 | -- | ||
114 | -- <http://www.google.com/search?q=gsl_sf_airy_Ai_deriv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
115 | airy_Ai_deriv :: Double -> Precision -> Double | 73 | airy_Ai_deriv :: Double -> Precision -> Double |
116 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) | 74 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) |
117 | foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double | 75 | foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double |
118 | |||
119 | -- | wrapper for int gsl_sf_airy_Bi_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
120 | -- | ||
121 | -- <http://www.google.com/search?q=gsl_sf_airy_Bi_deriv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
122 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) | 76 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) |
123 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) | 77 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) |
124 | foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 78 | foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
125 | |||
126 | -- | wrapper for double gsl_sf_airy_Bi_deriv(double x,gsl_mode_t mode); | ||
127 | -- | ||
128 | -- <http://www.google.com/search?q=gsl_sf_airy_Bi_deriv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
129 | airy_Bi_deriv :: Double -> Precision -> Double | 79 | airy_Bi_deriv :: Double -> Precision -> Double |
130 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) | 80 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) |
131 | foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double | 81 | foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double |
132 | |||
133 | -- | wrapper for int gsl_sf_airy_Ai_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
134 | -- | ||
135 | -- <http://www.google.com/search?q=gsl_sf_airy_Ai_deriv_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
136 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) | 82 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) |
137 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) | 83 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) |
138 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 84 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
139 | |||
140 | -- | wrapper for double gsl_sf_airy_Ai_deriv_scaled(double x,gsl_mode_t mode); | ||
141 | -- | ||
142 | -- <http://www.google.com/search?q=gsl_sf_airy_Ai_deriv_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
143 | airy_Ai_deriv_scaled :: Double -> Precision -> Double | 85 | airy_Ai_deriv_scaled :: Double -> Precision -> Double |
144 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) | 86 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) |
145 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double | 87 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double |
146 | |||
147 | -- | wrapper for int gsl_sf_airy_Bi_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
148 | -- | ||
149 | -- <http://www.google.com/search?q=gsl_sf_airy_Bi_deriv_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
150 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) | 88 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) |
151 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) | 89 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) |
152 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 90 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
153 | |||
154 | -- | wrapper for double gsl_sf_airy_Bi_deriv_scaled(double x,gsl_mode_t mode); | ||
155 | -- | ||
156 | -- <http://www.google.com/search?q=gsl_sf_airy_Bi_deriv_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
157 | airy_Bi_deriv_scaled :: Double -> Precision -> Double | 91 | airy_Bi_deriv_scaled :: Double -> Precision -> Double |
158 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) | 92 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) |
159 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double | 93 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double |
160 | |||
161 | -- | wrapper for int gsl_sf_airy_zero_Ai_e(int s,gsl_sf_result* result); | ||
162 | -- | ||
163 | -- <http://www.google.com/search?q=gsl_sf_airy_zero_Ai_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
164 | airy_zero_Ai_e :: CInt -> (Double,Double) | 94 | airy_zero_Ai_e :: CInt -> (Double,Double) |
165 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s | 95 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s |
166 | foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt | 96 | foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt |
167 | |||
168 | -- | wrapper for double gsl_sf_airy_zero_Ai(int s); | ||
169 | -- | ||
170 | -- <http://www.google.com/search?q=gsl_sf_airy_zero_Ai&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
171 | airy_zero_Ai :: CInt -> Double | 97 | airy_zero_Ai :: CInt -> Double |
172 | airy_zero_Ai = gsl_sf_airy_zero_Ai | 98 | airy_zero_Ai = gsl_sf_airy_zero_Ai |
173 | foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double | 99 | foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double |
174 | |||
175 | -- | wrapper for int gsl_sf_airy_zero_Bi_e(int s,gsl_sf_result* result); | ||
176 | -- | ||
177 | -- <http://www.google.com/search?q=gsl_sf_airy_zero_Bi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
178 | airy_zero_Bi_e :: CInt -> (Double,Double) | 100 | airy_zero_Bi_e :: CInt -> (Double,Double) |
179 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s | 101 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s |
180 | foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt | 102 | foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt |
181 | |||
182 | -- | wrapper for double gsl_sf_airy_zero_Bi(int s); | ||
183 | -- | ||
184 | -- <http://www.google.com/search?q=gsl_sf_airy_zero_Bi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
185 | airy_zero_Bi :: CInt -> Double | 103 | airy_zero_Bi :: CInt -> Double |
186 | airy_zero_Bi = gsl_sf_airy_zero_Bi | 104 | airy_zero_Bi = gsl_sf_airy_zero_Bi |
187 | foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double | 105 | foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double |
188 | |||
189 | -- | wrapper for int gsl_sf_airy_zero_Ai_deriv_e(int s,gsl_sf_result* result); | ||
190 | -- | ||
191 | -- <http://www.google.com/search?q=gsl_sf_airy_zero_Ai_deriv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
192 | airy_zero_Ai_deriv_e :: CInt -> (Double,Double) | 106 | airy_zero_Ai_deriv_e :: CInt -> (Double,Double) |
193 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s | 107 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s |
194 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt | 108 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt |
195 | |||
196 | -- | wrapper for double gsl_sf_airy_zero_Ai_deriv(int s); | ||
197 | -- | ||
198 | -- <http://www.google.com/search?q=gsl_sf_airy_zero_Ai_deriv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
199 | airy_zero_Ai_deriv :: CInt -> Double | 109 | airy_zero_Ai_deriv :: CInt -> Double |
200 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv | 110 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv |
201 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double | 111 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double |
202 | |||
203 | -- | wrapper for int gsl_sf_airy_zero_Bi_deriv_e(int s,gsl_sf_result* result); | ||
204 | -- | ||
205 | -- <http://www.google.com/search?q=gsl_sf_airy_zero_Bi_deriv_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
206 | airy_zero_Bi_deriv_e :: CInt -> (Double,Double) | 112 | airy_zero_Bi_deriv_e :: CInt -> (Double,Double) |
207 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s | 113 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s |
208 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt | 114 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt |
209 | |||
210 | -- | wrapper for double gsl_sf_airy_zero_Bi_deriv(int s); | ||
211 | -- | ||
212 | -- <http://www.google.com/search?q=gsl_sf_airy_zero_Bi_deriv&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
213 | airy_zero_Bi_deriv :: CInt -> Double | 115 | airy_zero_Bi_deriv :: CInt -> Double |
214 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv | 116 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv |
215 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double | 117 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double |
diff --git a/lib/Numeric/GSL/Special/Bessel.hs b/lib/Numeric/GSL/Special/Bessel.hs index d5df69b..bd31402 100644 --- a/lib/Numeric/GSL/Special/Bessel.hs +++ b/lib/Numeric/GSL/Special/Bessel.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Bessel | 3 | -- Module : Numeric.GSL.Special.Bessel |
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_bessel.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_bessel.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Bessel( | 15 | module Numeric.GSL.Special.Bessel( |
@@ -108,703 +106,303 @@ module Numeric.GSL.Special.Bessel( | |||
108 | import Foreign(Ptr) | 106 | import Foreign(Ptr) |
109 | import Foreign.C.Types(CInt) | 107 | import Foreign.C.Types(CInt) |
110 | import Numeric.GSL.Special.Internal | 108 | import Numeric.GSL.Special.Internal |
111 | |||
112 | -- | wrapper for int gsl_sf_bessel_J0_e(double x,gsl_sf_result* result); | ||
113 | -- | ||
114 | -- <http://www.google.com/search?q=gsl_sf_bessel_J0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
115 | bessel_J0_e :: Double -> (Double,Double) | 109 | bessel_J0_e :: Double -> (Double,Double) |
116 | bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x | 110 | bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x |
117 | foreign import ccall "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt | 111 | foreign import ccall "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt |
118 | |||
119 | -- | wrapper for double gsl_sf_bessel_J0(double x); | ||
120 | -- | ||
121 | -- <http://www.google.com/search?q=gsl_sf_bessel_J0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
122 | bessel_J0 :: Double -> Double | 112 | bessel_J0 :: Double -> Double |
123 | bessel_J0 = gsl_sf_bessel_J0 | 113 | bessel_J0 = gsl_sf_bessel_J0 |
124 | foreign import ccall "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double | 114 | foreign import ccall "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double |
125 | |||
126 | -- | wrapper for int gsl_sf_bessel_J1_e(double x,gsl_sf_result* result); | ||
127 | -- | ||
128 | -- <http://www.google.com/search?q=gsl_sf_bessel_J1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
129 | bessel_J1_e :: Double -> (Double,Double) | 115 | bessel_J1_e :: Double -> (Double,Double) |
130 | bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x | 116 | bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x |
131 | foreign import ccall "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt | 117 | foreign import ccall "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt |
132 | |||
133 | -- | wrapper for double gsl_sf_bessel_J1(double x); | ||
134 | -- | ||
135 | -- <http://www.google.com/search?q=gsl_sf_bessel_J1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
136 | bessel_J1 :: Double -> Double | 118 | bessel_J1 :: Double -> Double |
137 | bessel_J1 = gsl_sf_bessel_J1 | 119 | bessel_J1 = gsl_sf_bessel_J1 |
138 | foreign import ccall "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double | 120 | foreign import ccall "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double |
139 | |||
140 | -- | wrapper for int gsl_sf_bessel_Jn_e(int n,double x,gsl_sf_result* result); | ||
141 | -- | ||
142 | -- <http://www.google.com/search?q=gsl_sf_bessel_Jn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
143 | bessel_Jn_e :: CInt -> Double -> (Double,Double) | 121 | bessel_Jn_e :: CInt -> Double -> (Double,Double) |
144 | bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x | 122 | bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x |
145 | foreign import ccall "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt | 123 | foreign import ccall "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt |
146 | |||
147 | -- | wrapper for double gsl_sf_bessel_Jn(int n,double x); | ||
148 | -- | ||
149 | -- <http://www.google.com/search?q=gsl_sf_bessel_Jn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
150 | bessel_Jn :: CInt -> Double -> Double | 124 | bessel_Jn :: CInt -> Double -> Double |
151 | bessel_Jn = gsl_sf_bessel_Jn | 125 | bessel_Jn = gsl_sf_bessel_Jn |
152 | foreign import ccall "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double | 126 | foreign import ccall "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double |
153 | |||
154 | -- | wrapper for int gsl_sf_bessel_Jn_array(int nmin,int nmax,double x,double* result_array); | ||
155 | -- | ||
156 | -- <http://www.google.com/search?q=gsl_sf_bessel_Jn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
157 | bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 127 | bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
158 | bessel_Jn_array = gsl_sf_bessel_Jn_array | 128 | bessel_Jn_array = gsl_sf_bessel_Jn_array |
159 | foreign import ccall "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 129 | foreign import ccall "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
160 | |||
161 | -- | wrapper for int gsl_sf_bessel_Y0_e(double x,gsl_sf_result* result); | ||
162 | -- | ||
163 | -- <http://www.google.com/search?q=gsl_sf_bessel_Y0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
164 | bessel_Y0_e :: Double -> (Double,Double) | 130 | bessel_Y0_e :: Double -> (Double,Double) |
165 | bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x | 131 | bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x |
166 | foreign import ccall "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt | 132 | foreign import ccall "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt |
167 | |||
168 | -- | wrapper for double gsl_sf_bessel_Y0(double x); | ||
169 | -- | ||
170 | -- <http://www.google.com/search?q=gsl_sf_bessel_Y0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
171 | bessel_Y0 :: Double -> Double | 133 | bessel_Y0 :: Double -> Double |
172 | bessel_Y0 = gsl_sf_bessel_Y0 | 134 | bessel_Y0 = gsl_sf_bessel_Y0 |
173 | foreign import ccall "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double | 135 | foreign import ccall "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double |
174 | |||
175 | -- | wrapper for int gsl_sf_bessel_Y1_e(double x,gsl_sf_result* result); | ||
176 | -- | ||
177 | -- <http://www.google.com/search?q=gsl_sf_bessel_Y1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
178 | bessel_Y1_e :: Double -> (Double,Double) | 136 | bessel_Y1_e :: Double -> (Double,Double) |
179 | bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x | 137 | bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x |
180 | foreign import ccall "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt | 138 | foreign import ccall "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt |
181 | |||
182 | -- | wrapper for double gsl_sf_bessel_Y1(double x); | ||
183 | -- | ||
184 | -- <http://www.google.com/search?q=gsl_sf_bessel_Y1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
185 | bessel_Y1 :: Double -> Double | 139 | bessel_Y1 :: Double -> Double |
186 | bessel_Y1 = gsl_sf_bessel_Y1 | 140 | bessel_Y1 = gsl_sf_bessel_Y1 |
187 | foreign import ccall "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double | 141 | foreign import ccall "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double |
188 | |||
189 | -- | wrapper for int gsl_sf_bessel_Yn_e(int n,double x,gsl_sf_result* result); | ||
190 | -- | ||
191 | -- <http://www.google.com/search?q=gsl_sf_bessel_Yn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
192 | bessel_Yn_e :: CInt -> Double -> (Double,Double) | 142 | bessel_Yn_e :: CInt -> Double -> (Double,Double) |
193 | bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x | 143 | bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x |
194 | foreign import ccall "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt | 144 | foreign import ccall "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt |
195 | |||
196 | -- | wrapper for double gsl_sf_bessel_Yn(int n,double x); | ||
197 | -- | ||
198 | -- <http://www.google.com/search?q=gsl_sf_bessel_Yn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
199 | bessel_Yn :: CInt -> Double -> Double | 145 | bessel_Yn :: CInt -> Double -> Double |
200 | bessel_Yn = gsl_sf_bessel_Yn | 146 | bessel_Yn = gsl_sf_bessel_Yn |
201 | foreign import ccall "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double | 147 | foreign import ccall "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double |
202 | |||
203 | -- | wrapper for int gsl_sf_bessel_Yn_array(int nmin,int nmax,double x,double* result_array); | ||
204 | -- | ||
205 | -- <http://www.google.com/search?q=gsl_sf_bessel_Yn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
206 | bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 148 | bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
207 | bessel_Yn_array = gsl_sf_bessel_Yn_array | 149 | bessel_Yn_array = gsl_sf_bessel_Yn_array |
208 | foreign import ccall "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 150 | foreign import ccall "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
209 | |||
210 | -- | wrapper for int gsl_sf_bessel_I0_e(double x,gsl_sf_result* result); | ||
211 | -- | ||
212 | -- <http://www.google.com/search?q=gsl_sf_bessel_I0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
213 | bessel_I0_e :: Double -> (Double,Double) | 151 | bessel_I0_e :: Double -> (Double,Double) |
214 | bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x | 152 | bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x |
215 | foreign import ccall "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt | 153 | foreign import ccall "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt |
216 | |||
217 | -- | wrapper for double gsl_sf_bessel_I0(double x); | ||
218 | -- | ||
219 | -- <http://www.google.com/search?q=gsl_sf_bessel_I0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
220 | bessel_I0 :: Double -> Double | 154 | bessel_I0 :: Double -> Double |
221 | bessel_I0 = gsl_sf_bessel_I0 | 155 | bessel_I0 = gsl_sf_bessel_I0 |
222 | foreign import ccall "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double | 156 | foreign import ccall "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double |
223 | |||
224 | -- | wrapper for int gsl_sf_bessel_I1_e(double x,gsl_sf_result* result); | ||
225 | -- | ||
226 | -- <http://www.google.com/search?q=gsl_sf_bessel_I1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
227 | bessel_I1_e :: Double -> (Double,Double) | 157 | bessel_I1_e :: Double -> (Double,Double) |
228 | bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x | 158 | bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x |
229 | foreign import ccall "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt | 159 | foreign import ccall "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt |
230 | |||
231 | -- | wrapper for double gsl_sf_bessel_I1(double x); | ||
232 | -- | ||
233 | -- <http://www.google.com/search?q=gsl_sf_bessel_I1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
234 | bessel_I1 :: Double -> Double | 160 | bessel_I1 :: Double -> Double |
235 | bessel_I1 = gsl_sf_bessel_I1 | 161 | bessel_I1 = gsl_sf_bessel_I1 |
236 | foreign import ccall "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double | 162 | foreign import ccall "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double |
237 | |||
238 | -- | wrapper for int gsl_sf_bessel_In_e(int n,double x,gsl_sf_result* result); | ||
239 | -- | ||
240 | -- <http://www.google.com/search?q=gsl_sf_bessel_In_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
241 | bessel_In_e :: CInt -> Double -> (Double,Double) | 163 | bessel_In_e :: CInt -> Double -> (Double,Double) |
242 | bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x | 164 | bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x |
243 | foreign import ccall "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt | 165 | foreign import ccall "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt |
244 | |||
245 | -- | wrapper for double gsl_sf_bessel_In(int n,double x); | ||
246 | -- | ||
247 | -- <http://www.google.com/search?q=gsl_sf_bessel_In&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
248 | bessel_In :: CInt -> Double -> Double | 166 | bessel_In :: CInt -> Double -> Double |
249 | bessel_In = gsl_sf_bessel_In | 167 | bessel_In = gsl_sf_bessel_In |
250 | foreign import ccall "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double | 168 | foreign import ccall "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double |
251 | |||
252 | -- | wrapper for int gsl_sf_bessel_In_array(int nmin,int nmax,double x,double* result_array); | ||
253 | -- | ||
254 | -- <http://www.google.com/search?q=gsl_sf_bessel_In_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
255 | bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 169 | bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
256 | bessel_In_array = gsl_sf_bessel_In_array | 170 | bessel_In_array = gsl_sf_bessel_In_array |
257 | foreign import ccall "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 171 | foreign import ccall "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
258 | |||
259 | -- | wrapper for int gsl_sf_bessel_I0_scaled_e(double x,gsl_sf_result* result); | ||
260 | -- | ||
261 | -- <http://www.google.com/search?q=gsl_sf_bessel_I0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
262 | bessel_I0_scaled_e :: Double -> (Double,Double) | 172 | bessel_I0_scaled_e :: Double -> (Double,Double) |
263 | bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x | 173 | bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x |
264 | foreign import ccall "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt | 174 | foreign import ccall "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt |
265 | |||
266 | -- | wrapper for double gsl_sf_bessel_I0_scaled(double x); | ||
267 | -- | ||
268 | -- <http://www.google.com/search?q=gsl_sf_bessel_I0_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
269 | bessel_I0_scaled :: Double -> Double | 175 | bessel_I0_scaled :: Double -> Double |
270 | bessel_I0_scaled = gsl_sf_bessel_I0_scaled | 176 | bessel_I0_scaled = gsl_sf_bessel_I0_scaled |
271 | foreign import ccall "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double | 177 | foreign import ccall "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double |
272 | |||
273 | -- | wrapper for int gsl_sf_bessel_I1_scaled_e(double x,gsl_sf_result* result); | ||
274 | -- | ||
275 | -- <http://www.google.com/search?q=gsl_sf_bessel_I1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
276 | bessel_I1_scaled_e :: Double -> (Double,Double) | 178 | bessel_I1_scaled_e :: Double -> (Double,Double) |
277 | bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x | 179 | bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x |
278 | foreign import ccall "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt | 180 | foreign import ccall "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt |
279 | |||
280 | -- | wrapper for double gsl_sf_bessel_I1_scaled(double x); | ||
281 | -- | ||
282 | -- <http://www.google.com/search?q=gsl_sf_bessel_I1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
283 | bessel_I1_scaled :: Double -> Double | 181 | bessel_I1_scaled :: Double -> Double |
284 | bessel_I1_scaled = gsl_sf_bessel_I1_scaled | 182 | bessel_I1_scaled = gsl_sf_bessel_I1_scaled |
285 | foreign import ccall "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double | 183 | foreign import ccall "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double |
286 | |||
287 | -- | wrapper for int gsl_sf_bessel_In_scaled_e(int n,double x,gsl_sf_result* result); | ||
288 | -- | ||
289 | -- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
290 | bessel_In_scaled_e :: CInt -> Double -> (Double,Double) | 184 | bessel_In_scaled_e :: CInt -> Double -> (Double,Double) |
291 | bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x | 185 | bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x |
292 | foreign import ccall "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 186 | foreign import ccall "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
293 | |||
294 | -- | wrapper for double gsl_sf_bessel_In_scaled(int n,double x); | ||
295 | -- | ||
296 | -- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
297 | bessel_In_scaled :: CInt -> Double -> Double | 187 | bessel_In_scaled :: CInt -> Double -> Double |
298 | bessel_In_scaled = gsl_sf_bessel_In_scaled | 188 | bessel_In_scaled = gsl_sf_bessel_In_scaled |
299 | foreign import ccall "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double | 189 | foreign import ccall "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double |
300 | |||
301 | -- | wrapper for int gsl_sf_bessel_In_scaled_array(int nmin,int nmax,double x,double* result_array); | ||
302 | -- | ||
303 | -- <http://www.google.com/search?q=gsl_sf_bessel_In_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
304 | bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 190 | bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
305 | bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array | 191 | bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array |
306 | foreign import ccall "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 192 | foreign import ccall "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
307 | |||
308 | -- | wrapper for int gsl_sf_bessel_K0_e(double x,gsl_sf_result* result); | ||
309 | -- | ||
310 | -- <http://www.google.com/search?q=gsl_sf_bessel_K0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
311 | bessel_K0_e :: Double -> (Double,Double) | 193 | bessel_K0_e :: Double -> (Double,Double) |
312 | bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x | 194 | bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x |
313 | foreign import ccall "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt | 195 | foreign import ccall "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt |
314 | |||
315 | -- | wrapper for double gsl_sf_bessel_K0(double x); | ||
316 | -- | ||
317 | -- <http://www.google.com/search?q=gsl_sf_bessel_K0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
318 | bessel_K0 :: Double -> Double | 196 | bessel_K0 :: Double -> Double |
319 | bessel_K0 = gsl_sf_bessel_K0 | 197 | bessel_K0 = gsl_sf_bessel_K0 |
320 | foreign import ccall "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double | 198 | foreign import ccall "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double |
321 | |||
322 | -- | wrapper for int gsl_sf_bessel_K1_e(double x,gsl_sf_result* result); | ||
323 | -- | ||
324 | -- <http://www.google.com/search?q=gsl_sf_bessel_K1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
325 | bessel_K1_e :: Double -> (Double,Double) | 199 | bessel_K1_e :: Double -> (Double,Double) |
326 | bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x | 200 | bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x |
327 | foreign import ccall "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt | 201 | foreign import ccall "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt |
328 | |||
329 | -- | wrapper for double gsl_sf_bessel_K1(double x); | ||
330 | -- | ||
331 | -- <http://www.google.com/search?q=gsl_sf_bessel_K1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
332 | bessel_K1 :: Double -> Double | 202 | bessel_K1 :: Double -> Double |
333 | bessel_K1 = gsl_sf_bessel_K1 | 203 | bessel_K1 = gsl_sf_bessel_K1 |
334 | foreign import ccall "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double | 204 | foreign import ccall "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double |
335 | |||
336 | -- | wrapper for int gsl_sf_bessel_Kn_e(int n,double x,gsl_sf_result* result); | ||
337 | -- | ||
338 | -- <http://www.google.com/search?q=gsl_sf_bessel_Kn_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
339 | bessel_Kn_e :: CInt -> Double -> (Double,Double) | 205 | bessel_Kn_e :: CInt -> Double -> (Double,Double) |
340 | bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x | 206 | bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x |
341 | foreign import ccall "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt | 207 | foreign import ccall "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt |
342 | |||
343 | -- | wrapper for double gsl_sf_bessel_Kn(int n,double x); | ||
344 | -- | ||
345 | -- <http://www.google.com/search?q=gsl_sf_bessel_Kn&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
346 | bessel_Kn :: CInt -> Double -> Double | 208 | bessel_Kn :: CInt -> Double -> Double |
347 | bessel_Kn = gsl_sf_bessel_Kn | 209 | bessel_Kn = gsl_sf_bessel_Kn |
348 | foreign import ccall "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double | 210 | foreign import ccall "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double |
349 | |||
350 | -- | wrapper for int gsl_sf_bessel_Kn_array(int nmin,int nmax,double x,double* result_array); | ||
351 | -- | ||
352 | -- <http://www.google.com/search?q=gsl_sf_bessel_Kn_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
353 | bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 211 | bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
354 | bessel_Kn_array = gsl_sf_bessel_Kn_array | 212 | bessel_Kn_array = gsl_sf_bessel_Kn_array |
355 | foreign import ccall "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 213 | foreign import ccall "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
356 | |||
357 | -- | wrapper for int gsl_sf_bessel_K0_scaled_e(double x,gsl_sf_result* result); | ||
358 | -- | ||
359 | -- <http://www.google.com/search?q=gsl_sf_bessel_K0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
360 | bessel_K0_scaled_e :: Double -> (Double,Double) | 214 | bessel_K0_scaled_e :: Double -> (Double,Double) |
361 | bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x | 215 | bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x |
362 | foreign import ccall "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt | 216 | foreign import ccall "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt |
363 | |||
364 | -- | wrapper for double gsl_sf_bessel_K0_scaled(double x); | ||
365 | -- | ||
366 | -- <http://www.google.com/search?q=gsl_sf_bessel_K0_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
367 | bessel_K0_scaled :: Double -> Double | 217 | bessel_K0_scaled :: Double -> Double |
368 | bessel_K0_scaled = gsl_sf_bessel_K0_scaled | 218 | bessel_K0_scaled = gsl_sf_bessel_K0_scaled |
369 | foreign import ccall "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double | 219 | foreign import ccall "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double |
370 | |||
371 | -- | wrapper for int gsl_sf_bessel_K1_scaled_e(double x,gsl_sf_result* result); | ||
372 | -- | ||
373 | -- <http://www.google.com/search?q=gsl_sf_bessel_K1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
374 | bessel_K1_scaled_e :: Double -> (Double,Double) | 220 | bessel_K1_scaled_e :: Double -> (Double,Double) |
375 | bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x | 221 | bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x |
376 | foreign import ccall "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt | 222 | foreign import ccall "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt |
377 | |||
378 | -- | wrapper for double gsl_sf_bessel_K1_scaled(double x); | ||
379 | -- | ||
380 | -- <http://www.google.com/search?q=gsl_sf_bessel_K1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
381 | bessel_K1_scaled :: Double -> Double | 223 | bessel_K1_scaled :: Double -> Double |
382 | bessel_K1_scaled = gsl_sf_bessel_K1_scaled | 224 | bessel_K1_scaled = gsl_sf_bessel_K1_scaled |
383 | foreign import ccall "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double | 225 | foreign import ccall "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double |
384 | |||
385 | -- | wrapper for int gsl_sf_bessel_Kn_scaled_e(int n,double x,gsl_sf_result* result); | ||
386 | -- | ||
387 | -- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
388 | bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double) | 226 | bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double) |
389 | bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x | 227 | bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x |
390 | foreign import ccall "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 228 | foreign import ccall "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
391 | |||
392 | -- | wrapper for double gsl_sf_bessel_Kn_scaled(int n,double x); | ||
393 | -- | ||
394 | -- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
395 | bessel_Kn_scaled :: CInt -> Double -> Double | 229 | bessel_Kn_scaled :: CInt -> Double -> Double |
396 | bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled | 230 | bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled |
397 | foreign import ccall "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double | 231 | foreign import ccall "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double |
398 | |||
399 | -- | wrapper for int gsl_sf_bessel_Kn_scaled_array(int nmin,int nmax,double x,double* result_array); | ||
400 | -- | ||
401 | -- <http://www.google.com/search?q=gsl_sf_bessel_Kn_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
402 | bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 232 | bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
403 | bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array | 233 | bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array |
404 | foreign import ccall "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 234 | foreign import ccall "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
405 | |||
406 | -- | wrapper for int gsl_sf_bessel_j0_e(double x,gsl_sf_result* result); | ||
407 | -- | ||
408 | -- <http://www.google.com/search?q=gsl_sf_bessel_j0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
409 | bessel_j0_e :: Double -> (Double,Double) | 235 | bessel_j0_e :: Double -> (Double,Double) |
410 | bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x | 236 | bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x |
411 | foreign import ccall "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt | 237 | foreign import ccall "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt |
412 | |||
413 | -- | wrapper for double gsl_sf_bessel_j0(double x); | ||
414 | -- | ||
415 | -- <http://www.google.com/search?q=gsl_sf_bessel_j0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
416 | bessel_j0 :: Double -> Double | 238 | bessel_j0 :: Double -> Double |
417 | bessel_j0 = gsl_sf_bessel_j0 | 239 | bessel_j0 = gsl_sf_bessel_j0 |
418 | foreign import ccall "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double | 240 | foreign import ccall "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double |
419 | |||
420 | -- | wrapper for int gsl_sf_bessel_j1_e(double x,gsl_sf_result* result); | ||
421 | -- | ||
422 | -- <http://www.google.com/search?q=gsl_sf_bessel_j1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
423 | bessel_j1_e :: Double -> (Double,Double) | 241 | bessel_j1_e :: Double -> (Double,Double) |
424 | bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x | 242 | bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x |
425 | foreign import ccall "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt | 243 | foreign import ccall "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt |
426 | |||
427 | -- | wrapper for double gsl_sf_bessel_j1(double x); | ||
428 | -- | ||
429 | -- <http://www.google.com/search?q=gsl_sf_bessel_j1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
430 | bessel_j1 :: Double -> Double | 244 | bessel_j1 :: Double -> Double |
431 | bessel_j1 = gsl_sf_bessel_j1 | 245 | bessel_j1 = gsl_sf_bessel_j1 |
432 | foreign import ccall "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double | 246 | foreign import ccall "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double |
433 | |||
434 | -- | wrapper for int gsl_sf_bessel_j2_e(double x,gsl_sf_result* result); | ||
435 | -- | ||
436 | -- <http://www.google.com/search?q=gsl_sf_bessel_j2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
437 | bessel_j2_e :: Double -> (Double,Double) | 247 | bessel_j2_e :: Double -> (Double,Double) |
438 | bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x | 248 | bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x |
439 | foreign import ccall "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt | 249 | foreign import ccall "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt |
440 | |||
441 | -- | wrapper for double gsl_sf_bessel_j2(double x); | ||
442 | -- | ||
443 | -- <http://www.google.com/search?q=gsl_sf_bessel_j2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
444 | bessel_j2 :: Double -> Double | 250 | bessel_j2 :: Double -> Double |
445 | bessel_j2 = gsl_sf_bessel_j2 | 251 | bessel_j2 = gsl_sf_bessel_j2 |
446 | foreign import ccall "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double | 252 | foreign import ccall "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double |
447 | |||
448 | -- | wrapper for int gsl_sf_bessel_jl_e(int l,double x,gsl_sf_result* result); | ||
449 | -- | ||
450 | -- <http://www.google.com/search?q=gsl_sf_bessel_jl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
451 | bessel_jl_e :: CInt -> Double -> (Double,Double) | 253 | bessel_jl_e :: CInt -> Double -> (Double,Double) |
452 | bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x | 254 | bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x |
453 | foreign import ccall "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt | 255 | foreign import ccall "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt |
454 | |||
455 | -- | wrapper for double gsl_sf_bessel_jl(int l,double x); | ||
456 | -- | ||
457 | -- <http://www.google.com/search?q=gsl_sf_bessel_jl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
458 | bessel_jl :: CInt -> Double -> Double | 256 | bessel_jl :: CInt -> Double -> Double |
459 | bessel_jl = gsl_sf_bessel_jl | 257 | bessel_jl = gsl_sf_bessel_jl |
460 | foreign import ccall "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double | 258 | foreign import ccall "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double |
461 | |||
462 | -- | wrapper for int gsl_sf_bessel_jl_array(int lmax,double x,double* result_array); | ||
463 | -- | ||
464 | -- <http://www.google.com/search?q=gsl_sf_bessel_jl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
465 | bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt | 259 | bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt |
466 | bessel_jl_array = gsl_sf_bessel_jl_array | 260 | bessel_jl_array = gsl_sf_bessel_jl_array |
467 | foreign import ccall "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt | 261 | foreign import ccall "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt |
468 | |||
469 | -- | wrapper for int gsl_sf_bessel_jl_steed_array(int lmax,double x,double* jl_x_array); | ||
470 | -- | ||
471 | -- <http://www.google.com/search?q=gsl_sf_bessel_jl_steed_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
472 | bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt | 262 | bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt |
473 | bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array | 263 | bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array |
474 | foreign import ccall "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt | 264 | foreign import ccall "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt |
475 | |||
476 | -- | wrapper for int gsl_sf_bessel_y0_e(double x,gsl_sf_result* result); | ||
477 | -- | ||
478 | -- <http://www.google.com/search?q=gsl_sf_bessel_y0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
479 | bessel_y0_e :: Double -> (Double,Double) | 265 | bessel_y0_e :: Double -> (Double,Double) |
480 | bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x | 266 | bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x |
481 | foreign import ccall "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt | 267 | foreign import ccall "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt |
482 | |||
483 | -- | wrapper for double gsl_sf_bessel_y0(double x); | ||
484 | -- | ||
485 | -- <http://www.google.com/search?q=gsl_sf_bessel_y0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
486 | bessel_y0 :: Double -> Double | 268 | bessel_y0 :: Double -> Double |
487 | bessel_y0 = gsl_sf_bessel_y0 | 269 | bessel_y0 = gsl_sf_bessel_y0 |
488 | foreign import ccall "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double | 270 | foreign import ccall "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double |
489 | |||
490 | -- | wrapper for int gsl_sf_bessel_y1_e(double x,gsl_sf_result* result); | ||
491 | -- | ||
492 | -- <http://www.google.com/search?q=gsl_sf_bessel_y1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
493 | bessel_y1_e :: Double -> (Double,Double) | 271 | bessel_y1_e :: Double -> (Double,Double) |
494 | bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x | 272 | bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x |
495 | foreign import ccall "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt | 273 | foreign import ccall "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt |
496 | |||
497 | -- | wrapper for double gsl_sf_bessel_y1(double x); | ||
498 | -- | ||
499 | -- <http://www.google.com/search?q=gsl_sf_bessel_y1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
500 | bessel_y1 :: Double -> Double | 274 | bessel_y1 :: Double -> Double |
501 | bessel_y1 = gsl_sf_bessel_y1 | 275 | bessel_y1 = gsl_sf_bessel_y1 |
502 | foreign import ccall "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double | 276 | foreign import ccall "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double |
503 | |||
504 | -- | wrapper for int gsl_sf_bessel_y2_e(double x,gsl_sf_result* result); | ||
505 | -- | ||
506 | -- <http://www.google.com/search?q=gsl_sf_bessel_y2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
507 | bessel_y2_e :: Double -> (Double,Double) | 277 | bessel_y2_e :: Double -> (Double,Double) |
508 | bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x | 278 | bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x |
509 | foreign import ccall "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt | 279 | foreign import ccall "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt |
510 | |||
511 | -- | wrapper for double gsl_sf_bessel_y2(double x); | ||
512 | -- | ||
513 | -- <http://www.google.com/search?q=gsl_sf_bessel_y2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
514 | bessel_y2 :: Double -> Double | 280 | bessel_y2 :: Double -> Double |
515 | bessel_y2 = gsl_sf_bessel_y2 | 281 | bessel_y2 = gsl_sf_bessel_y2 |
516 | foreign import ccall "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double | 282 | foreign import ccall "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double |
517 | |||
518 | -- | wrapper for int gsl_sf_bessel_yl_e(int l,double x,gsl_sf_result* result); | ||
519 | -- | ||
520 | -- <http://www.google.com/search?q=gsl_sf_bessel_yl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
521 | bessel_yl_e :: CInt -> Double -> (Double,Double) | 283 | bessel_yl_e :: CInt -> Double -> (Double,Double) |
522 | bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x | 284 | bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x |
523 | foreign import ccall "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt | 285 | foreign import ccall "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt |
524 | |||
525 | -- | wrapper for double gsl_sf_bessel_yl(int l,double x); | ||
526 | -- | ||
527 | -- <http://www.google.com/search?q=gsl_sf_bessel_yl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
528 | bessel_yl :: CInt -> Double -> Double | 286 | bessel_yl :: CInt -> Double -> Double |
529 | bessel_yl = gsl_sf_bessel_yl | 287 | bessel_yl = gsl_sf_bessel_yl |
530 | foreign import ccall "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double | 288 | foreign import ccall "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double |
531 | |||
532 | -- | wrapper for int gsl_sf_bessel_yl_array(int lmax,double x,double* result_array); | ||
533 | -- | ||
534 | -- <http://www.google.com/search?q=gsl_sf_bessel_yl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
535 | bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt | 289 | bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt |
536 | bessel_yl_array = gsl_sf_bessel_yl_array | 290 | bessel_yl_array = gsl_sf_bessel_yl_array |
537 | foreign import ccall "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt | 291 | foreign import ccall "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt |
538 | |||
539 | -- | wrapper for int gsl_sf_bessel_i0_scaled_e(double x,gsl_sf_result* result); | ||
540 | -- | ||
541 | -- <http://www.google.com/search?q=gsl_sf_bessel_i0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
542 | bessel_i0_scaled_e :: Double -> (Double,Double) | 292 | bessel_i0_scaled_e :: Double -> (Double,Double) |
543 | bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x | 293 | bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x |
544 | foreign import ccall "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt | 294 | foreign import ccall "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt |
545 | |||
546 | -- | wrapper for double gsl_sf_bessel_i0_scaled(double x); | ||
547 | -- | ||
548 | -- <http://www.google.com/search?q=gsl_sf_bessel_i0_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
549 | bessel_i0_scaled :: Double -> Double | 295 | bessel_i0_scaled :: Double -> Double |
550 | bessel_i0_scaled = gsl_sf_bessel_i0_scaled | 296 | bessel_i0_scaled = gsl_sf_bessel_i0_scaled |
551 | foreign import ccall "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double | 297 | foreign import ccall "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double |
552 | |||
553 | -- | wrapper for int gsl_sf_bessel_i1_scaled_e(double x,gsl_sf_result* result); | ||
554 | -- | ||
555 | -- <http://www.google.com/search?q=gsl_sf_bessel_i1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
556 | bessel_i1_scaled_e :: Double -> (Double,Double) | 298 | bessel_i1_scaled_e :: Double -> (Double,Double) |
557 | bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x | 299 | bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x |
558 | foreign import ccall "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt | 300 | foreign import ccall "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt |
559 | |||
560 | -- | wrapper for double gsl_sf_bessel_i1_scaled(double x); | ||
561 | -- | ||
562 | -- <http://www.google.com/search?q=gsl_sf_bessel_i1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
563 | bessel_i1_scaled :: Double -> Double | 301 | bessel_i1_scaled :: Double -> Double |
564 | bessel_i1_scaled = gsl_sf_bessel_i1_scaled | 302 | bessel_i1_scaled = gsl_sf_bessel_i1_scaled |
565 | foreign import ccall "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double | 303 | foreign import ccall "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double |
566 | |||
567 | -- | wrapper for int gsl_sf_bessel_i2_scaled_e(double x,gsl_sf_result* result); | ||
568 | -- | ||
569 | -- <http://www.google.com/search?q=gsl_sf_bessel_i2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
570 | bessel_i2_scaled_e :: Double -> (Double,Double) | 304 | bessel_i2_scaled_e :: Double -> (Double,Double) |
571 | bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x | 305 | bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x |
572 | foreign import ccall "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt | 306 | foreign import ccall "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt |
573 | |||
574 | -- | wrapper for double gsl_sf_bessel_i2_scaled(double x); | ||
575 | -- | ||
576 | -- <http://www.google.com/search?q=gsl_sf_bessel_i2_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
577 | bessel_i2_scaled :: Double -> Double | 307 | bessel_i2_scaled :: Double -> Double |
578 | bessel_i2_scaled = gsl_sf_bessel_i2_scaled | 308 | bessel_i2_scaled = gsl_sf_bessel_i2_scaled |
579 | foreign import ccall "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double | 309 | foreign import ccall "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double |
580 | |||
581 | -- | wrapper for int gsl_sf_bessel_il_scaled_e(int l,double x,gsl_sf_result* result); | ||
582 | -- | ||
583 | -- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
584 | bessel_il_scaled_e :: CInt -> Double -> (Double,Double) | 310 | bessel_il_scaled_e :: CInt -> Double -> (Double,Double) |
585 | bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x | 311 | bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x |
586 | foreign import ccall "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 312 | foreign import ccall "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
587 | |||
588 | -- | wrapper for double gsl_sf_bessel_il_scaled(int l,double x); | ||
589 | -- | ||
590 | -- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
591 | bessel_il_scaled :: CInt -> Double -> Double | 313 | bessel_il_scaled :: CInt -> Double -> Double |
592 | bessel_il_scaled = gsl_sf_bessel_il_scaled | 314 | bessel_il_scaled = gsl_sf_bessel_il_scaled |
593 | foreign import ccall "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double | 315 | foreign import ccall "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double |
594 | |||
595 | -- | wrapper for int gsl_sf_bessel_il_scaled_array(int lmax,double x,double* result_array); | ||
596 | -- | ||
597 | -- <http://www.google.com/search?q=gsl_sf_bessel_il_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
598 | bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 316 | bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
599 | bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array | 317 | bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array |
600 | foreign import ccall "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 318 | foreign import ccall "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
601 | |||
602 | -- | wrapper for int gsl_sf_bessel_k0_scaled_e(double x,gsl_sf_result* result); | ||
603 | -- | ||
604 | -- <http://www.google.com/search?q=gsl_sf_bessel_k0_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
605 | bessel_k0_scaled_e :: Double -> (Double,Double) | 319 | bessel_k0_scaled_e :: Double -> (Double,Double) |
606 | bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x | 320 | bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x |
607 | foreign import ccall "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt | 321 | foreign import ccall "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt |
608 | |||
609 | -- | wrapper for double gsl_sf_bessel_k0_scaled(double x); | ||
610 | -- | ||
611 | -- <http://www.google.com/search?q=gsl_sf_bessel_k0_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
612 | bessel_k0_scaled :: Double -> Double | 322 | bessel_k0_scaled :: Double -> Double |
613 | bessel_k0_scaled = gsl_sf_bessel_k0_scaled | 323 | bessel_k0_scaled = gsl_sf_bessel_k0_scaled |
614 | foreign import ccall "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double | 324 | foreign import ccall "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double |
615 | |||
616 | -- | wrapper for int gsl_sf_bessel_k1_scaled_e(double x,gsl_sf_result* result); | ||
617 | -- | ||
618 | -- <http://www.google.com/search?q=gsl_sf_bessel_k1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
619 | bessel_k1_scaled_e :: Double -> (Double,Double) | 325 | bessel_k1_scaled_e :: Double -> (Double,Double) |
620 | bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x | 326 | bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x |
621 | foreign import ccall "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt | 327 | foreign import ccall "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt |
622 | |||
623 | -- | wrapper for double gsl_sf_bessel_k1_scaled(double x); | ||
624 | -- | ||
625 | -- <http://www.google.com/search?q=gsl_sf_bessel_k1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
626 | bessel_k1_scaled :: Double -> Double | 328 | bessel_k1_scaled :: Double -> Double |
627 | bessel_k1_scaled = gsl_sf_bessel_k1_scaled | 329 | bessel_k1_scaled = gsl_sf_bessel_k1_scaled |
628 | foreign import ccall "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double | 330 | foreign import ccall "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double |
629 | |||
630 | -- | wrapper for int gsl_sf_bessel_k2_scaled_e(double x,gsl_sf_result* result); | ||
631 | -- | ||
632 | -- <http://www.google.com/search?q=gsl_sf_bessel_k2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
633 | bessel_k2_scaled_e :: Double -> (Double,Double) | 331 | bessel_k2_scaled_e :: Double -> (Double,Double) |
634 | bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x | 332 | bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x |
635 | foreign import ccall "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt | 333 | foreign import ccall "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt |
636 | |||
637 | -- | wrapper for double gsl_sf_bessel_k2_scaled(double x); | ||
638 | -- | ||
639 | -- <http://www.google.com/search?q=gsl_sf_bessel_k2_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
640 | bessel_k2_scaled :: Double -> Double | 334 | bessel_k2_scaled :: Double -> Double |
641 | bessel_k2_scaled = gsl_sf_bessel_k2_scaled | 335 | bessel_k2_scaled = gsl_sf_bessel_k2_scaled |
642 | foreign import ccall "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double | 336 | foreign import ccall "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double |
643 | |||
644 | -- | wrapper for int gsl_sf_bessel_kl_scaled_e(int l,double x,gsl_sf_result* result); | ||
645 | -- | ||
646 | -- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
647 | bessel_kl_scaled_e :: CInt -> Double -> (Double,Double) | 337 | bessel_kl_scaled_e :: CInt -> Double -> (Double,Double) |
648 | bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x | 338 | bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x |
649 | foreign import ccall "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 339 | foreign import ccall "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
650 | |||
651 | -- | wrapper for double gsl_sf_bessel_kl_scaled(int l,double x); | ||
652 | -- | ||
653 | -- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
654 | bessel_kl_scaled :: CInt -> Double -> Double | 340 | bessel_kl_scaled :: CInt -> Double -> Double |
655 | bessel_kl_scaled = gsl_sf_bessel_kl_scaled | 341 | bessel_kl_scaled = gsl_sf_bessel_kl_scaled |
656 | foreign import ccall "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double | 342 | foreign import ccall "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double |
657 | |||
658 | -- | wrapper for int gsl_sf_bessel_kl_scaled_array(int lmax,double x,double* result_array); | ||
659 | -- | ||
660 | -- <http://www.google.com/search?q=gsl_sf_bessel_kl_scaled_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
661 | bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 343 | bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
662 | bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array | 344 | bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array |
663 | foreign import ccall "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 345 | foreign import ccall "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
664 | |||
665 | -- | wrapper for int gsl_sf_bessel_Jnu_e(double nu,double x,gsl_sf_result* result); | ||
666 | -- | ||
667 | -- <http://www.google.com/search?q=gsl_sf_bessel_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
668 | bessel_Jnu_e :: Double -> Double -> (Double,Double) | 346 | bessel_Jnu_e :: Double -> Double -> (Double,Double) |
669 | bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x | 347 | bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x |
670 | foreign import ccall "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt | 348 | foreign import ccall "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt |
671 | |||
672 | -- | wrapper for double gsl_sf_bessel_Jnu(double nu,double x); | ||
673 | -- | ||
674 | -- <http://www.google.com/search?q=gsl_sf_bessel_Jnu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
675 | bessel_Jnu :: Double -> Double -> Double | 349 | bessel_Jnu :: Double -> Double -> Double |
676 | bessel_Jnu = gsl_sf_bessel_Jnu | 350 | bessel_Jnu = gsl_sf_bessel_Jnu |
677 | foreign import ccall "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double | 351 | foreign import ccall "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double |
678 | |||
679 | -- | wrapper for int gsl_sf_bessel_Ynu_e(double nu,double x,gsl_sf_result* result); | ||
680 | -- | ||
681 | -- <http://www.google.com/search?q=gsl_sf_bessel_Ynu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
682 | bessel_Ynu_e :: Double -> Double -> (Double,Double) | 352 | bessel_Ynu_e :: Double -> Double -> (Double,Double) |
683 | bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x | 353 | bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x |
684 | foreign import ccall "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt | 354 | foreign import ccall "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt |
685 | |||
686 | -- | wrapper for double gsl_sf_bessel_Ynu(double nu,double x); | ||
687 | -- | ||
688 | -- <http://www.google.com/search?q=gsl_sf_bessel_Ynu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
689 | bessel_Ynu :: Double -> Double -> Double | 355 | bessel_Ynu :: Double -> Double -> Double |
690 | bessel_Ynu = gsl_sf_bessel_Ynu | 356 | bessel_Ynu = gsl_sf_bessel_Ynu |
691 | foreign import ccall "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double | 357 | foreign import ccall "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double |
692 | |||
693 | -- | wrapper for int gsl_sf_bessel_sequence_Jnu_e(double nu,gsl_mode_t mode,size_t size,double* v); | ||
694 | -- | ||
695 | -- <http://www.google.com/search?q=gsl_sf_bessel_sequence_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
696 | bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt | 358 | bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt |
697 | bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v | 359 | bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v |
698 | foreign import ccall "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt | 360 | foreign import ccall "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt |
699 | |||
700 | -- | wrapper for int gsl_sf_bessel_Inu_scaled_e(double nu,double x,gsl_sf_result* result); | ||
701 | -- | ||
702 | -- <http://www.google.com/search?q=gsl_sf_bessel_Inu_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
703 | bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) | 361 | bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) |
704 | bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x | 362 | bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x |
705 | foreign import ccall "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt | 363 | foreign import ccall "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt |
706 | |||
707 | -- | wrapper for double gsl_sf_bessel_Inu_scaled(double nu,double x); | ||
708 | -- | ||
709 | -- <http://www.google.com/search?q=gsl_sf_bessel_Inu_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
710 | bessel_Inu_scaled :: Double -> Double -> Double | 364 | bessel_Inu_scaled :: Double -> Double -> Double |
711 | bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled | 365 | bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled |
712 | foreign import ccall "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double | 366 | foreign import ccall "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double |
713 | |||
714 | -- | wrapper for int gsl_sf_bessel_Inu_e(double nu,double x,gsl_sf_result* result); | ||
715 | -- | ||
716 | -- <http://www.google.com/search?q=gsl_sf_bessel_Inu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
717 | bessel_Inu_e :: Double -> Double -> (Double,Double) | 367 | bessel_Inu_e :: Double -> Double -> (Double,Double) |
718 | bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x | 368 | bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x |
719 | foreign import ccall "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt | 369 | foreign import ccall "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt |
720 | |||
721 | -- | wrapper for double gsl_sf_bessel_Inu(double nu,double x); | ||
722 | -- | ||
723 | -- <http://www.google.com/search?q=gsl_sf_bessel_Inu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
724 | bessel_Inu :: Double -> Double -> Double | 370 | bessel_Inu :: Double -> Double -> Double |
725 | bessel_Inu = gsl_sf_bessel_Inu | 371 | bessel_Inu = gsl_sf_bessel_Inu |
726 | foreign import ccall "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double | 372 | foreign import ccall "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double |
727 | |||
728 | -- | wrapper for int gsl_sf_bessel_Knu_scaled_e(double nu,double x,gsl_sf_result* result); | ||
729 | -- | ||
730 | -- <http://www.google.com/search?q=gsl_sf_bessel_Knu_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
731 | bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) | 373 | bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) |
732 | bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x | 374 | bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x |
733 | foreign import ccall "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt | 375 | foreign import ccall "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt |
734 | |||
735 | -- | wrapper for double gsl_sf_bessel_Knu_scaled(double nu,double x); | ||
736 | -- | ||
737 | -- <http://www.google.com/search?q=gsl_sf_bessel_Knu_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
738 | bessel_Knu_scaled :: Double -> Double -> Double | 376 | bessel_Knu_scaled :: Double -> Double -> Double |
739 | bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled | 377 | bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled |
740 | foreign import ccall "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double | 378 | foreign import ccall "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double |
741 | |||
742 | -- | wrapper for int gsl_sf_bessel_Knu_e(double nu,double x,gsl_sf_result* result); | ||
743 | -- | ||
744 | -- <http://www.google.com/search?q=gsl_sf_bessel_Knu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
745 | bessel_Knu_e :: Double -> Double -> (Double,Double) | 379 | bessel_Knu_e :: Double -> Double -> (Double,Double) |
746 | bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x | 380 | bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x |
747 | foreign import ccall "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt | 381 | foreign import ccall "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt |
748 | |||
749 | -- | wrapper for double gsl_sf_bessel_Knu(double nu,double x); | ||
750 | -- | ||
751 | -- <http://www.google.com/search?q=gsl_sf_bessel_Knu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
752 | bessel_Knu :: Double -> Double -> Double | 382 | bessel_Knu :: Double -> Double -> Double |
753 | bessel_Knu = gsl_sf_bessel_Knu | 383 | bessel_Knu = gsl_sf_bessel_Knu |
754 | foreign import ccall "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double | 384 | foreign import ccall "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double |
755 | |||
756 | -- | wrapper for int gsl_sf_bessel_lnKnu_e(double nu,double x,gsl_sf_result* result); | ||
757 | -- | ||
758 | -- <http://www.google.com/search?q=gsl_sf_bessel_lnKnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
759 | bessel_lnKnu_e :: Double -> Double -> (Double,Double) | 385 | bessel_lnKnu_e :: Double -> Double -> (Double,Double) |
760 | bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x | 386 | bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x |
761 | foreign import ccall "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt | 387 | foreign import ccall "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt |
762 | |||
763 | -- | wrapper for double gsl_sf_bessel_lnKnu(double nu,double x); | ||
764 | -- | ||
765 | -- <http://www.google.com/search?q=gsl_sf_bessel_lnKnu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
766 | bessel_lnKnu :: Double -> Double -> Double | 388 | bessel_lnKnu :: Double -> Double -> Double |
767 | bessel_lnKnu = gsl_sf_bessel_lnKnu | 389 | bessel_lnKnu = gsl_sf_bessel_lnKnu |
768 | foreign import ccall "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double | 390 | foreign import ccall "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double |
769 | |||
770 | -- | wrapper for int gsl_sf_bessel_zero_J0_e(int s,gsl_sf_result* result); | ||
771 | -- | ||
772 | -- <http://www.google.com/search?q=gsl_sf_bessel_zero_J0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
773 | bessel_zero_J0_e :: CInt -> (Double,Double) | 391 | bessel_zero_J0_e :: CInt -> (Double,Double) |
774 | bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s | 392 | bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s |
775 | foreign import ccall "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt | 393 | foreign import ccall "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt |
776 | |||
777 | -- | wrapper for double gsl_sf_bessel_zero_J0(int s); | ||
778 | -- | ||
779 | -- <http://www.google.com/search?q=gsl_sf_bessel_zero_J0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
780 | bessel_zero_J0 :: CInt -> Double | 394 | bessel_zero_J0 :: CInt -> Double |
781 | bessel_zero_J0 = gsl_sf_bessel_zero_J0 | 395 | bessel_zero_J0 = gsl_sf_bessel_zero_J0 |
782 | foreign import ccall "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double | 396 | foreign import ccall "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double |
783 | |||
784 | -- | wrapper for int gsl_sf_bessel_zero_J1_e(int s,gsl_sf_result* result); | ||
785 | -- | ||
786 | -- <http://www.google.com/search?q=gsl_sf_bessel_zero_J1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
787 | bessel_zero_J1_e :: CInt -> (Double,Double) | 397 | bessel_zero_J1_e :: CInt -> (Double,Double) |
788 | bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s | 398 | bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s |
789 | foreign import ccall "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt | 399 | foreign import ccall "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt |
790 | |||
791 | -- | wrapper for double gsl_sf_bessel_zero_J1(int s); | ||
792 | -- | ||
793 | -- <http://www.google.com/search?q=gsl_sf_bessel_zero_J1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
794 | bessel_zero_J1 :: CInt -> Double | 400 | bessel_zero_J1 :: CInt -> Double |
795 | bessel_zero_J1 = gsl_sf_bessel_zero_J1 | 401 | bessel_zero_J1 = gsl_sf_bessel_zero_J1 |
796 | foreign import ccall "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double | 402 | foreign import ccall "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double |
797 | |||
798 | -- | wrapper for int gsl_sf_bessel_zero_Jnu_e(double nu,int s,gsl_sf_result* result); | ||
799 | -- | ||
800 | -- <http://www.google.com/search?q=gsl_sf_bessel_zero_Jnu_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
801 | bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double) | 403 | bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double) |
802 | bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s | 404 | bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s |
803 | foreign import ccall "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt | 405 | foreign import ccall "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt |
804 | |||
805 | -- | wrapper for double gsl_sf_bessel_zero_Jnu(double nu,int s); | ||
806 | -- | ||
807 | -- <http://www.google.com/search?q=gsl_sf_bessel_zero_Jnu&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
808 | bessel_zero_Jnu :: Double -> CInt -> Double | 406 | bessel_zero_Jnu :: Double -> CInt -> Double |
809 | bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu | 407 | bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu |
810 | foreign import ccall "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double | 408 | foreign import ccall "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double |
diff --git a/lib/Numeric/GSL/Special/Clausen.hs b/lib/Numeric/GSL/Special/Clausen.hs index 4ebf0e2..0c0b70c 100644 --- a/lib/Numeric/GSL/Special/Clausen.hs +++ b/lib/Numeric/GSL/Special/Clausen.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Clausen | 3 | -- Module : Numeric.GSL.Special.Clausen |
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_clausen.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_clausen.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Clausen( | 15 | module Numeric.GSL.Special.Clausen( |
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Clausen( | |||
22 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
25 | |||
26 | -- | wrapper for int gsl_sf_clausen_e(double x,gsl_sf_result* result); | ||
27 | -- | ||
28 | -- <http://www.google.com/search?q=gsl_sf_clausen_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
29 | clausen_e :: Double -> (Double,Double) | 23 | clausen_e :: Double -> (Double,Double) |
30 | clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x | 24 | clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x |
31 | foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt | 25 | foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt |
32 | |||
33 | -- | wrapper for double gsl_sf_clausen(double x); | ||
34 | -- | ||
35 | -- <http://www.google.com/search?q=gsl_sf_clausen&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
36 | clausen :: Double -> Double | 26 | clausen :: Double -> Double |
37 | clausen = gsl_sf_clausen | 27 | clausen = gsl_sf_clausen |
38 | foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double | 28 | foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Coulomb.hs b/lib/Numeric/GSL/Special/Coulomb.hs index 2b89f03..7d30cd5 100644 --- a/lib/Numeric/GSL/Special/Coulomb.hs +++ b/lib/Numeric/GSL/Special/Coulomb.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Coulomb | 3 | -- Module : Numeric.GSL.Special.Coulomb |
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_coulomb.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_coulomb.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Coulomb( | 15 | module Numeric.GSL.Special.Coulomb( |
@@ -25,80 +23,36 @@ module Numeric.GSL.Special.Coulomb( | |||
25 | import Foreign(Ptr) | 23 | import Foreign(Ptr) |
26 | import Foreign.C.Types(CInt) | 24 | import Foreign.C.Types(CInt) |
27 | import Numeric.GSL.Special.Internal | 25 | import Numeric.GSL.Special.Internal |
28 | |||
29 | -- | wrapper for int gsl_sf_hydrogenicR_1_e(double Z,double r,gsl_sf_result* result); | ||
30 | -- | ||
31 | -- <http://www.google.com/search?q=gsl_sf_hydrogenicR_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
32 | hydrogenicR_1_e :: Double -> Double -> (Double,Double) | 26 | hydrogenicR_1_e :: Double -> Double -> (Double,Double) |
33 | hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r | 27 | hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r |
34 | foreign import ccall "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt | 28 | foreign import ccall "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt |
35 | |||
36 | -- | wrapper for double gsl_sf_hydrogenicR_1(double Z,double r); | ||
37 | -- | ||
38 | -- <http://www.google.com/search?q=gsl_sf_hydrogenicR_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
39 | hydrogenicR_1 :: Double -> Double -> Double | 29 | hydrogenicR_1 :: Double -> Double -> Double |
40 | hydrogenicR_1 = gsl_sf_hydrogenicR_1 | 30 | hydrogenicR_1 = gsl_sf_hydrogenicR_1 |
41 | foreign import ccall "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double | 31 | foreign import ccall "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double |
42 | |||
43 | -- | wrapper for int gsl_sf_hydrogenicR_e(int n,int l,double Z,double r,gsl_sf_result* result); | ||
44 | -- | ||
45 | -- <http://www.google.com/search?q=gsl_sf_hydrogenicR_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
46 | hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) | 32 | hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) |
47 | hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r | 33 | hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r |
48 | foreign import ccall "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt | 34 | foreign import ccall "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt |
49 | |||
50 | -- | wrapper for double gsl_sf_hydrogenicR(int n,int l,double Z,double r); | ||
51 | -- | ||
52 | -- <http://www.google.com/search?q=gsl_sf_hydrogenicR&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
53 | hydrogenicR :: CInt -> CInt -> Double -> Double -> Double | 35 | hydrogenicR :: CInt -> CInt -> Double -> Double -> Double |
54 | hydrogenicR = gsl_sf_hydrogenicR | 36 | hydrogenicR = gsl_sf_hydrogenicR |
55 | foreign import ccall "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double | 37 | foreign import ccall "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double |
56 | |||
57 | -- | wrapper for int gsl_sf_coulomb_wave_FG_e(double eta,double x,double lam_F,int k_lam_G,gsl_sf_result* F,gsl_sf_result* Fp,gsl_sf_result* G,gsl_sf_result* Gp,double* exp_F,double* exp_G); | ||
58 | -- | ||
59 | -- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FG_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
60 | coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt | 38 | coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt |
61 | coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e | 39 | coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e |
62 | foreign import ccall "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt | 40 | foreign import ccall "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt |
63 | |||
64 | -- | wrapper for int gsl_sf_coulomb_wave_F_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent); | ||
65 | -- | ||
66 | -- <http://www.google.com/search?q=gsl_sf_coulomb_wave_F_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 41 | coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
68 | coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array | 42 | coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array |
69 | foreign import ccall "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 43 | foreign import ccall "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
70 | |||
71 | -- | wrapper for int gsl_sf_coulomb_wave_FG_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* gc_array,double* F_exponent,double* G_exponent); | ||
72 | -- | ||
73 | -- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FG_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
74 | coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 44 | coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
75 | coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array | 45 | coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array |
76 | foreign import ccall "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 46 | foreign import ccall "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
77 | |||
78 | -- | wrapper for int gsl_sf_coulomb_wave_FGp_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* fcp_array,double* gc_array,double* gcp_array,double* F_exponent,double* G_exponent); | ||
79 | -- | ||
80 | -- <http://www.google.com/search?q=gsl_sf_coulomb_wave_FGp_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
81 | coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 47 | coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
82 | coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array | 48 | coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array |
83 | foreign import ccall "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 49 | foreign import ccall "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
84 | |||
85 | -- | wrapper for int gsl_sf_coulomb_wave_sphF_array(double lam_min,int kmax,double eta,double x,double* fc_array,double* F_exponent); | ||
86 | -- | ||
87 | -- <http://www.google.com/search?q=gsl_sf_coulomb_wave_sphF_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 50 | coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
89 | coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array | 51 | coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array |
90 | foreign import ccall "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 52 | foreign import ccall "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
91 | |||
92 | -- | wrapper for int gsl_sf_coulomb_CL_e(double L,double eta,gsl_sf_result* result); | ||
93 | -- | ||
94 | -- <http://www.google.com/search?q=gsl_sf_coulomb_CL_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
95 | coulomb_CL_e :: Double -> Double -> (Double,Double) | 53 | coulomb_CL_e :: Double -> Double -> (Double,Double) |
96 | coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta | 54 | coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta |
97 | foreign import ccall "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt | 55 | foreign import ccall "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt |
98 | |||
99 | -- | wrapper for int gsl_sf_coulomb_CL_array(double Lmin,int kmax,double eta,double* cl); | ||
100 | -- | ||
101 | -- <http://www.google.com/search?q=gsl_sf_coulomb_CL_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
102 | coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt | 56 | coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt |
103 | coulomb_CL_array = gsl_sf_coulomb_CL_array | 57 | coulomb_CL_array = gsl_sf_coulomb_CL_array |
104 | foreign import ccall "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt | 58 | foreign import ccall "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt |
diff --git a/lib/Numeric/GSL/Special/Coupling.hs b/lib/Numeric/GSL/Special/Coupling.hs index 836a968..1fb69d9 100644 --- a/lib/Numeric/GSL/Special/Coupling.hs +++ b/lib/Numeric/GSL/Special/Coupling.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Coupling | 3 | -- Module : Numeric.GSL.Special.Coupling |
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_coupling.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_coupling.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Coupling( | 15 | module Numeric.GSL.Special.Coupling( |
@@ -28,73 +26,33 @@ module Numeric.GSL.Special.Coupling( | |||
28 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
29 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
30 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
31 | |||
32 | -- | wrapper for int gsl_sf_coupling_3j_e(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc,gsl_sf_result* result); | ||
33 | -- | ||
34 | -- <http://www.google.com/search?q=gsl_sf_coupling_3j_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
35 | coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 29 | coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
36 | coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc = createSFR "coupling_3j_e" $ gsl_sf_coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc | 30 | coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc = createSFR "coupling_3j_e" $ gsl_sf_coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc |
37 | foreign import ccall "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 31 | foreign import ccall "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
38 | |||
39 | -- | wrapper for double gsl_sf_coupling_3j(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc); | ||
40 | -- | ||
41 | -- <http://www.google.com/search?q=gsl_sf_coupling_3j&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
42 | coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 32 | coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
43 | coupling_3j = gsl_sf_coupling_3j | 33 | coupling_3j = gsl_sf_coupling_3j |
44 | foreign import ccall "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 34 | foreign import ccall "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
45 | |||
46 | -- | wrapper for int gsl_sf_coupling_6j_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,gsl_sf_result* result); | ||
47 | -- | ||
48 | -- <http://www.google.com/search?q=gsl_sf_coupling_6j_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
49 | coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 35 | coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
50 | coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_e" $ gsl_sf_coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf | 36 | coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_e" $ gsl_sf_coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf |
51 | foreign import ccall "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 37 | foreign import ccall "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
52 | |||
53 | -- | wrapper for double gsl_sf_coupling_6j(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); | ||
54 | -- | ||
55 | -- <http://www.google.com/search?q=gsl_sf_coupling_6j&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
56 | coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 38 | coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
57 | coupling_6j = gsl_sf_coupling_6j | 39 | coupling_6j = gsl_sf_coupling_6j |
58 | foreign import ccall "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 40 | foreign import ccall "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
59 | |||
60 | -- | wrapper for int gsl_sf_coupling_RacahW_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,gsl_sf_result* result); | ||
61 | -- | ||
62 | -- <http://www.google.com/search?q=gsl_sf_coupling_RacahW_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
63 | coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 41 | coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
64 | coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_RacahW_e" $ gsl_sf_coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf | 42 | coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_RacahW_e" $ gsl_sf_coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf |
65 | foreign import ccall "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 43 | foreign import ccall "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
66 | |||
67 | -- | wrapper for double gsl_sf_coupling_RacahW(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); | ||
68 | -- | ||
69 | -- <http://www.google.com/search?q=gsl_sf_coupling_RacahW&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
70 | coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 44 | coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
71 | coupling_RacahW = gsl_sf_coupling_RacahW | 45 | coupling_RacahW = gsl_sf_coupling_RacahW |
72 | foreign import ccall "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 46 | foreign import ccall "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
73 | |||
74 | -- | wrapper for int gsl_sf_coupling_9j_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,int two_jg,int two_jh,int two_ji,gsl_sf_result* result); | ||
75 | -- | ||
76 | -- <http://www.google.com/search?q=gsl_sf_coupling_9j_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
77 | coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 47 | coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
78 | coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji = createSFR "coupling_9j_e" $ gsl_sf_coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji | 48 | coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji = createSFR "coupling_9j_e" $ gsl_sf_coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji |
79 | foreign import ccall "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 49 | foreign import ccall "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
80 | |||
81 | -- | wrapper for double gsl_sf_coupling_9j(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,int two_jg,int two_jh,int two_ji); | ||
82 | -- | ||
83 | -- <http://www.google.com/search?q=gsl_sf_coupling_9j&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
84 | coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 50 | coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
85 | coupling_9j = gsl_sf_coupling_9j | 51 | coupling_9j = gsl_sf_coupling_9j |
86 | foreign import ccall "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 52 | foreign import ccall "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
87 | |||
88 | -- | wrapper for int gsl_sf_coupling_6j_INCORRECT_e(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf,gsl_sf_result* result); | ||
89 | -- | ||
90 | -- <http://www.google.com/search?q=gsl_sf_coupling_6j_INCORRECT_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
91 | coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 53 | coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
92 | coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_INCORRECT_e" $ gsl_sf_coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf | 54 | coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_INCORRECT_e" $ gsl_sf_coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf |
93 | foreign import ccall "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 55 | foreign import ccall "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
94 | |||
95 | -- | wrapper for double gsl_sf_coupling_6j_INCORRECT(int two_ja,int two_jb,int two_jc,int two_jd,int two_je,int two_jf); | ||
96 | -- | ||
97 | -- <http://www.google.com/search?q=gsl_sf_coupling_6j_INCORRECT&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
98 | coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 56 | coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
99 | coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT | 57 | coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT |
100 | foreign import ccall "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 58 | foreign import ccall "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
diff --git a/lib/Numeric/GSL/Special/Dawson.hs b/lib/Numeric/GSL/Special/Dawson.hs index 40d4d4e..37cc68e 100644 --- a/lib/Numeric/GSL/Special/Dawson.hs +++ b/lib/Numeric/GSL/Special/Dawson.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Dawson | 3 | -- Module : Numeric.GSL.Special.Dawson |
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_dawson.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_dawson.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Dawson( | 15 | module Numeric.GSL.Special.Dawson( |
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Dawson( | |||
22 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
25 | |||
26 | -- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result); | ||
27 | -- | ||
28 | -- <http://www.google.com/search?q=gsl_sf_dawson_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
29 | dawson_e :: Double -> (Double,Double) | 23 | dawson_e :: Double -> (Double,Double) |
30 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x | 24 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x |
31 | foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt | 25 | foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt |
32 | |||
33 | -- | wrapper for double gsl_sf_dawson(double x); | ||
34 | -- | ||
35 | -- <http://www.google.com/search?q=gsl_sf_dawson&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
36 | dawson :: Double -> Double | 26 | dawson :: Double -> Double |
37 | dawson = gsl_sf_dawson | 27 | dawson = gsl_sf_dawson |
38 | foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double | 28 | foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs index 7221fca..c989a82 100644 --- a/lib/Numeric/GSL/Special/Debye.hs +++ b/lib/Numeric/GSL/Special/Debye.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Debye | 3 | -- Module : Numeric.GSL.Special.Debye |
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_debye.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_debye.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Debye( | 15 | module Numeric.GSL.Special.Debye( |
@@ -32,87 +30,39 @@ module Numeric.GSL.Special.Debye( | |||
32 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
33 | import Foreign.C.Types(CInt) | 31 | import Foreign.C.Types(CInt) |
34 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
35 | |||
36 | -- | wrapper for int gsl_sf_debye_1_e(double x,gsl_sf_result* result); | ||
37 | -- | ||
38 | -- <http://www.google.com/search?q=gsl_sf_debye_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
39 | debye_1_e :: Double -> (Double,Double) | 33 | debye_1_e :: Double -> (Double,Double) |
40 | debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x | 34 | debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x |
41 | foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt | 35 | foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt |
42 | |||
43 | -- | wrapper for double gsl_sf_debye_1(double x); | ||
44 | -- | ||
45 | -- <http://www.google.com/search?q=gsl_sf_debye_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
46 | debye_1 :: Double -> Double | 36 | debye_1 :: Double -> Double |
47 | debye_1 = gsl_sf_debye_1 | 37 | debye_1 = gsl_sf_debye_1 |
48 | foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double | 38 | foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double |
49 | |||
50 | -- | wrapper for int gsl_sf_debye_2_e(double x,gsl_sf_result* result); | ||
51 | -- | ||
52 | -- <http://www.google.com/search?q=gsl_sf_debye_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
53 | debye_2_e :: Double -> (Double,Double) | 39 | debye_2_e :: Double -> (Double,Double) |
54 | debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x | 40 | debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x |
55 | foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt |
56 | |||
57 | -- | wrapper for double gsl_sf_debye_2(double x); | ||
58 | -- | ||
59 | -- <http://www.google.com/search?q=gsl_sf_debye_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
60 | debye_2 :: Double -> Double | 42 | debye_2 :: Double -> Double |
61 | debye_2 = gsl_sf_debye_2 | 43 | debye_2 = gsl_sf_debye_2 |
62 | foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double | 44 | foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double |
63 | |||
64 | -- | wrapper for int gsl_sf_debye_3_e(double x,gsl_sf_result* result); | ||
65 | -- | ||
66 | -- <http://www.google.com/search?q=gsl_sf_debye_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | debye_3_e :: Double -> (Double,Double) | 45 | debye_3_e :: Double -> (Double,Double) |
68 | debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x | 46 | debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x |
69 | foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt |
70 | |||
71 | -- | wrapper for double gsl_sf_debye_3(double x); | ||
72 | -- | ||
73 | -- <http://www.google.com/search?q=gsl_sf_debye_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
74 | debye_3 :: Double -> Double | 48 | debye_3 :: Double -> Double |
75 | debye_3 = gsl_sf_debye_3 | 49 | debye_3 = gsl_sf_debye_3 |
76 | foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double | 50 | foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double |
77 | |||
78 | -- | wrapper for int gsl_sf_debye_4_e(double x,gsl_sf_result* result); | ||
79 | -- | ||
80 | -- <http://www.google.com/search?q=gsl_sf_debye_4_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
81 | debye_4_e :: Double -> (Double,Double) | 51 | debye_4_e :: Double -> (Double,Double) |
82 | debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x | 52 | debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x |
83 | foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt | 53 | foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt |
84 | |||
85 | -- | wrapper for double gsl_sf_debye_4(double x); | ||
86 | -- | ||
87 | -- <http://www.google.com/search?q=gsl_sf_debye_4&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | debye_4 :: Double -> Double | 54 | debye_4 :: Double -> Double |
89 | debye_4 = gsl_sf_debye_4 | 55 | debye_4 = gsl_sf_debye_4 |
90 | foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double | 56 | foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double |
91 | |||
92 | -- | wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result); | ||
93 | -- | ||
94 | -- <http://www.google.com/search?q=gsl_sf_debye_5_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
95 | debye_5_e :: Double -> (Double,Double) | 57 | debye_5_e :: Double -> (Double,Double) |
96 | debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x | 58 | debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x |
97 | foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt | 59 | foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt |
98 | |||
99 | -- | wrapper for double gsl_sf_debye_5(double x); | ||
100 | -- | ||
101 | -- <http://www.google.com/search?q=gsl_sf_debye_5&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
102 | debye_5 :: Double -> Double | 60 | debye_5 :: Double -> Double |
103 | debye_5 = gsl_sf_debye_5 | 61 | debye_5 = gsl_sf_debye_5 |
104 | foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double | 62 | foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double |
105 | |||
106 | -- | wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result); | ||
107 | -- | ||
108 | -- <http://www.google.com/search?q=gsl_sf_debye_6_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
109 | debye_6_e :: Double -> (Double,Double) | 63 | debye_6_e :: Double -> (Double,Double) |
110 | debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x | 64 | debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x |
111 | foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt |
112 | |||
113 | -- | wrapper for double gsl_sf_debye_6(double x); | ||
114 | -- | ||
115 | -- <http://www.google.com/search?q=gsl_sf_debye_6&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
116 | debye_6 :: Double -> Double | 66 | debye_6 :: Double -> Double |
117 | debye_6 = gsl_sf_debye_6 | 67 | debye_6 = gsl_sf_debye_6 |
118 | foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double | 68 | foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Dilog.hs b/lib/Numeric/GSL/Special/Dilog.hs index ac70b8b..35bbdcd 100644 --- a/lib/Numeric/GSL/Special/Dilog.hs +++ b/lib/Numeric/GSL/Special/Dilog.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Dilog | 3 | -- Module : Numeric.GSL.Special.Dilog |
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_dilog.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_dilog.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Dilog( | 15 | module Numeric.GSL.Special.Dilog( |
@@ -22,38 +20,18 @@ module Numeric.GSL.Special.Dilog( | |||
22 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
25 | |||
26 | -- | wrapper for int gsl_sf_dilog_e(double x,gsl_sf_result* result); | ||
27 | -- | ||
28 | -- <http://www.google.com/search?q=gsl_sf_dilog_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
29 | dilog_e :: Double -> (Double,Double) | 23 | dilog_e :: Double -> (Double,Double) |
30 | dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x | 24 | dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x |
31 | foreign import ccall "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt | 25 | foreign import ccall "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt |
32 | |||
33 | -- | wrapper for double gsl_sf_dilog(double x); | ||
34 | -- | ||
35 | -- <http://www.google.com/search?q=gsl_sf_dilog&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
36 | dilog :: Double -> Double | 26 | dilog :: Double -> Double |
37 | dilog = gsl_sf_dilog | 27 | dilog = gsl_sf_dilog |
38 | foreign import ccall "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double | 28 | foreign import ccall "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double |
39 | |||
40 | -- | wrapper for int gsl_sf_complex_dilog_xy_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im); | ||
41 | -- | ||
42 | -- <http://www.google.com/search?q=gsl_sf_complex_dilog_xy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
43 | complex_dilog_xy_e :: Double -> Double -> Ptr () -> (Double,Double) | 29 | complex_dilog_xy_e :: Double -> Double -> Ptr () -> (Double,Double) |
44 | complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re | 30 | complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re |
45 | foreign import ccall "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 31 | foreign import ccall "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
46 | |||
47 | -- | wrapper for int gsl_sf_complex_dilog_e(double r,double theta,gsl_sf_result* result_re,gsl_sf_result* result_im); | ||
48 | -- | ||
49 | -- <http://www.google.com/search?q=gsl_sf_complex_dilog_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
50 | complex_dilog_e :: Double -> Double -> Ptr () -> (Double,Double) | 32 | complex_dilog_e :: Double -> Double -> Ptr () -> (Double,Double) |
51 | complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re | 33 | complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re |
52 | foreign import ccall "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 34 | foreign import ccall "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
53 | |||
54 | -- | wrapper for int gsl_sf_complex_spence_xy_e(double x,double y,gsl_sf_result* real_sp,gsl_sf_result* imag_sp); | ||
55 | -- | ||
56 | -- <http://www.google.com/search?q=gsl_sf_complex_spence_xy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
57 | complex_spence_xy_e :: Double -> Double -> Ptr () -> (Double,Double) | 35 | complex_spence_xy_e :: Double -> Double -> Ptr () -> (Double,Double) |
58 | complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp | 36 | complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp |
59 | foreign import ccall "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 37 | foreign import ccall "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
diff --git a/lib/Numeric/GSL/Special/Elementary.hs b/lib/Numeric/GSL/Special/Elementary.hs index b433a7a..e804c05 100644 --- a/lib/Numeric/GSL/Special/Elementary.hs +++ b/lib/Numeric/GSL/Special/Elementary.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Elementary | 3 | -- Module : Numeric.GSL.Special.Elementary |
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_elementary.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_elementary.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Elementary( | 15 | module Numeric.GSL.Special.Elementary( |
@@ -23,24 +21,12 @@ module Numeric.GSL.Special.Elementary( | |||
23 | import Foreign(Ptr) | 21 | import Foreign(Ptr) |
24 | import Foreign.C.Types(CInt) | 22 | import Foreign.C.Types(CInt) |
25 | import Numeric.GSL.Special.Internal | 23 | import Numeric.GSL.Special.Internal |
26 | |||
27 | -- | wrapper for int gsl_sf_multiply_e(double x,double y,gsl_sf_result* result); | ||
28 | -- | ||
29 | -- <http://www.google.com/search?q=gsl_sf_multiply_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
30 | multiply_e :: Double -> Double -> (Double,Double) | 24 | multiply_e :: Double -> Double -> (Double,Double) |
31 | multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y | 25 | multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y |
32 | foreign import ccall "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt | 26 | foreign import ccall "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt |
33 | |||
34 | -- | wrapper for double gsl_sf_multiply(double x,double y); | ||
35 | -- | ||
36 | -- <http://www.google.com/search?q=gsl_sf_multiply&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
37 | multiply :: Double -> Double -> Double | 27 | multiply :: Double -> Double -> Double |
38 | multiply = gsl_sf_multiply | 28 | multiply = gsl_sf_multiply |
39 | foreign import ccall "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double | 29 | foreign import ccall "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double |
40 | |||
41 | -- | wrapper for int gsl_sf_multiply_err_e(double x,double dx,double y,double dy,gsl_sf_result* result); | ||
42 | -- | ||
43 | -- <http://www.google.com/search?q=gsl_sf_multiply_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
44 | multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) | 30 | multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) |
45 | multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy | 31 | multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy |
46 | foreign import ccall "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 32 | foreign import ccall "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
diff --git a/lib/Numeric/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs index b4e84ad..70f6c5d 100644 --- a/lib/Numeric/GSL/Special/Ellint.hs +++ b/lib/Numeric/GSL/Special/Ellint.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Ellint | 3 | -- Module : Numeric.GSL.Special.Ellint |
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_ellint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_ellint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Ellint( | 15 | module Numeric.GSL.Special.Ellint( |
@@ -44,171 +42,75 @@ module Numeric.GSL.Special.Ellint( | |||
44 | import Foreign(Ptr) | 42 | import Foreign(Ptr) |
45 | import Foreign.C.Types(CInt) | 43 | import Foreign.C.Types(CInt) |
46 | import Numeric.GSL.Special.Internal | 44 | import Numeric.GSL.Special.Internal |
47 | |||
48 | -- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); | ||
49 | -- | ||
50 | -- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
51 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) | 45 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) |
52 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) | 46 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) |
53 | foreign import ccall "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 47 | foreign import ccall "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
54 | |||
55 | -- | wrapper for double gsl_sf_ellint_Kcomp(double k,gsl_mode_t mode); | ||
56 | -- | ||
57 | -- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
58 | ellint_Kcomp :: Double -> Precision -> Double | 48 | ellint_Kcomp :: Double -> Precision -> Double |
59 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) | 49 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) |
60 | foreign import ccall "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double | 50 | foreign import ccall "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double |
61 | |||
62 | -- | wrapper for int gsl_sf_ellint_Ecomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); | ||
63 | -- | ||
64 | -- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
65 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) | 51 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) |
66 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) | 52 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) |
67 | foreign import ccall "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 53 | foreign import ccall "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
68 | |||
69 | -- | wrapper for double gsl_sf_ellint_Ecomp(double k,gsl_mode_t mode); | ||
70 | -- | ||
71 | -- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
72 | ellint_Ecomp :: Double -> Precision -> Double | 54 | ellint_Ecomp :: Double -> Precision -> Double |
73 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) | 55 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) |
74 | foreign import ccall "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double | 56 | foreign import ccall "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double |
75 | |||
76 | -- | wrapper for int gsl_sf_ellint_Pcomp_e(double k,double n,gsl_mode_t mode,gsl_sf_result* result); | ||
77 | -- | ||
78 | -- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
79 | ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) | 57 | ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) |
80 | ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) | 58 | ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) |
81 | foreign import ccall "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 59 | foreign import ccall "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
82 | |||
83 | -- | wrapper for double gsl_sf_ellint_Pcomp(double k,double n,gsl_mode_t mode); | ||
84 | -- | ||
85 | -- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
86 | ellint_Pcomp :: Double -> Double -> Precision -> Double | 60 | ellint_Pcomp :: Double -> Double -> Precision -> Double |
87 | ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) | 61 | ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) |
88 | foreign import ccall "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double | 62 | foreign import ccall "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double |
89 | |||
90 | -- | wrapper for int gsl_sf_ellint_Dcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); | ||
91 | -- | ||
92 | -- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
93 | ellint_Dcomp_e :: Double -> Precision -> (Double,Double) | 63 | ellint_Dcomp_e :: Double -> Precision -> (Double,Double) |
94 | ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) | 64 | ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) |
95 | foreign import ccall "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
96 | |||
97 | -- | wrapper for double gsl_sf_ellint_Dcomp(double k,gsl_mode_t mode); | ||
98 | -- | ||
99 | -- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
100 | ellint_Dcomp :: Double -> Precision -> Double | 66 | ellint_Dcomp :: Double -> Precision -> Double |
101 | ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) | 67 | ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) |
102 | foreign import ccall "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double | 68 | foreign import ccall "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double |
103 | |||
104 | -- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result); | ||
105 | -- | ||
106 | -- <http://www.google.com/search?q=gsl_sf_ellint_F_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
107 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) | 69 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) |
108 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) | 70 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) |
109 | foreign import ccall "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 71 | foreign import ccall "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
110 | |||
111 | -- | wrapper for double gsl_sf_ellint_F(double phi,double k,gsl_mode_t mode); | ||
112 | -- | ||
113 | -- <http://www.google.com/search?q=gsl_sf_ellint_F&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
114 | ellint_F :: Double -> Double -> Precision -> Double | 72 | ellint_F :: Double -> Double -> Precision -> Double |
115 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) | 73 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) |
116 | foreign import ccall "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double | 74 | foreign import ccall "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double |
117 | |||
118 | -- | wrapper for int gsl_sf_ellint_E_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result); | ||
119 | -- | ||
120 | -- <http://www.google.com/search?q=gsl_sf_ellint_E_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
121 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) | 75 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) |
122 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) | 76 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) |
123 | foreign import ccall "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 77 | foreign import ccall "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
124 | |||
125 | -- | wrapper for double gsl_sf_ellint_E(double phi,double k,gsl_mode_t mode); | ||
126 | -- | ||
127 | -- <http://www.google.com/search?q=gsl_sf_ellint_E&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
128 | ellint_E :: Double -> Double -> Precision -> Double | 78 | ellint_E :: Double -> Double -> Precision -> Double |
129 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) | 79 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) |
130 | foreign import ccall "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double | 80 | foreign import ccall "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double |
131 | |||
132 | -- | wrapper for int gsl_sf_ellint_P_e(double phi,double k,double n,gsl_mode_t mode,gsl_sf_result* result); | ||
133 | -- | ||
134 | -- <http://www.google.com/search?q=gsl_sf_ellint_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
135 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 81 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
136 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) | 82 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) |
137 | foreign import ccall "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 83 | foreign import ccall "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
138 | |||
139 | -- | wrapper for double gsl_sf_ellint_P(double phi,double k,double n,gsl_mode_t mode); | ||
140 | -- | ||
141 | -- <http://www.google.com/search?q=gsl_sf_ellint_P&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
142 | ellint_P :: Double -> Double -> Double -> Precision -> Double | 84 | ellint_P :: Double -> Double -> Double -> Precision -> Double |
143 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) | 85 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) |
144 | foreign import ccall "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double | 86 | foreign import ccall "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double |
145 | |||
146 | -- | wrapper for int gsl_sf_ellint_D_e(double phi,double k,double n,gsl_mode_t mode,gsl_sf_result* result); | ||
147 | -- | ||
148 | -- <http://www.google.com/search?q=gsl_sf_ellint_D_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
149 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 87 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
150 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) | 88 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) |
151 | foreign import ccall "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 89 | foreign import ccall "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
152 | |||
153 | -- | wrapper for double gsl_sf_ellint_D(double phi,double k,double n,gsl_mode_t mode); | ||
154 | -- | ||
155 | -- <http://www.google.com/search?q=gsl_sf_ellint_D&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
156 | ellint_D :: Double -> Double -> Double -> Precision -> Double | 90 | ellint_D :: Double -> Double -> Double -> Precision -> Double |
157 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) | 91 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) |
158 | foreign import ccall "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double | 92 | foreign import ccall "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double |
159 | |||
160 | -- | wrapper for int gsl_sf_ellint_RC_e(double x,double y,gsl_mode_t mode,gsl_sf_result* result); | ||
161 | -- | ||
162 | -- <http://www.google.com/search?q=gsl_sf_ellint_RC_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
163 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) | 93 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) |
164 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) | 94 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) |
165 | foreign import ccall "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 95 | foreign import ccall "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
166 | |||
167 | -- | wrapper for double gsl_sf_ellint_RC(double x,double y,gsl_mode_t mode); | ||
168 | -- | ||
169 | -- <http://www.google.com/search?q=gsl_sf_ellint_RC&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
170 | ellint_RC :: Double -> Double -> Precision -> Double | 96 | ellint_RC :: Double -> Double -> Precision -> Double |
171 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) | 97 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) |
172 | foreign import ccall "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double | 98 | foreign import ccall "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double |
173 | |||
174 | -- | wrapper for int gsl_sf_ellint_RD_e(double x,double y,double z,gsl_mode_t mode,gsl_sf_result* result); | ||
175 | -- | ||
176 | -- <http://www.google.com/search?q=gsl_sf_ellint_RD_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
177 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 99 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
178 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) | 100 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) |
179 | foreign import ccall "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 101 | foreign import ccall "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
180 | |||
181 | -- | wrapper for double gsl_sf_ellint_RD(double x,double y,double z,gsl_mode_t mode); | ||
182 | -- | ||
183 | -- <http://www.google.com/search?q=gsl_sf_ellint_RD&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
184 | ellint_RD :: Double -> Double -> Double -> Precision -> Double | 102 | ellint_RD :: Double -> Double -> Double -> Precision -> Double |
185 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) | 103 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) |
186 | foreign import ccall "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double | 104 | foreign import ccall "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double |
187 | |||
188 | -- | wrapper for int gsl_sf_ellint_RF_e(double x,double y,double z,gsl_mode_t mode,gsl_sf_result* result); | ||
189 | -- | ||
190 | -- <http://www.google.com/search?q=gsl_sf_ellint_RF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
191 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 105 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
192 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) | 106 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) |
193 | foreign import ccall "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 107 | foreign import ccall "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
194 | |||
195 | -- | wrapper for double gsl_sf_ellint_RF(double x,double y,double z,gsl_mode_t mode); | ||
196 | -- | ||
197 | -- <http://www.google.com/search?q=gsl_sf_ellint_RF&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
198 | ellint_RF :: Double -> Double -> Double -> Precision -> Double | 108 | ellint_RF :: Double -> Double -> Double -> Precision -> Double |
199 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) | 109 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) |
200 | foreign import ccall "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double | 110 | foreign import ccall "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double |
201 | |||
202 | -- | wrapper for int gsl_sf_ellint_RJ_e(double x,double y,double z,double p,gsl_mode_t mode,gsl_sf_result* result); | ||
203 | -- | ||
204 | -- <http://www.google.com/search?q=gsl_sf_ellint_RJ_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
205 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) | 111 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) |
206 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) | 112 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) |
207 | foreign import ccall "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 113 | foreign import ccall "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
208 | |||
209 | -- | wrapper for double gsl_sf_ellint_RJ(double x,double y,double z,double p,gsl_mode_t mode); | ||
210 | -- | ||
211 | -- <http://www.google.com/search?q=gsl_sf_ellint_RJ&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
212 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double | 114 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double |
213 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) | 115 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) |
214 | foreign import ccall "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double | 116 | foreign import ccall "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double |
diff --git a/lib/Numeric/GSL/Special/Elljac.hs b/lib/Numeric/GSL/Special/Elljac.hs new file mode 100644 index 0000000..5b32cfe --- /dev/null +++ b/lib/Numeric/GSL/Special/Elljac.hs | |||
@@ -0,0 +1,38 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | -- | | ||
3 | -- Module : Numeric.GSL.Special.Elljac | ||
4 | -- Copyright : (c) Alberto Ruiz 2006 | ||
5 | -- License : GPL | ||
6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | -- Stability : provisional | ||
8 | -- Portability : uses ffi | ||
9 | -- | ||
10 | -- Wrappers for selected functions described at: | ||
11 | -- | ||
12 | -- <http://www.google.com/search?q=gsl_sf_elljac.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module Numeric.GSL.Special.Elljac( | ||
16 | elljac_e | ||
17 | ) where | ||
18 | |||
19 | import Foreign | ||
20 | import Foreign.C.Types(CInt) | ||
21 | |||
22 | elljac_e :: Double -> Double -> (Double,Double,Double) | ||
23 | elljac_e u m = unsafePerformIO $ do | ||
24 | psn <- malloc | ||
25 | pcn <- malloc | ||
26 | pdn <- malloc | ||
27 | res <- gsl_sf_elljac_e u m psn pcn pdn | ||
28 | sn <- peek psn | ||
29 | cn <- peek pcn | ||
30 | dn <- peek pdn | ||
31 | free psn | ||
32 | free pcn | ||
33 | free pdn | ||
34 | if res == 0 then return (sn,cn,dn) | ||
35 | else error $ "error code "++show res++ | ||
36 | " in elljac_e "++show u++" "++show m | ||
37 | |||
38 | foreign import ccall "gsl_sf_elljac_e" gsl_sf_elljac_e :: Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO CInt | ||
diff --git a/lib/Numeric/GSL/Special/Erf.hs b/lib/Numeric/GSL/Special/Erf.hs index 6689c1e..5dff3c4 100644 --- a/lib/Numeric/GSL/Special/Erf.hs +++ b/lib/Numeric/GSL/Special/Erf.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Erf | 3 | -- Module : Numeric.GSL.Special.Erf |
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_erf.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_erf.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Erf( | 15 | module Numeric.GSL.Special.Erf( |
@@ -32,87 +30,39 @@ module Numeric.GSL.Special.Erf( | |||
32 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
33 | import Foreign.C.Types(CInt) | 31 | import Foreign.C.Types(CInt) |
34 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
35 | |||
36 | -- | wrapper for int gsl_sf_erfc_e(double x,gsl_sf_result* result); | ||
37 | -- | ||
38 | -- <http://www.google.com/search?q=gsl_sf_erfc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
39 | erfc_e :: Double -> (Double,Double) | 33 | erfc_e :: Double -> (Double,Double) |
40 | erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x | 34 | erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x |
41 | foreign import ccall "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt | 35 | foreign import ccall "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt |
42 | |||
43 | -- | wrapper for double gsl_sf_erfc(double x); | ||
44 | -- | ||
45 | -- <http://www.google.com/search?q=gsl_sf_erfc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
46 | erfc :: Double -> Double | 36 | erfc :: Double -> Double |
47 | erfc = gsl_sf_erfc | 37 | erfc = gsl_sf_erfc |
48 | foreign import ccall "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double | 38 | foreign import ccall "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double |
49 | |||
50 | -- | wrapper for int gsl_sf_log_erfc_e(double x,gsl_sf_result* result); | ||
51 | -- | ||
52 | -- <http://www.google.com/search?q=gsl_sf_log_erfc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
53 | log_erfc_e :: Double -> (Double,Double) | 39 | log_erfc_e :: Double -> (Double,Double) |
54 | log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x | 40 | log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x |
55 | foreign import ccall "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt |
56 | |||
57 | -- | wrapper for double gsl_sf_log_erfc(double x); | ||
58 | -- | ||
59 | -- <http://www.google.com/search?q=gsl_sf_log_erfc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
60 | log_erfc :: Double -> Double | 42 | log_erfc :: Double -> Double |
61 | log_erfc = gsl_sf_log_erfc | 43 | log_erfc = gsl_sf_log_erfc |
62 | foreign import ccall "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double | 44 | foreign import ccall "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double |
63 | |||
64 | -- | wrapper for int gsl_sf_erf_e(double x,gsl_sf_result* result); | ||
65 | -- | ||
66 | -- <http://www.google.com/search?q=gsl_sf_erf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | erf_e :: Double -> (Double,Double) | 45 | erf_e :: Double -> (Double,Double) |
68 | erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x | 46 | erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x |
69 | foreign import ccall "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt |
70 | |||
71 | -- | wrapper for double gsl_sf_erf(double x); | ||
72 | -- | ||
73 | -- <http://www.google.com/search?q=gsl_sf_erf&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
74 | erf :: Double -> Double | 48 | erf :: Double -> Double |
75 | erf = gsl_sf_erf | 49 | erf = gsl_sf_erf |
76 | foreign import ccall "gsl_sf_erf" gsl_sf_erf :: Double -> Double | 50 | foreign import ccall "gsl_sf_erf" gsl_sf_erf :: Double -> Double |
77 | |||
78 | -- | wrapper for int gsl_sf_erf_Z_e(double x,gsl_sf_result* result); | ||
79 | -- | ||
80 | -- <http://www.google.com/search?q=gsl_sf_erf_Z_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
81 | erf_Z_e :: Double -> (Double,Double) | 51 | erf_Z_e :: Double -> (Double,Double) |
82 | erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x | 52 | erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x |
83 | foreign import ccall "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt | 53 | foreign import ccall "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt |
84 | |||
85 | -- | wrapper for int gsl_sf_erf_Q_e(double x,gsl_sf_result* result); | ||
86 | -- | ||
87 | -- <http://www.google.com/search?q=gsl_sf_erf_Q_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | erf_Q_e :: Double -> (Double,Double) | 54 | erf_Q_e :: Double -> (Double,Double) |
89 | erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x | 55 | erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x |
90 | foreign import ccall "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt | 56 | foreign import ccall "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt |
91 | |||
92 | -- | wrapper for double gsl_sf_erf_Z(double x); | ||
93 | -- | ||
94 | -- <http://www.google.com/search?q=gsl_sf_erf_Z&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
95 | erf_Z :: Double -> Double | 57 | erf_Z :: Double -> Double |
96 | erf_Z = gsl_sf_erf_Z | 58 | erf_Z = gsl_sf_erf_Z |
97 | foreign import ccall "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double | 59 | foreign import ccall "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double |
98 | |||
99 | -- | wrapper for double gsl_sf_erf_Q(double x); | ||
100 | -- | ||
101 | -- <http://www.google.com/search?q=gsl_sf_erf_Q&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
102 | erf_Q :: Double -> Double | 60 | erf_Q :: Double -> Double |
103 | erf_Q = gsl_sf_erf_Q | 61 | erf_Q = gsl_sf_erf_Q |
104 | foreign import ccall "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double | 62 | foreign import ccall "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double |
105 | |||
106 | -- | wrapper for int gsl_sf_hazard_e(double x,gsl_sf_result* result); | ||
107 | -- | ||
108 | -- <http://www.google.com/search?q=gsl_sf_hazard_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
109 | hazard_e :: Double -> (Double,Double) | 63 | hazard_e :: Double -> (Double,Double) |
110 | hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x | 64 | hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x |
111 | foreign import ccall "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt |
112 | |||
113 | -- | wrapper for double gsl_sf_hazard(double x); | ||
114 | -- | ||
115 | -- <http://www.google.com/search?q=gsl_sf_hazard&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
116 | hazard :: Double -> Double | 66 | hazard :: Double -> Double |
117 | hazard = gsl_sf_hazard | 67 | hazard = gsl_sf_hazard |
118 | foreign import ccall "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double | 68 | foreign import ccall "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Exp.hs b/lib/Numeric/GSL/Special/Exp.hs index da7bff1..fa3a15e 100644 --- a/lib/Numeric/GSL/Special/Exp.hs +++ b/lib/Numeric/GSL/Special/Exp.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Exp | 3 | -- Module : Numeric.GSL.Special.Exp |
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_exp.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_exp.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Exp( | 15 | module Numeric.GSL.Special.Exp( |
@@ -39,136 +37,60 @@ module Numeric.GSL.Special.Exp( | |||
39 | import Foreign(Ptr) | 37 | import Foreign(Ptr) |
40 | import Foreign.C.Types(CInt) | 38 | import Foreign.C.Types(CInt) |
41 | import Numeric.GSL.Special.Internal | 39 | import Numeric.GSL.Special.Internal |
42 | |||
43 | -- | wrapper for int gsl_sf_exp_e(double x,gsl_sf_result* result); | ||
44 | -- | ||
45 | -- <http://www.google.com/search?q=gsl_sf_exp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
46 | exp_e :: Double -> (Double,Double) | 40 | exp_e :: Double -> (Double,Double) |
47 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x | 41 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x |
48 | foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt | 42 | foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt |
49 | |||
50 | -- | wrapper for double gsl_sf_exp(double x); | ||
51 | -- | ||
52 | -- <http://www.google.com/search?q=gsl_sf_exp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
53 | exp :: Double -> Double | 43 | exp :: Double -> Double |
54 | exp = gsl_sf_exp | 44 | exp = gsl_sf_exp |
55 | foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double | 45 | foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double |
56 | |||
57 | -- | wrapper for int gsl_sf_exp_e10_e(double x,gsl_sf_result_e10* result); | ||
58 | -- | ||
59 | -- <http://www.google.com/search?q=gsl_sf_exp_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
60 | exp_e10_e :: Double -> (Double,Int,Double) | 46 | exp_e10_e :: Double -> (Double,Int,Double) |
61 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x | 47 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x |
62 | foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt | 48 | foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt |
63 | |||
64 | -- | wrapper for int gsl_sf_exp_mult_e(double x,double y,gsl_sf_result* result); | ||
65 | -- | ||
66 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | exp_mult_e :: Double -> Double -> (Double,Double) | 49 | exp_mult_e :: Double -> Double -> (Double,Double) |
68 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y | 50 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y |
69 | foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt | 51 | foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt |
70 | |||
71 | -- | wrapper for double gsl_sf_exp_mult(double x,double y); | ||
72 | -- | ||
73 | -- <http://www.google.com/search?q=gsl_sf_exp_mult&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
74 | exp_mult :: Double -> Double -> Double | 52 | exp_mult :: Double -> Double -> Double |
75 | exp_mult = gsl_sf_exp_mult | 53 | exp_mult = gsl_sf_exp_mult |
76 | foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double | 54 | foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double |
77 | |||
78 | -- | wrapper for int gsl_sf_exp_mult_e10_e(double x,double y,gsl_sf_result_e10* result); | ||
79 | -- | ||
80 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
81 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) | 55 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) |
82 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y | 56 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y |
83 | foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt | 57 | foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt |
84 | |||
85 | -- | wrapper for int gsl_sf_expm1_e(double x,gsl_sf_result* result); | ||
86 | -- | ||
87 | -- <http://www.google.com/search?q=gsl_sf_expm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | expm1_e :: Double -> (Double,Double) | 58 | expm1_e :: Double -> (Double,Double) |
89 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x | 59 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x |
90 | foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt |
91 | |||
92 | -- | wrapper for double gsl_sf_expm1(double x); | ||
93 | -- | ||
94 | -- <http://www.google.com/search?q=gsl_sf_expm1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
95 | expm1 :: Double -> Double | 61 | expm1 :: Double -> Double |
96 | expm1 = gsl_sf_expm1 | 62 | expm1 = gsl_sf_expm1 |
97 | foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double | 63 | foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double |
98 | |||
99 | -- | wrapper for int gsl_sf_exprel_e(double x,gsl_sf_result* result); | ||
100 | -- | ||
101 | -- <http://www.google.com/search?q=gsl_sf_exprel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
102 | exprel_e :: Double -> (Double,Double) | 64 | exprel_e :: Double -> (Double,Double) |
103 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x | 65 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x |
104 | foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt | 66 | foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt |
105 | |||
106 | -- | wrapper for double gsl_sf_exprel(double x); | ||
107 | -- | ||
108 | -- <http://www.google.com/search?q=gsl_sf_exprel&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
109 | exprel :: Double -> Double | 67 | exprel :: Double -> Double |
110 | exprel = gsl_sf_exprel | 68 | exprel = gsl_sf_exprel |
111 | foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double | 69 | foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double |
112 | |||
113 | -- | wrapper for int gsl_sf_exprel_2_e(double x,gsl_sf_result* result); | ||
114 | -- | ||
115 | -- <http://www.google.com/search?q=gsl_sf_exprel_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
116 | exprel_2_e :: Double -> (Double,Double) | 70 | exprel_2_e :: Double -> (Double,Double) |
117 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x | 71 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x |
118 | foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt | 72 | foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt |
119 | |||
120 | -- | wrapper for double gsl_sf_exprel_2(double x); | ||
121 | -- | ||
122 | -- <http://www.google.com/search?q=gsl_sf_exprel_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
123 | exprel_2 :: Double -> Double | 73 | exprel_2 :: Double -> Double |
124 | exprel_2 = gsl_sf_exprel_2 | 74 | exprel_2 = gsl_sf_exprel_2 |
125 | foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double | 75 | foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double |
126 | |||
127 | -- | wrapper for int gsl_sf_exprel_n_e(int n,double x,gsl_sf_result* result); | ||
128 | -- | ||
129 | -- <http://www.google.com/search?q=gsl_sf_exprel_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
130 | exprel_n_e :: CInt -> Double -> (Double,Double) | 76 | exprel_n_e :: CInt -> Double -> (Double,Double) |
131 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x | 77 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x |
132 | foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt | 78 | foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt |
133 | |||
134 | -- | wrapper for double gsl_sf_exprel_n(int n,double x); | ||
135 | -- | ||
136 | -- <http://www.google.com/search?q=gsl_sf_exprel_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
137 | exprel_n :: CInt -> Double -> Double | 79 | exprel_n :: CInt -> Double -> Double |
138 | exprel_n = gsl_sf_exprel_n | 80 | exprel_n = gsl_sf_exprel_n |
139 | foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double | 81 | foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double |
140 | |||
141 | -- | wrapper for int gsl_sf_exprel_n_CF_e(double n,double x,gsl_sf_result* result); | ||
142 | -- | ||
143 | -- <http://www.google.com/search?q=gsl_sf_exprel_n_CF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
144 | exprel_n_CF_e :: Double -> Double -> (Double,Double) | 82 | exprel_n_CF_e :: Double -> Double -> (Double,Double) |
145 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x | 83 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x |
146 | foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt | 84 | foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt |
147 | |||
148 | -- | wrapper for int gsl_sf_exp_err_e(double x,double dx,gsl_sf_result* result); | ||
149 | -- | ||
150 | -- <http://www.google.com/search?q=gsl_sf_exp_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
151 | exp_err_e :: Double -> Double -> (Double,Double) | 85 | exp_err_e :: Double -> Double -> (Double,Double) |
152 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx | 86 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx |
153 | foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt | 87 | foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt |
154 | |||
155 | -- | wrapper for int gsl_sf_exp_err_e10_e(double x,double dx,gsl_sf_result_e10* result); | ||
156 | -- | ||
157 | -- <http://www.google.com/search?q=gsl_sf_exp_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
158 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) | 88 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) |
159 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx | 89 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx |
160 | foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt | 90 | foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt |
161 | |||
162 | -- | wrapper for int gsl_sf_exp_mult_err_e(double x,double dx,double y,double dy,gsl_sf_result* result); | ||
163 | -- | ||
164 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
165 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) | 91 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) |
166 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy | 92 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy |
167 | foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 93 | foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
168 | |||
169 | -- | wrapper for int gsl_sf_exp_mult_err_e10_e(double x,double dx,double y,double dy,gsl_sf_result_e10* result); | ||
170 | -- | ||
171 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
172 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) | 94 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) |
173 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy | 95 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy |
174 | foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 96 | foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
diff --git a/lib/Numeric/GSL/Special/Expint.hs b/lib/Numeric/GSL/Special/Expint.hs index c70d28a..7b8336b 100644 --- a/lib/Numeric/GSL/Special/Expint.hs +++ b/lib/Numeric/GSL/Special/Expint.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Expint | 3 | -- Module : Numeric.GSL.Special.Expint |
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_expint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_expint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Expint( | 15 | module Numeric.GSL.Special.Expint( |
@@ -48,199 +46,87 @@ module Numeric.GSL.Special.Expint( | |||
48 | import Foreign(Ptr) | 46 | import Foreign(Ptr) |
49 | import Foreign.C.Types(CInt) | 47 | import Foreign.C.Types(CInt) |
50 | import Numeric.GSL.Special.Internal | 48 | import Numeric.GSL.Special.Internal |
51 | |||
52 | -- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result); | ||
53 | -- | ||
54 | -- <http://www.google.com/search?q=gsl_sf_expint_E1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
55 | expint_E1_e :: Double -> (Double,Double) | 49 | expint_E1_e :: Double -> (Double,Double) |
56 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x | 50 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x |
57 | foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt | 51 | foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt |
58 | |||
59 | -- | wrapper for double gsl_sf_expint_E1(double x); | ||
60 | -- | ||
61 | -- <http://www.google.com/search?q=gsl_sf_expint_E1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
62 | expint_E1 :: Double -> Double | 52 | expint_E1 :: Double -> Double |
63 | expint_E1 = gsl_sf_expint_E1 | 53 | expint_E1 = gsl_sf_expint_E1 |
64 | foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double | 54 | foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double |
65 | |||
66 | -- | wrapper for int gsl_sf_expint_E2_e(double x,gsl_sf_result* result); | ||
67 | -- | ||
68 | -- <http://www.google.com/search?q=gsl_sf_expint_E2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
69 | expint_E2_e :: Double -> (Double,Double) | 55 | expint_E2_e :: Double -> (Double,Double) |
70 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x | 56 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x |
71 | foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt | 57 | foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt |
72 | |||
73 | -- | wrapper for double gsl_sf_expint_E2(double x); | ||
74 | -- | ||
75 | -- <http://www.google.com/search?q=gsl_sf_expint_E2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
76 | expint_E2 :: Double -> Double | 58 | expint_E2 :: Double -> Double |
77 | expint_E2 = gsl_sf_expint_E2 | 59 | expint_E2 = gsl_sf_expint_E2 |
78 | foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double | 60 | foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double |
79 | |||
80 | -- | wrapper for int gsl_sf_expint_En_e(int n,double x,gsl_sf_result* result); | ||
81 | -- | ||
82 | -- <http://www.google.com/search?q=gsl_sf_expint_En_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
83 | expint_En_e :: CInt -> Double -> (Double,Double) | 61 | expint_En_e :: CInt -> Double -> (Double,Double) |
84 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x | 62 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x |
85 | foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt | 63 | foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt |
86 | |||
87 | -- | wrapper for double gsl_sf_expint_En(int n,double x); | ||
88 | -- | ||
89 | -- <http://www.google.com/search?q=gsl_sf_expint_En&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
90 | expint_En :: CInt -> Double -> Double | 64 | expint_En :: CInt -> Double -> Double |
91 | expint_En = gsl_sf_expint_En | 65 | expint_En = gsl_sf_expint_En |
92 | foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double | 66 | foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double |
93 | |||
94 | -- | wrapper for int gsl_sf_expint_E1_scaled_e(double x,gsl_sf_result* result); | ||
95 | -- | ||
96 | -- <http://www.google.com/search?q=gsl_sf_expint_E1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
97 | expint_E1_scaled_e :: Double -> (Double,Double) | 67 | expint_E1_scaled_e :: Double -> (Double,Double) |
98 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x | 68 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x |
99 | foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt | 69 | foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt |
100 | |||
101 | -- | wrapper for double gsl_sf_expint_E1_scaled(double x); | ||
102 | -- | ||
103 | -- <http://www.google.com/search?q=gsl_sf_expint_E1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
104 | expint_E1_scaled :: Double -> Double | 70 | expint_E1_scaled :: Double -> Double |
105 | expint_E1_scaled = gsl_sf_expint_E1_scaled | 71 | expint_E1_scaled = gsl_sf_expint_E1_scaled |
106 | foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double | 72 | foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double |
107 | |||
108 | -- | wrapper for int gsl_sf_expint_E2_scaled_e(double x,gsl_sf_result* result); | ||
109 | -- | ||
110 | -- <http://www.google.com/search?q=gsl_sf_expint_E2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
111 | expint_E2_scaled_e :: Double -> (Double,Double) | 73 | expint_E2_scaled_e :: Double -> (Double,Double) |
112 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x | 74 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x |
113 | foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt | 75 | foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt |
114 | |||
115 | -- | wrapper for double gsl_sf_expint_E2_scaled(double x); | ||
116 | -- | ||
117 | -- <http://www.google.com/search?q=gsl_sf_expint_E2_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
118 | expint_E2_scaled :: Double -> Double | 76 | expint_E2_scaled :: Double -> Double |
119 | expint_E2_scaled = gsl_sf_expint_E2_scaled | 77 | expint_E2_scaled = gsl_sf_expint_E2_scaled |
120 | foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double | 78 | foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double |
121 | |||
122 | -- | wrapper for int gsl_sf_expint_En_scaled_e(int n,double x,gsl_sf_result* result); | ||
123 | -- | ||
124 | -- <http://www.google.com/search?q=gsl_sf_expint_En_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
125 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) | 79 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) |
126 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x | 80 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x |
127 | foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 81 | foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
128 | |||
129 | -- | wrapper for double gsl_sf_expint_En_scaled(int n,double x); | ||
130 | -- | ||
131 | -- <http://www.google.com/search?q=gsl_sf_expint_En_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
132 | expint_En_scaled :: CInt -> Double -> Double | 82 | expint_En_scaled :: CInt -> Double -> Double |
133 | expint_En_scaled = gsl_sf_expint_En_scaled | 83 | expint_En_scaled = gsl_sf_expint_En_scaled |
134 | foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double | 84 | foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double |
135 | |||
136 | -- | wrapper for int gsl_sf_expint_Ei_e(double x,gsl_sf_result* result); | ||
137 | -- | ||
138 | -- <http://www.google.com/search?q=gsl_sf_expint_Ei_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
139 | expint_Ei_e :: Double -> (Double,Double) | 85 | expint_Ei_e :: Double -> (Double,Double) |
140 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x | 86 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x |
141 | foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt | 87 | foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt |
142 | |||
143 | -- | wrapper for double gsl_sf_expint_Ei(double x); | ||
144 | -- | ||
145 | -- <http://www.google.com/search?q=gsl_sf_expint_Ei&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
146 | expint_Ei :: Double -> Double | 88 | expint_Ei :: Double -> Double |
147 | expint_Ei = gsl_sf_expint_Ei | 89 | expint_Ei = gsl_sf_expint_Ei |
148 | foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double | 90 | foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double |
149 | |||
150 | -- | wrapper for int gsl_sf_expint_Ei_scaled_e(double x,gsl_sf_result* result); | ||
151 | -- | ||
152 | -- <http://www.google.com/search?q=gsl_sf_expint_Ei_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
153 | expint_Ei_scaled_e :: Double -> (Double,Double) | 91 | expint_Ei_scaled_e :: Double -> (Double,Double) |
154 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x | 92 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x |
155 | foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt | 93 | foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt |
156 | |||
157 | -- | wrapper for double gsl_sf_expint_Ei_scaled(double x); | ||
158 | -- | ||
159 | -- <http://www.google.com/search?q=gsl_sf_expint_Ei_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
160 | expint_Ei_scaled :: Double -> Double | 94 | expint_Ei_scaled :: Double -> Double |
161 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled | 95 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled |
162 | foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double | 96 | foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double |
163 | |||
164 | -- | wrapper for int gsl_sf_Shi_e(double x,gsl_sf_result* result); | ||
165 | -- | ||
166 | -- <http://www.google.com/search?q=gsl_sf_Shi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
167 | shi_e :: Double -> (Double,Double) | 97 | shi_e :: Double -> (Double,Double) |
168 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x | 98 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x |
169 | foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt | 99 | foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt |
170 | |||
171 | -- | wrapper for double gsl_sf_Shi(double x); | ||
172 | -- | ||
173 | -- <http://www.google.com/search?q=gsl_sf_Shi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
174 | shi :: Double -> Double | 100 | shi :: Double -> Double |
175 | shi = gsl_sf_Shi | 101 | shi = gsl_sf_Shi |
176 | foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double | 102 | foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double |
177 | |||
178 | -- | wrapper for int gsl_sf_Chi_e(double x,gsl_sf_result* result); | ||
179 | -- | ||
180 | -- <http://www.google.com/search?q=gsl_sf_Chi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
181 | chi_e :: Double -> (Double,Double) | 103 | chi_e :: Double -> (Double,Double) |
182 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x | 104 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x |
183 | foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt | 105 | foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt |
184 | |||
185 | -- | wrapper for double gsl_sf_Chi(double x); | ||
186 | -- | ||
187 | -- <http://www.google.com/search?q=gsl_sf_Chi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
188 | chi :: Double -> Double | 106 | chi :: Double -> Double |
189 | chi = gsl_sf_Chi | 107 | chi = gsl_sf_Chi |
190 | foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double | 108 | foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double |
191 | |||
192 | -- | wrapper for int gsl_sf_expint_3_e(double x,gsl_sf_result* result); | ||
193 | -- | ||
194 | -- <http://www.google.com/search?q=gsl_sf_expint_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
195 | expint_3_e :: Double -> (Double,Double) | 109 | expint_3_e :: Double -> (Double,Double) |
196 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x | 110 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x |
197 | foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt | 111 | foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt |
198 | |||
199 | -- | wrapper for double gsl_sf_expint_3(double x); | ||
200 | -- | ||
201 | -- <http://www.google.com/search?q=gsl_sf_expint_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
202 | expint_3 :: Double -> Double | 112 | expint_3 :: Double -> Double |
203 | expint_3 = gsl_sf_expint_3 | 113 | expint_3 = gsl_sf_expint_3 |
204 | foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double | 114 | foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double |
205 | |||
206 | -- | wrapper for int gsl_sf_Si_e(double x,gsl_sf_result* result); | ||
207 | -- | ||
208 | -- <http://www.google.com/search?q=gsl_sf_Si_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
209 | si_e :: Double -> (Double,Double) | 115 | si_e :: Double -> (Double,Double) |
210 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x | 116 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x |
211 | foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt | 117 | foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt |
212 | |||
213 | -- | wrapper for double gsl_sf_Si(double x); | ||
214 | -- | ||
215 | -- <http://www.google.com/search?q=gsl_sf_Si&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
216 | si :: Double -> Double | 118 | si :: Double -> Double |
217 | si = gsl_sf_Si | 119 | si = gsl_sf_Si |
218 | foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double | 120 | foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double |
219 | |||
220 | -- | wrapper for int gsl_sf_Ci_e(double x,gsl_sf_result* result); | ||
221 | -- | ||
222 | -- <http://www.google.com/search?q=gsl_sf_Ci_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
223 | ci_e :: Double -> (Double,Double) | 121 | ci_e :: Double -> (Double,Double) |
224 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x | 122 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x |
225 | foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt | 123 | foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt |
226 | |||
227 | -- | wrapper for double gsl_sf_Ci(double x); | ||
228 | -- | ||
229 | -- <http://www.google.com/search?q=gsl_sf_Ci&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
230 | ci :: Double -> Double | 124 | ci :: Double -> Double |
231 | ci = gsl_sf_Ci | 125 | ci = gsl_sf_Ci |
232 | foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double | 126 | foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double |
233 | |||
234 | -- | wrapper for int gsl_sf_atanint_e(double x,gsl_sf_result* result); | ||
235 | -- | ||
236 | -- <http://www.google.com/search?q=gsl_sf_atanint_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
237 | atanint_e :: Double -> (Double,Double) | 127 | atanint_e :: Double -> (Double,Double) |
238 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x | 128 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x |
239 | foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt | 129 | foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt |
240 | |||
241 | -- | wrapper for double gsl_sf_atanint(double x); | ||
242 | -- | ||
243 | -- <http://www.google.com/search?q=gsl_sf_atanint&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
244 | atanint :: Double -> Double | 130 | atanint :: Double -> Double |
245 | atanint = gsl_sf_atanint | 131 | atanint = gsl_sf_atanint |
246 | foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double | 132 | foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Fermi_dirac.hs b/lib/Numeric/GSL/Special/Fermi_dirac.hs index d59fce1..3547e52 100644 --- a/lib/Numeric/GSL/Special/Fermi_dirac.hs +++ b/lib/Numeric/GSL/Special/Fermi_dirac.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Fermi_dirac | 3 | -- Module : Numeric.GSL.Special.Fermi_dirac |
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_fermi_dirac.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Fermi_dirac( | 15 | module Numeric.GSL.Special.Fermi_dirac( |
@@ -38,129 +36,57 @@ module Numeric.GSL.Special.Fermi_dirac( | |||
38 | import Foreign(Ptr) | 36 | import Foreign(Ptr) |
39 | import Foreign.C.Types(CInt) | 37 | import Foreign.C.Types(CInt) |
40 | import Numeric.GSL.Special.Internal | 38 | import Numeric.GSL.Special.Internal |
41 | |||
42 | -- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result); | ||
43 | -- | ||
44 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_m1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
45 | fermi_dirac_m1_e :: Double -> (Double,Double) | 39 | fermi_dirac_m1_e :: Double -> (Double,Double) |
46 | fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x | 40 | fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x |
47 | foreign import ccall "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt |
48 | |||
49 | -- | wrapper for double gsl_sf_fermi_dirac_m1(double x); | ||
50 | -- | ||
51 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_m1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
52 | fermi_dirac_m1 :: Double -> Double | 42 | fermi_dirac_m1 :: Double -> Double |
53 | fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 | 43 | fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 |
54 | foreign import ccall "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double | 44 | foreign import ccall "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double |
55 | |||
56 | -- | wrapper for int gsl_sf_fermi_dirac_0_e(double x,gsl_sf_result* result); | ||
57 | -- | ||
58 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
59 | fermi_dirac_0_e :: Double -> (Double,Double) | 45 | fermi_dirac_0_e :: Double -> (Double,Double) |
60 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x | 46 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x |
61 | foreign import ccall "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt |
62 | |||
63 | -- | wrapper for double gsl_sf_fermi_dirac_0(double x); | ||
64 | -- | ||
65 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
66 | fermi_dirac_0 :: Double -> Double | 48 | fermi_dirac_0 :: Double -> Double |
67 | fermi_dirac_0 = gsl_sf_fermi_dirac_0 | 49 | fermi_dirac_0 = gsl_sf_fermi_dirac_0 |
68 | foreign import ccall "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double | 50 | foreign import ccall "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double |
69 | |||
70 | -- | wrapper for int gsl_sf_fermi_dirac_1_e(double x,gsl_sf_result* result); | ||
71 | -- | ||
72 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
73 | fermi_dirac_1_e :: Double -> (Double,Double) | 51 | fermi_dirac_1_e :: Double -> (Double,Double) |
74 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x | 52 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x |
75 | foreign import ccall "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt | 53 | foreign import ccall "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt |
76 | |||
77 | -- | wrapper for double gsl_sf_fermi_dirac_1(double x); | ||
78 | -- | ||
79 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
80 | fermi_dirac_1 :: Double -> Double | 54 | fermi_dirac_1 :: Double -> Double |
81 | fermi_dirac_1 = gsl_sf_fermi_dirac_1 | 55 | fermi_dirac_1 = gsl_sf_fermi_dirac_1 |
82 | foreign import ccall "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double | 56 | foreign import ccall "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double |
83 | |||
84 | -- | wrapper for int gsl_sf_fermi_dirac_2_e(double x,gsl_sf_result* result); | ||
85 | -- | ||
86 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
87 | fermi_dirac_2_e :: Double -> (Double,Double) | 57 | fermi_dirac_2_e :: Double -> (Double,Double) |
88 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x | 58 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x |
89 | foreign import ccall "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt | 59 | foreign import ccall "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt |
90 | |||
91 | -- | wrapper for double gsl_sf_fermi_dirac_2(double x); | ||
92 | -- | ||
93 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
94 | fermi_dirac_2 :: Double -> Double | 60 | fermi_dirac_2 :: Double -> Double |
95 | fermi_dirac_2 = gsl_sf_fermi_dirac_2 | 61 | fermi_dirac_2 = gsl_sf_fermi_dirac_2 |
96 | foreign import ccall "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double | 62 | foreign import ccall "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double |
97 | |||
98 | -- | wrapper for int gsl_sf_fermi_dirac_int_e(int j,double x,gsl_sf_result* result); | ||
99 | -- | ||
100 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
101 | fermi_dirac_int_e :: CInt -> Double -> (Double,Double) | 63 | fermi_dirac_int_e :: CInt -> Double -> (Double,Double) |
102 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x | 64 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x |
103 | foreign import ccall "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt |
104 | |||
105 | -- | wrapper for double gsl_sf_fermi_dirac_int(int j,double x); | ||
106 | -- | ||
107 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
108 | fermi_dirac_int :: CInt -> Double -> Double | 66 | fermi_dirac_int :: CInt -> Double -> Double |
109 | fermi_dirac_int = gsl_sf_fermi_dirac_int | 67 | fermi_dirac_int = gsl_sf_fermi_dirac_int |
110 | foreign import ccall "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double | 68 | foreign import ccall "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double |
111 | |||
112 | -- | wrapper for int gsl_sf_fermi_dirac_mhalf_e(double x,gsl_sf_result* result); | ||
113 | -- | ||
114 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
115 | fermi_dirac_mhalf_e :: Double -> (Double,Double) | 69 | fermi_dirac_mhalf_e :: Double -> (Double,Double) |
116 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x | 70 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x |
117 | foreign import ccall "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt | 71 | foreign import ccall "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt |
118 | |||
119 | -- | wrapper for double gsl_sf_fermi_dirac_mhalf(double x); | ||
120 | -- | ||
121 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_mhalf&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
122 | fermi_dirac_mhalf :: Double -> Double | 72 | fermi_dirac_mhalf :: Double -> Double |
123 | fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf | 73 | fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf |
124 | foreign import ccall "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double | 74 | foreign import ccall "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double |
125 | |||
126 | -- | wrapper for int gsl_sf_fermi_dirac_half_e(double x,gsl_sf_result* result); | ||
127 | -- | ||
128 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
129 | fermi_dirac_half_e :: Double -> (Double,Double) | 75 | fermi_dirac_half_e :: Double -> (Double,Double) |
130 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x | 76 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x |
131 | foreign import ccall "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt | 77 | foreign import ccall "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt |
132 | |||
133 | -- | wrapper for double gsl_sf_fermi_dirac_half(double x); | ||
134 | -- | ||
135 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_half&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
136 | fermi_dirac_half :: Double -> Double | 78 | fermi_dirac_half :: Double -> Double |
137 | fermi_dirac_half = gsl_sf_fermi_dirac_half | 79 | fermi_dirac_half = gsl_sf_fermi_dirac_half |
138 | foreign import ccall "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double | 80 | foreign import ccall "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double |
139 | |||
140 | -- | wrapper for int gsl_sf_fermi_dirac_3half_e(double x,gsl_sf_result* result); | ||
141 | -- | ||
142 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_3half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
143 | fermi_dirac_3half_e :: Double -> (Double,Double) | 81 | fermi_dirac_3half_e :: Double -> (Double,Double) |
144 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x | 82 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x |
145 | foreign import ccall "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt | 83 | foreign import ccall "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt |
146 | |||
147 | -- | wrapper for double gsl_sf_fermi_dirac_3half(double x); | ||
148 | -- | ||
149 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_3half&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
150 | fermi_dirac_3half :: Double -> Double | 84 | fermi_dirac_3half :: Double -> Double |
151 | fermi_dirac_3half = gsl_sf_fermi_dirac_3half | 85 | fermi_dirac_3half = gsl_sf_fermi_dirac_3half |
152 | foreign import ccall "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double | 86 | foreign import ccall "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double |
153 | |||
154 | -- | wrapper for int gsl_sf_fermi_dirac_inc_0_e(double x,double b,gsl_sf_result* result); | ||
155 | -- | ||
156 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_inc_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
157 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) | 87 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) |
158 | fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b | 88 | fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b |
159 | foreign import ccall "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt | 89 | foreign import ccall "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt |
160 | |||
161 | -- | wrapper for double gsl_sf_fermi_dirac_inc_0(double x,double b); | ||
162 | -- | ||
163 | -- <http://www.google.com/search?q=gsl_sf_fermi_dirac_inc_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
164 | fermi_dirac_inc_0 :: Double -> Double -> Double | 90 | fermi_dirac_inc_0 :: Double -> Double -> Double |
165 | fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 | 91 | fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 |
166 | foreign import ccall "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double | 92 | foreign import ccall "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double |
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 |
diff --git a/lib/Numeric/GSL/Special/Gegenbauer.hs b/lib/Numeric/GSL/Special/Gegenbauer.hs index 7f15fa7..c4e433b 100644 --- a/lib/Numeric/GSL/Special/Gegenbauer.hs +++ b/lib/Numeric/GSL/Special/Gegenbauer.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Gegenbauer | 3 | -- Module : Numeric.GSL.Special.Gegenbauer |
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_gegenbauer.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_gegenbauer.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Gegenbauer( | 15 | module Numeric.GSL.Special.Gegenbauer( |
@@ -28,66 +26,30 @@ module Numeric.GSL.Special.Gegenbauer( | |||
28 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
29 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
30 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
31 | |||
32 | -- | wrapper for int gsl_sf_gegenpoly_1_e(double lambda,double x,gsl_sf_result* result); | ||
33 | -- | ||
34 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
35 | gegenpoly_1_e :: Double -> Double -> (Double,Double) | 29 | gegenpoly_1_e :: Double -> Double -> (Double,Double) |
36 | gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x | 30 | gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x |
37 | foreign import ccall "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt | 31 | foreign import ccall "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt |
38 | |||
39 | -- | wrapper for int gsl_sf_gegenpoly_2_e(double lambda,double x,gsl_sf_result* result); | ||
40 | -- | ||
41 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
42 | gegenpoly_2_e :: Double -> Double -> (Double,Double) | 32 | gegenpoly_2_e :: Double -> Double -> (Double,Double) |
43 | gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x | 33 | gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x |
44 | foreign import ccall "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt | 34 | foreign import ccall "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt |
45 | |||
46 | -- | wrapper for int gsl_sf_gegenpoly_3_e(double lambda,double x,gsl_sf_result* result); | ||
47 | -- | ||
48 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
49 | gegenpoly_3_e :: Double -> Double -> (Double,Double) | 35 | gegenpoly_3_e :: Double -> Double -> (Double,Double) |
50 | gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x | 36 | gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x |
51 | foreign import ccall "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt | 37 | foreign import ccall "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt |
52 | |||
53 | -- | wrapper for double gsl_sf_gegenpoly_1(double lambda,double x); | ||
54 | -- | ||
55 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
56 | gegenpoly_1 :: Double -> Double -> Double | 38 | gegenpoly_1 :: Double -> Double -> Double |
57 | gegenpoly_1 = gsl_sf_gegenpoly_1 | 39 | gegenpoly_1 = gsl_sf_gegenpoly_1 |
58 | foreign import ccall "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double | 40 | foreign import ccall "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double |
59 | |||
60 | -- | wrapper for double gsl_sf_gegenpoly_2(double lambda,double x); | ||
61 | -- | ||
62 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
63 | gegenpoly_2 :: Double -> Double -> Double | 41 | gegenpoly_2 :: Double -> Double -> Double |
64 | gegenpoly_2 = gsl_sf_gegenpoly_2 | 42 | gegenpoly_2 = gsl_sf_gegenpoly_2 |
65 | foreign import ccall "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double | 43 | foreign import ccall "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double |
66 | |||
67 | -- | wrapper for double gsl_sf_gegenpoly_3(double lambda,double x); | ||
68 | -- | ||
69 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
70 | gegenpoly_3 :: Double -> Double -> Double | 44 | gegenpoly_3 :: Double -> Double -> Double |
71 | gegenpoly_3 = gsl_sf_gegenpoly_3 | 45 | gegenpoly_3 = gsl_sf_gegenpoly_3 |
72 | foreign import ccall "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double | 46 | foreign import ccall "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double |
73 | |||
74 | -- | wrapper for int gsl_sf_gegenpoly_n_e(int n,double lambda,double x,gsl_sf_result* result); | ||
75 | -- | ||
76 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
77 | gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) | 47 | gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) |
78 | gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x | 48 | gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x |
79 | foreign import ccall "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 49 | foreign import ccall "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
80 | |||
81 | -- | wrapper for double gsl_sf_gegenpoly_n(int n,double lambda,double x); | ||
82 | -- | ||
83 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
84 | gegenpoly_n :: CInt -> Double -> Double -> Double | 50 | gegenpoly_n :: CInt -> Double -> Double -> Double |
85 | gegenpoly_n = gsl_sf_gegenpoly_n | 51 | gegenpoly_n = gsl_sf_gegenpoly_n |
86 | foreign import ccall "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double | 52 | foreign import ccall "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double |
87 | |||
88 | -- | wrapper for int gsl_sf_gegenpoly_array(int nmax,double lambda,double x,double* result_array); | ||
89 | -- | ||
90 | -- <http://www.google.com/search?q=gsl_sf_gegenpoly_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
91 | gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 53 | gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
92 | gegenpoly_array = gsl_sf_gegenpoly_array | 54 | gegenpoly_array = gsl_sf_gegenpoly_array |
93 | foreign import ccall "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 55 | foreign import ccall "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
diff --git a/lib/Numeric/GSL/Special/Hyperg.hs b/lib/Numeric/GSL/Special/Hyperg.hs index ed920fb..42a4b40 100644 --- a/lib/Numeric/GSL/Special/Hyperg.hs +++ b/lib/Numeric/GSL/Special/Hyperg.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Hyperg | 3 | -- Module : Numeric.GSL.Special.Hyperg |
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_hyperg.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_hyperg.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Hyperg( | 15 | module Numeric.GSL.Special.Hyperg( |
@@ -42,157 +40,69 @@ module Numeric.GSL.Special.Hyperg( | |||
42 | import Foreign(Ptr) | 40 | import Foreign(Ptr) |
43 | import Foreign.C.Types(CInt) | 41 | import Foreign.C.Types(CInt) |
44 | import Numeric.GSL.Special.Internal | 42 | import Numeric.GSL.Special.Internal |
45 | |||
46 | -- | wrapper for int gsl_sf_hyperg_0F1_e(double c,double x,gsl_sf_result* result); | ||
47 | -- | ||
48 | -- <http://www.google.com/search?q=gsl_sf_hyperg_0F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
49 | hyperg_0F1_e :: Double -> Double -> (Double,Double) | 43 | hyperg_0F1_e :: Double -> Double -> (Double,Double) |
50 | hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x | 44 | hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x |
51 | foreign import ccall "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt | 45 | foreign import ccall "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt |
52 | |||
53 | -- | wrapper for double gsl_sf_hyperg_0F1(double c,double x); | ||
54 | -- | ||
55 | -- <http://www.google.com/search?q=gsl_sf_hyperg_0F1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
56 | hyperg_0F1 :: Double -> Double -> Double | 46 | hyperg_0F1 :: Double -> Double -> Double |
57 | hyperg_0F1 = gsl_sf_hyperg_0F1 | 47 | hyperg_0F1 = gsl_sf_hyperg_0F1 |
58 | foreign import ccall "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double | 48 | foreign import ccall "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double |
59 | |||
60 | -- | wrapper for int gsl_sf_hyperg_1F1_int_e(int m,int n,double x,gsl_sf_result* result); | ||
61 | -- | ||
62 | -- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
63 | hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) | 49 | hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) |
64 | hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x | 50 | hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x |
65 | foreign import ccall "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 51 | foreign import ccall "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
66 | |||
67 | -- | wrapper for double gsl_sf_hyperg_1F1_int(int m,int n,double x); | ||
68 | -- | ||
69 | -- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
70 | hyperg_1F1_int :: CInt -> CInt -> Double -> Double | 52 | hyperg_1F1_int :: CInt -> CInt -> Double -> Double |
71 | hyperg_1F1_int = gsl_sf_hyperg_1F1_int | 53 | hyperg_1F1_int = gsl_sf_hyperg_1F1_int |
72 | foreign import ccall "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double | 54 | foreign import ccall "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double |
73 | |||
74 | -- | wrapper for int gsl_sf_hyperg_1F1_e(double a,double b,double x,gsl_sf_result* result); | ||
75 | -- | ||
76 | -- <http://www.google.com/search?q=gsl_sf_hyperg_1F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
77 | hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) | 55 | hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) |
78 | hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x | 56 | hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x |
79 | foreign import ccall "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 57 | foreign import ccall "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
80 | |||
81 | -- | wrapper for double gsl_sf_hyperg_1F1(double a,double b,double x); | ||
82 | -- | ||
83 | -- <http://www.google.com/search?q=gsl_sf_hyperg_1F1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
84 | hyperg_1F1 :: Double -> Double -> Double -> Double | 58 | hyperg_1F1 :: Double -> Double -> Double -> Double |
85 | hyperg_1F1 = gsl_sf_hyperg_1F1 | 59 | hyperg_1F1 = gsl_sf_hyperg_1F1 |
86 | foreign import ccall "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double | 60 | foreign import ccall "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double |
87 | |||
88 | -- | wrapper for int gsl_sf_hyperg_U_int_e(int m,int n,double x,gsl_sf_result* result); | ||
89 | -- | ||
90 | -- <http://www.google.com/search?q=gsl_sf_hyperg_U_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
91 | hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) | 61 | hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) |
92 | hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x | 62 | hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x |
93 | foreign import ccall "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 63 | foreign import ccall "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
94 | |||
95 | -- | wrapper for double gsl_sf_hyperg_U_int(int m,int n,double x); | ||
96 | -- | ||
97 | -- <http://www.google.com/search?q=gsl_sf_hyperg_U_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
98 | hyperg_U_int :: CInt -> CInt -> Double -> Double | 64 | hyperg_U_int :: CInt -> CInt -> Double -> Double |
99 | hyperg_U_int = gsl_sf_hyperg_U_int | 65 | hyperg_U_int = gsl_sf_hyperg_U_int |
100 | foreign import ccall "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double | 66 | foreign import ccall "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double |
101 | |||
102 | -- | wrapper for int gsl_sf_hyperg_U_int_e10_e(int m,int n,double x,gsl_sf_result_e10* result); | ||
103 | -- | ||
104 | -- <http://www.google.com/search?q=gsl_sf_hyperg_U_int_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
105 | hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) | 67 | hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) |
106 | hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x | 68 | hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x |
107 | foreign import ccall "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 69 | foreign import ccall "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
108 | |||
109 | -- | wrapper for int gsl_sf_hyperg_U_e(double a,double b,double x,gsl_sf_result* result); | ||
110 | -- | ||
111 | -- <http://www.google.com/search?q=gsl_sf_hyperg_U_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
112 | hyperg_U_e :: Double -> Double -> Double -> (Double,Double) | 70 | hyperg_U_e :: Double -> Double -> Double -> (Double,Double) |
113 | hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x | 71 | hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x |
114 | foreign import ccall "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 72 | foreign import ccall "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
115 | |||
116 | -- | wrapper for double gsl_sf_hyperg_U(double a,double b,double x); | ||
117 | -- | ||
118 | -- <http://www.google.com/search?q=gsl_sf_hyperg_U&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
119 | hyperg_U :: Double -> Double -> Double -> Double | 73 | hyperg_U :: Double -> Double -> Double -> Double |
120 | hyperg_U = gsl_sf_hyperg_U | 74 | hyperg_U = gsl_sf_hyperg_U |
121 | foreign import ccall "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double | 75 | foreign import ccall "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double |
122 | |||
123 | -- | wrapper for int gsl_sf_hyperg_U_e10_e(double a,double b,double x,gsl_sf_result_e10* result); | ||
124 | -- | ||
125 | -- <http://www.google.com/search?q=gsl_sf_hyperg_U_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
126 | hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) | 76 | hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) |
127 | hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x | 77 | hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x |
128 | foreign import ccall "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 78 | foreign import ccall "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
129 | |||
130 | -- | wrapper for int gsl_sf_hyperg_2F1_e(double a,double b,double c,double x,gsl_sf_result* result); | ||
131 | -- | ||
132 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
133 | hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) | 79 | hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) |
134 | hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x | 80 | hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x |
135 | foreign import ccall "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 81 | foreign import ccall "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
136 | |||
137 | -- | wrapper for double gsl_sf_hyperg_2F1(double a,double b,double c,double x); | ||
138 | -- | ||
139 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
140 | hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | 82 | hyperg_2F1 :: Double -> Double -> Double -> Double -> Double |
141 | hyperg_2F1 = gsl_sf_hyperg_2F1 | 83 | hyperg_2F1 = gsl_sf_hyperg_2F1 |
142 | foreign import ccall "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | 84 | foreign import ccall "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double |
143 | |||
144 | -- | wrapper for int gsl_sf_hyperg_2F1_conj_e(double aR,double aI,double c,double x,gsl_sf_result* result); | ||
145 | -- | ||
146 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
147 | hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) | 85 | hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) |
148 | hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x | 86 | hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x |
149 | foreign import ccall "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 87 | foreign import ccall "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
150 | |||
151 | -- | wrapper for double gsl_sf_hyperg_2F1_conj(double aR,double aI,double c,double x); | ||
152 | -- | ||
153 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
154 | hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | 88 | hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double |
155 | hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj | 89 | hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj |
156 | foreign import ccall "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | 90 | foreign import ccall "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double |
157 | |||
158 | -- | wrapper for int gsl_sf_hyperg_2F1_renorm_e(double a,double b,double c,double x,gsl_sf_result* result); | ||
159 | -- | ||
160 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_renorm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
161 | hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | 91 | hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) |
162 | hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x | 92 | hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x |
163 | foreign import ccall "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 93 | foreign import ccall "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
164 | |||
165 | -- | wrapper for double gsl_sf_hyperg_2F1_renorm(double a,double b,double c,double x); | ||
166 | -- | ||
167 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_renorm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
168 | hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | 94 | hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double |
169 | hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm | 95 | hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm |
170 | foreign import ccall "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | 96 | foreign import ccall "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double |
171 | |||
172 | -- | wrapper for int gsl_sf_hyperg_2F1_conj_renorm_e(double aR,double aI,double c,double x,gsl_sf_result* result); | ||
173 | -- | ||
174 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_renorm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
175 | hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | 97 | hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) |
176 | hyperg_2F1_conj_renorm_e aR aI c x = createSFR "hyperg_2F1_conj_renorm_e" $ gsl_sf_hyperg_2F1_conj_renorm_e aR aI c x | 98 | hyperg_2F1_conj_renorm_e aR aI c x = createSFR "hyperg_2F1_conj_renorm_e" $ gsl_sf_hyperg_2F1_conj_renorm_e aR aI c x |
177 | foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 99 | foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
178 | |||
179 | -- | wrapper for double gsl_sf_hyperg_2F1_conj_renorm(double aR,double aI,double c,double x); | ||
180 | -- | ||
181 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F1_conj_renorm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
182 | hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | 100 | hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double |
183 | hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm | 101 | hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm |
184 | foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | 102 | foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double |
185 | |||
186 | -- | wrapper for int gsl_sf_hyperg_2F0_e(double a,double b,double x,gsl_sf_result* result); | ||
187 | -- | ||
188 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
189 | hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) | 103 | hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) |
190 | hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x | 104 | hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x |
191 | foreign import ccall "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 105 | foreign import ccall "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
192 | |||
193 | -- | wrapper for double gsl_sf_hyperg_2F0(double a,double b,double x); | ||
194 | -- | ||
195 | -- <http://www.google.com/search?q=gsl_sf_hyperg_2F0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
196 | hyperg_2F0 :: Double -> Double -> Double -> Double | 106 | hyperg_2F0 :: Double -> Double -> Double -> Double |
197 | hyperg_2F0 = gsl_sf_hyperg_2F0 | 107 | hyperg_2F0 = gsl_sf_hyperg_2F0 |
198 | foreign import ccall "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double | 108 | foreign import ccall "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Laguerre.hs b/lib/Numeric/GSL/Special/Laguerre.hs index 71d2e49..3e4c486 100644 --- a/lib/Numeric/GSL/Special/Laguerre.hs +++ b/lib/Numeric/GSL/Special/Laguerre.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Laguerre | 3 | -- Module : Numeric.GSL.Special.Laguerre |
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_laguerre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_laguerre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Laguerre( | 15 | module Numeric.GSL.Special.Laguerre( |
@@ -28,59 +26,27 @@ module Numeric.GSL.Special.Laguerre( | |||
28 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
29 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
30 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
31 | |||
32 | -- | wrapper for int gsl_sf_laguerre_1_e(double a,double x,gsl_sf_result* result); | ||
33 | -- | ||
34 | -- <http://www.google.com/search?q=gsl_sf_laguerre_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
35 | laguerre_1_e :: Double -> Double -> (Double,Double) | 29 | laguerre_1_e :: Double -> Double -> (Double,Double) |
36 | laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x | 30 | laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x |
37 | foreign import ccall "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt | 31 | foreign import ccall "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt |
38 | |||
39 | -- | wrapper for int gsl_sf_laguerre_2_e(double a,double x,gsl_sf_result* result); | ||
40 | -- | ||
41 | -- <http://www.google.com/search?q=gsl_sf_laguerre_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
42 | laguerre_2_e :: Double -> Double -> (Double,Double) | 32 | laguerre_2_e :: Double -> Double -> (Double,Double) |
43 | laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x | 33 | laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x |
44 | foreign import ccall "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt | 34 | foreign import ccall "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt |
45 | |||
46 | -- | wrapper for int gsl_sf_laguerre_3_e(double a,double x,gsl_sf_result* result); | ||
47 | -- | ||
48 | -- <http://www.google.com/search?q=gsl_sf_laguerre_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
49 | laguerre_3_e :: Double -> Double -> (Double,Double) | 35 | laguerre_3_e :: Double -> Double -> (Double,Double) |
50 | laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x | 36 | laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x |
51 | foreign import ccall "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt | 37 | foreign import ccall "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt |
52 | |||
53 | -- | wrapper for double gsl_sf_laguerre_1(double a,double x); | ||
54 | -- | ||
55 | -- <http://www.google.com/search?q=gsl_sf_laguerre_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
56 | laguerre_1 :: Double -> Double -> Double | 38 | laguerre_1 :: Double -> Double -> Double |
57 | laguerre_1 = gsl_sf_laguerre_1 | 39 | laguerre_1 = gsl_sf_laguerre_1 |
58 | foreign import ccall "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double | 40 | foreign import ccall "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double |
59 | |||
60 | -- | wrapper for double gsl_sf_laguerre_2(double a,double x); | ||
61 | -- | ||
62 | -- <http://www.google.com/search?q=gsl_sf_laguerre_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
63 | laguerre_2 :: Double -> Double -> Double | 41 | laguerre_2 :: Double -> Double -> Double |
64 | laguerre_2 = gsl_sf_laguerre_2 | 42 | laguerre_2 = gsl_sf_laguerre_2 |
65 | foreign import ccall "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double | 43 | foreign import ccall "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double |
66 | |||
67 | -- | wrapper for double gsl_sf_laguerre_3(double a,double x); | ||
68 | -- | ||
69 | -- <http://www.google.com/search?q=gsl_sf_laguerre_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
70 | laguerre_3 :: Double -> Double -> Double | 44 | laguerre_3 :: Double -> Double -> Double |
71 | laguerre_3 = gsl_sf_laguerre_3 | 45 | laguerre_3 = gsl_sf_laguerre_3 |
72 | foreign import ccall "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double | 46 | foreign import ccall "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double |
73 | |||
74 | -- | wrapper for int gsl_sf_laguerre_n_e(int n,double a,double x,gsl_sf_result* result); | ||
75 | -- | ||
76 | -- <http://www.google.com/search?q=gsl_sf_laguerre_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
77 | laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) | 47 | laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) |
78 | laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x | 48 | laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x |
79 | foreign import ccall "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 49 | foreign import ccall "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
80 | |||
81 | -- | wrapper for double gsl_sf_laguerre_n(int n,double a,double x); | ||
82 | -- | ||
83 | -- <http://www.google.com/search?q=gsl_sf_laguerre_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
84 | laguerre_n :: CInt -> Double -> Double -> Double | 50 | laguerre_n :: CInt -> Double -> Double -> Double |
85 | laguerre_n = gsl_sf_laguerre_n | 51 | laguerre_n = gsl_sf_laguerre_n |
86 | foreign import ccall "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double | 52 | foreign import ccall "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Lambert.hs b/lib/Numeric/GSL/Special/Lambert.hs index 3ea0596..7bc820c 100644 --- a/lib/Numeric/GSL/Special/Lambert.hs +++ b/lib/Numeric/GSL/Special/Lambert.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Lambert | 3 | -- Module : Numeric.GSL.Special.Lambert |
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_lambert.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_lambert.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Lambert( | 15 | module Numeric.GSL.Special.Lambert( |
@@ -24,31 +22,15 @@ module Numeric.GSL.Special.Lambert( | |||
24 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
25 | import Foreign.C.Types(CInt) | 23 | import Foreign.C.Types(CInt) |
26 | import Numeric.GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
27 | |||
28 | -- | wrapper for int gsl_sf_lambert_W0_e(double x,gsl_sf_result* result); | ||
29 | -- | ||
30 | -- <http://www.google.com/search?q=gsl_sf_lambert_W0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
31 | lambert_W0_e :: Double -> (Double,Double) | 25 | lambert_W0_e :: Double -> (Double,Double) |
32 | lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x | 26 | lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x |
33 | foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt | 27 | foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt |
34 | |||
35 | -- | wrapper for double gsl_sf_lambert_W0(double x); | ||
36 | -- | ||
37 | -- <http://www.google.com/search?q=gsl_sf_lambert_W0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
38 | lambert_W0 :: Double -> Double | 28 | lambert_W0 :: Double -> Double |
39 | lambert_W0 = gsl_sf_lambert_W0 | 29 | lambert_W0 = gsl_sf_lambert_W0 |
40 | foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double | 30 | foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double |
41 | |||
42 | -- | wrapper for int gsl_sf_lambert_Wm1_e(double x,gsl_sf_result* result); | ||
43 | -- | ||
44 | -- <http://www.google.com/search?q=gsl_sf_lambert_Wm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
45 | lambert_Wm1_e :: Double -> (Double,Double) | 31 | lambert_Wm1_e :: Double -> (Double,Double) |
46 | lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x | 32 | lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x |
47 | foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt | 33 | foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt |
48 | |||
49 | -- | wrapper for double gsl_sf_lambert_Wm1(double x); | ||
50 | -- | ||
51 | -- <http://www.google.com/search?q=gsl_sf_lambert_Wm1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
52 | lambert_Wm1 :: Double -> Double | 34 | lambert_Wm1 :: Double -> Double |
53 | lambert_Wm1 = gsl_sf_lambert_Wm1 | 35 | lambert_Wm1 = gsl_sf_lambert_Wm1 |
54 | foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double | 36 | foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Legendre.hs b/lib/Numeric/GSL/Special/Legendre.hs index 97b9543..c2526b9 100644 --- a/lib/Numeric/GSL/Special/Legendre.hs +++ b/lib/Numeric/GSL/Special/Legendre.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Legendre | 3 | -- Module : Numeric.GSL.Special.Legendre |
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_legendre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_legendre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Legendre( | 15 | module Numeric.GSL.Special.Legendre( |
@@ -57,311 +55,135 @@ module Numeric.GSL.Special.Legendre( | |||
57 | import Foreign(Ptr) | 55 | import Foreign(Ptr) |
58 | import Foreign.C.Types(CInt) | 56 | import Foreign.C.Types(CInt) |
59 | import Numeric.GSL.Special.Internal | 57 | import Numeric.GSL.Special.Internal |
60 | |||
61 | -- | wrapper for int gsl_sf_legendre_Pl_e(int l,double x,gsl_sf_result* result); | ||
62 | -- | ||
63 | -- <http://www.google.com/search?q=gsl_sf_legendre_Pl_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
64 | legendre_Pl_e :: CInt -> Double -> (Double,Double) | 58 | legendre_Pl_e :: CInt -> Double -> (Double,Double) |
65 | legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x | 59 | legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x |
66 | foreign import ccall "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt |
67 | |||
68 | -- | wrapper for double gsl_sf_legendre_Pl(int l,double x); | ||
69 | -- | ||
70 | -- <http://www.google.com/search?q=gsl_sf_legendre_Pl&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
71 | legendre_Pl :: CInt -> Double -> Double | 61 | legendre_Pl :: CInt -> Double -> Double |
72 | legendre_Pl = gsl_sf_legendre_Pl | 62 | legendre_Pl = gsl_sf_legendre_Pl |
73 | foreign import ccall "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double | 63 | foreign import ccall "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double |
74 | |||
75 | -- | wrapper for int gsl_sf_legendre_Pl_array(int lmax,double x,double* result_array); | ||
76 | -- | ||
77 | -- <http://www.google.com/search?q=gsl_sf_legendre_Pl_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
78 | legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | 64 | legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt |
79 | legendre_Pl_array = gsl_sf_legendre_Pl_array | 65 | legendre_Pl_array = gsl_sf_legendre_Pl_array |
80 | foreign import ccall "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | 66 | foreign import ccall "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt |
81 | |||
82 | -- | wrapper for int gsl_sf_legendre_Pl_deriv_array(int lmax,double x,double* result_array,double* result_deriv_array); | ||
83 | -- | ||
84 | -- <http://www.google.com/search?q=gsl_sf_legendre_Pl_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
85 | legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 67 | legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
86 | legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array | 68 | legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array |
87 | foreign import ccall "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 69 | foreign import ccall "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
88 | |||
89 | -- | wrapper for int gsl_sf_legendre_P1_e(double x,gsl_sf_result* result); | ||
90 | -- | ||
91 | -- <http://www.google.com/search?q=gsl_sf_legendre_P1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
92 | legendre_P1_e :: Double -> (Double,Double) | 70 | legendre_P1_e :: Double -> (Double,Double) |
93 | legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x | 71 | legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x |
94 | foreign import ccall "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt | 72 | foreign import ccall "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt |
95 | |||
96 | -- | wrapper for int gsl_sf_legendre_P2_e(double x,gsl_sf_result* result); | ||
97 | -- | ||
98 | -- <http://www.google.com/search?q=gsl_sf_legendre_P2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
99 | legendre_P2_e :: Double -> (Double,Double) | 73 | legendre_P2_e :: Double -> (Double,Double) |
100 | legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x | 74 | legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x |
101 | foreign import ccall "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt | 75 | foreign import ccall "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt |
102 | |||
103 | -- | wrapper for int gsl_sf_legendre_P3_e(double x,gsl_sf_result* result); | ||
104 | -- | ||
105 | -- <http://www.google.com/search?q=gsl_sf_legendre_P3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
106 | legendre_P3_e :: Double -> (Double,Double) | 76 | legendre_P3_e :: Double -> (Double,Double) |
107 | legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x | 77 | legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x |
108 | foreign import ccall "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt | 78 | foreign import ccall "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt |
109 | |||
110 | -- | wrapper for double gsl_sf_legendre_P1(double x); | ||
111 | -- | ||
112 | -- <http://www.google.com/search?q=gsl_sf_legendre_P1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
113 | legendre_P1 :: Double -> Double | 79 | legendre_P1 :: Double -> Double |
114 | legendre_P1 = gsl_sf_legendre_P1 | 80 | legendre_P1 = gsl_sf_legendre_P1 |
115 | foreign import ccall "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double | 81 | foreign import ccall "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double |
116 | |||
117 | -- | wrapper for double gsl_sf_legendre_P2(double x); | ||
118 | -- | ||
119 | -- <http://www.google.com/search?q=gsl_sf_legendre_P2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
120 | legendre_P2 :: Double -> Double | 82 | legendre_P2 :: Double -> Double |
121 | legendre_P2 = gsl_sf_legendre_P2 | 83 | legendre_P2 = gsl_sf_legendre_P2 |
122 | foreign import ccall "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double | 84 | foreign import ccall "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double |
123 | |||
124 | -- | wrapper for double gsl_sf_legendre_P3(double x); | ||
125 | -- | ||
126 | -- <http://www.google.com/search?q=gsl_sf_legendre_P3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
127 | legendre_P3 :: Double -> Double | 85 | legendre_P3 :: Double -> Double |
128 | legendre_P3 = gsl_sf_legendre_P3 | 86 | legendre_P3 = gsl_sf_legendre_P3 |
129 | foreign import ccall "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double | 87 | foreign import ccall "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double |
130 | |||
131 | -- | wrapper for int gsl_sf_legendre_Q0_e(double x,gsl_sf_result* result); | ||
132 | -- | ||
133 | -- <http://www.google.com/search?q=gsl_sf_legendre_Q0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
134 | legendre_Q0_e :: Double -> (Double,Double) | 88 | legendre_Q0_e :: Double -> (Double,Double) |
135 | legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x | 89 | legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x |
136 | foreign import ccall "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt | 90 | foreign import ccall "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt |
137 | |||
138 | -- | wrapper for double gsl_sf_legendre_Q0(double x); | ||
139 | -- | ||
140 | -- <http://www.google.com/search?q=gsl_sf_legendre_Q0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
141 | legendre_Q0 :: Double -> Double | 91 | legendre_Q0 :: Double -> Double |
142 | legendre_Q0 = gsl_sf_legendre_Q0 | 92 | legendre_Q0 = gsl_sf_legendre_Q0 |
143 | foreign import ccall "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double | 93 | foreign import ccall "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double |
144 | |||
145 | -- | wrapper for int gsl_sf_legendre_Q1_e(double x,gsl_sf_result* result); | ||
146 | -- | ||
147 | -- <http://www.google.com/search?q=gsl_sf_legendre_Q1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
148 | legendre_Q1_e :: Double -> (Double,Double) | 94 | legendre_Q1_e :: Double -> (Double,Double) |
149 | legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x | 95 | legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x |
150 | foreign import ccall "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt | 96 | foreign import ccall "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt |
151 | |||
152 | -- | wrapper for double gsl_sf_legendre_Q1(double x); | ||
153 | -- | ||
154 | -- <http://www.google.com/search?q=gsl_sf_legendre_Q1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
155 | legendre_Q1 :: Double -> Double | 97 | legendre_Q1 :: Double -> Double |
156 | legendre_Q1 = gsl_sf_legendre_Q1 | 98 | legendre_Q1 = gsl_sf_legendre_Q1 |
157 | foreign import ccall "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double | 99 | foreign import ccall "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double |
158 | |||
159 | -- | wrapper for int gsl_sf_legendre_Ql_e(int l,double x,gsl_sf_result* result); | ||
160 | -- | ||
161 | -- <http://www.google.com/search?q=gsl_sf_legendre_Ql_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
162 | legendre_Ql_e :: CInt -> Double -> (Double,Double) | 100 | legendre_Ql_e :: CInt -> Double -> (Double,Double) |
163 | legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x | 101 | legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x |
164 | foreign import ccall "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt | 102 | foreign import ccall "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt |
165 | |||
166 | -- | wrapper for double gsl_sf_legendre_Ql(int l,double x); | ||
167 | -- | ||
168 | -- <http://www.google.com/search?q=gsl_sf_legendre_Ql&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
169 | legendre_Ql :: CInt -> Double -> Double | 103 | legendre_Ql :: CInt -> Double -> Double |
170 | legendre_Ql = gsl_sf_legendre_Ql | 104 | legendre_Ql = gsl_sf_legendre_Ql |
171 | foreign import ccall "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double | 105 | foreign import ccall "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double |
172 | |||
173 | -- | wrapper for int gsl_sf_legendre_Plm_e(int l,int m,double x,gsl_sf_result* result); | ||
174 | -- | ||
175 | -- <http://www.google.com/search?q=gsl_sf_legendre_Plm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
176 | legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) | 106 | legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) |
177 | legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x | 107 | legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x |
178 | foreign import ccall "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 108 | foreign import ccall "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
179 | |||
180 | -- | wrapper for double gsl_sf_legendre_Plm(int l,int m,double x); | ||
181 | -- | ||
182 | -- <http://www.google.com/search?q=gsl_sf_legendre_Plm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
183 | legendre_Plm :: CInt -> CInt -> Double -> Double | 109 | legendre_Plm :: CInt -> CInt -> Double -> Double |
184 | legendre_Plm = gsl_sf_legendre_Plm | 110 | legendre_Plm = gsl_sf_legendre_Plm |
185 | foreign import ccall "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double | 111 | foreign import ccall "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double |
186 | |||
187 | -- | wrapper for int gsl_sf_legendre_Plm_array(int lmax,int m,double x,double* result_array); | ||
188 | -- | ||
189 | -- <http://www.google.com/search?q=gsl_sf_legendre_Plm_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
190 | legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 112 | legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
191 | legendre_Plm_array = gsl_sf_legendre_Plm_array | 113 | legendre_Plm_array = gsl_sf_legendre_Plm_array |
192 | foreign import ccall "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 114 | foreign import ccall "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
193 | |||
194 | -- | wrapper for int gsl_sf_legendre_Plm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); | ||
195 | -- | ||
196 | -- <http://www.google.com/search?q=gsl_sf_legendre_Plm_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
197 | legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 115 | legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
198 | legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array | 116 | legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array |
199 | foreign import ccall "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 117 | foreign import ccall "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
200 | |||
201 | -- | wrapper for int gsl_sf_legendre_sphPlm_e(int l,int m,double x,gsl_sf_result* result); | ||
202 | -- | ||
203 | -- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
204 | legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) | 118 | legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) |
205 | legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x | 119 | legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x |
206 | foreign import ccall "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 120 | foreign import ccall "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
207 | |||
208 | -- | wrapper for double gsl_sf_legendre_sphPlm(int l,int m,double x); | ||
209 | -- | ||
210 | -- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
211 | legendre_sphPlm :: CInt -> CInt -> Double -> Double | 121 | legendre_sphPlm :: CInt -> CInt -> Double -> Double |
212 | legendre_sphPlm = gsl_sf_legendre_sphPlm | 122 | legendre_sphPlm = gsl_sf_legendre_sphPlm |
213 | foreign import ccall "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double | 123 | foreign import ccall "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double |
214 | |||
215 | -- | wrapper for int gsl_sf_legendre_sphPlm_array(int lmax,int m,double x,double* result_array); | ||
216 | -- | ||
217 | -- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
218 | legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 124 | legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
219 | legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array | 125 | legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array |
220 | foreign import ccall "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 126 | foreign import ccall "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
221 | |||
222 | -- | wrapper for int gsl_sf_legendre_sphPlm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); | ||
223 | -- | ||
224 | -- <http://www.google.com/search?q=gsl_sf_legendre_sphPlm_deriv_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
225 | legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 127 | legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
226 | legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array | 128 | legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array |
227 | foreign import ccall "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 129 | foreign import ccall "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
228 | |||
229 | -- | wrapper for int gsl_sf_legendre_array_size(int lmax,int m); | ||
230 | -- | ||
231 | -- <http://www.google.com/search?q=gsl_sf_legendre_array_size&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
232 | legendre_array_size :: CInt -> CInt -> CInt | 130 | legendre_array_size :: CInt -> CInt -> CInt |
233 | legendre_array_size = gsl_sf_legendre_array_size | 131 | legendre_array_size = gsl_sf_legendre_array_size |
234 | foreign import ccall "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt | 132 | foreign import ccall "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt |
235 | |||
236 | -- | wrapper for int gsl_sf_conicalP_half_e(double lambda,double x,gsl_sf_result* result); | ||
237 | -- | ||
238 | -- <http://www.google.com/search?q=gsl_sf_conicalP_half_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
239 | conicalP_half_e :: Double -> Double -> (Double,Double) | 133 | conicalP_half_e :: Double -> Double -> (Double,Double) |
240 | conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x | 134 | conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x |
241 | foreign import ccall "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt | 135 | foreign import ccall "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt |
242 | |||
243 | -- | wrapper for double gsl_sf_conicalP_half(double lambda,double x); | ||
244 | -- | ||
245 | -- <http://www.google.com/search?q=gsl_sf_conicalP_half&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
246 | conicalP_half :: Double -> Double -> Double | 136 | conicalP_half :: Double -> Double -> Double |
247 | conicalP_half = gsl_sf_conicalP_half | 137 | conicalP_half = gsl_sf_conicalP_half |
248 | foreign import ccall "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double | 138 | foreign import ccall "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double |
249 | |||
250 | -- | wrapper for int gsl_sf_conicalP_mhalf_e(double lambda,double x,gsl_sf_result* result); | ||
251 | -- | ||
252 | -- <http://www.google.com/search?q=gsl_sf_conicalP_mhalf_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
253 | conicalP_mhalf_e :: Double -> Double -> (Double,Double) | 139 | conicalP_mhalf_e :: Double -> Double -> (Double,Double) |
254 | conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x | 140 | conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x |
255 | foreign import ccall "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt | 141 | foreign import ccall "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt |
256 | |||
257 | -- | wrapper for double gsl_sf_conicalP_mhalf(double lambda,double x); | ||
258 | -- | ||
259 | -- <http://www.google.com/search?q=gsl_sf_conicalP_mhalf&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
260 | conicalP_mhalf :: Double -> Double -> Double | 142 | conicalP_mhalf :: Double -> Double -> Double |
261 | conicalP_mhalf = gsl_sf_conicalP_mhalf | 143 | conicalP_mhalf = gsl_sf_conicalP_mhalf |
262 | foreign import ccall "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double | 144 | foreign import ccall "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double |
263 | |||
264 | -- | wrapper for int gsl_sf_conicalP_0_e(double lambda,double x,gsl_sf_result* result); | ||
265 | -- | ||
266 | -- <http://www.google.com/search?q=gsl_sf_conicalP_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
267 | conicalP_0_e :: Double -> Double -> (Double,Double) | 145 | conicalP_0_e :: Double -> Double -> (Double,Double) |
268 | conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x | 146 | conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x |
269 | foreign import ccall "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt | 147 | foreign import ccall "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt |
270 | |||
271 | -- | wrapper for double gsl_sf_conicalP_0(double lambda,double x); | ||
272 | -- | ||
273 | -- <http://www.google.com/search?q=gsl_sf_conicalP_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
274 | conicalP_0 :: Double -> Double -> Double | 148 | conicalP_0 :: Double -> Double -> Double |
275 | conicalP_0 = gsl_sf_conicalP_0 | 149 | conicalP_0 = gsl_sf_conicalP_0 |
276 | foreign import ccall "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double | 150 | foreign import ccall "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double |
277 | |||
278 | -- | wrapper for int gsl_sf_conicalP_1_e(double lambda,double x,gsl_sf_result* result); | ||
279 | -- | ||
280 | -- <http://www.google.com/search?q=gsl_sf_conicalP_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
281 | conicalP_1_e :: Double -> Double -> (Double,Double) | 151 | conicalP_1_e :: Double -> Double -> (Double,Double) |
282 | conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x | 152 | conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x |
283 | foreign import ccall "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt | 153 | foreign import ccall "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt |
284 | |||
285 | -- | wrapper for double gsl_sf_conicalP_1(double lambda,double x); | ||
286 | -- | ||
287 | -- <http://www.google.com/search?q=gsl_sf_conicalP_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
288 | conicalP_1 :: Double -> Double -> Double | 154 | conicalP_1 :: Double -> Double -> Double |
289 | conicalP_1 = gsl_sf_conicalP_1 | 155 | conicalP_1 = gsl_sf_conicalP_1 |
290 | foreign import ccall "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double | 156 | foreign import ccall "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double |
291 | |||
292 | -- | wrapper for int gsl_sf_conicalP_sph_reg_e(int l,double lambda,double x,gsl_sf_result* result); | ||
293 | -- | ||
294 | -- <http://www.google.com/search?q=gsl_sf_conicalP_sph_reg_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
295 | conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) | 157 | conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) |
296 | conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x | 158 | conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x |
297 | foreign import ccall "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 159 | foreign import ccall "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
298 | |||
299 | -- | wrapper for double gsl_sf_conicalP_sph_reg(int l,double lambda,double x); | ||
300 | -- | ||
301 | -- <http://www.google.com/search?q=gsl_sf_conicalP_sph_reg&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
302 | conicalP_sph_reg :: CInt -> Double -> Double -> Double | 160 | conicalP_sph_reg :: CInt -> Double -> Double -> Double |
303 | conicalP_sph_reg = gsl_sf_conicalP_sph_reg | 161 | conicalP_sph_reg = gsl_sf_conicalP_sph_reg |
304 | foreign import ccall "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double | 162 | foreign import ccall "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double |
305 | |||
306 | -- | wrapper for int gsl_sf_conicalP_cyl_reg_e(int m,double lambda,double x,gsl_sf_result* result); | ||
307 | -- | ||
308 | -- <http://www.google.com/search?q=gsl_sf_conicalP_cyl_reg_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
309 | conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) | 163 | conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) |
310 | conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x | 164 | conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x |
311 | foreign import ccall "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 165 | foreign import ccall "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
312 | |||
313 | -- | wrapper for double gsl_sf_conicalP_cyl_reg(int m,double lambda,double x); | ||
314 | -- | ||
315 | -- <http://www.google.com/search?q=gsl_sf_conicalP_cyl_reg&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
316 | conicalP_cyl_reg :: CInt -> Double -> Double -> Double | 166 | conicalP_cyl_reg :: CInt -> Double -> Double -> Double |
317 | conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg | 167 | conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg |
318 | foreign import ccall "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double | 168 | foreign import ccall "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double |
319 | |||
320 | -- | wrapper for int gsl_sf_legendre_H3d_0_e(double lambda,double eta,gsl_sf_result* result); | ||
321 | -- | ||
322 | -- <http://www.google.com/search?q=gsl_sf_legendre_H3d_0_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
323 | legendre_H3d_0_e :: Double -> Double -> (Double,Double) | 169 | legendre_H3d_0_e :: Double -> Double -> (Double,Double) |
324 | legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta | 170 | legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta |
325 | foreign import ccall "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt | 171 | foreign import ccall "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt |
326 | |||
327 | -- | wrapper for double gsl_sf_legendre_H3d_0(double lambda,double eta); | ||
328 | -- | ||
329 | -- <http://www.google.com/search?q=gsl_sf_legendre_H3d_0&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
330 | legendre_H3d_0 :: Double -> Double -> Double | 172 | legendre_H3d_0 :: Double -> Double -> Double |
331 | legendre_H3d_0 = gsl_sf_legendre_H3d_0 | 173 | legendre_H3d_0 = gsl_sf_legendre_H3d_0 |
332 | foreign import ccall "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double | 174 | foreign import ccall "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double |
333 | |||
334 | -- | wrapper for int gsl_sf_legendre_H3d_1_e(double lambda,double eta,gsl_sf_result* result); | ||
335 | -- | ||
336 | -- <http://www.google.com/search?q=gsl_sf_legendre_H3d_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
337 | legendre_H3d_1_e :: Double -> Double -> (Double,Double) | 175 | legendre_H3d_1_e :: Double -> Double -> (Double,Double) |
338 | legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta | 176 | legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta |
339 | foreign import ccall "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt | 177 | foreign import ccall "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt |
340 | |||
341 | -- | wrapper for double gsl_sf_legendre_H3d_1(double lambda,double eta); | ||
342 | -- | ||
343 | -- <http://www.google.com/search?q=gsl_sf_legendre_H3d_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
344 | legendre_H3d_1 :: Double -> Double -> Double | 178 | legendre_H3d_1 :: Double -> Double -> Double |
345 | legendre_H3d_1 = gsl_sf_legendre_H3d_1 | 179 | legendre_H3d_1 = gsl_sf_legendre_H3d_1 |
346 | foreign import ccall "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double | 180 | foreign import ccall "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double |
347 | |||
348 | -- | wrapper for int gsl_sf_legendre_H3d_e(int l,double lambda,double eta,gsl_sf_result* result); | ||
349 | -- | ||
350 | -- <http://www.google.com/search?q=gsl_sf_legendre_H3d_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
351 | legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) | 181 | legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) |
352 | legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta | 182 | legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta |
353 | foreign import ccall "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 183 | foreign import ccall "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
354 | |||
355 | -- | wrapper for double gsl_sf_legendre_H3d(int l,double lambda,double eta); | ||
356 | -- | ||
357 | -- <http://www.google.com/search?q=gsl_sf_legendre_H3d&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
358 | legendre_H3d :: CInt -> Double -> Double -> Double | 184 | legendre_H3d :: CInt -> Double -> Double -> Double |
359 | legendre_H3d = gsl_sf_legendre_H3d | 185 | legendre_H3d = gsl_sf_legendre_H3d |
360 | foreign import ccall "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double | 186 | foreign import ccall "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double |
361 | |||
362 | -- | wrapper for int gsl_sf_legendre_H3d_array(int lmax,double lambda,double eta,double* result_array); | ||
363 | -- | ||
364 | -- <http://www.google.com/search?q=gsl_sf_legendre_H3d_array&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
365 | legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 187 | legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
366 | legendre_H3d_array = gsl_sf_legendre_H3d_array | 188 | legendre_H3d_array = gsl_sf_legendre_H3d_array |
367 | foreign import ccall "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 189 | foreign import ccall "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
diff --git a/lib/Numeric/GSL/Special/Log.hs b/lib/Numeric/GSL/Special/Log.hs index 370c5bd..665b74b 100644 --- a/lib/Numeric/GSL/Special/Log.hs +++ b/lib/Numeric/GSL/Special/Log.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Log | 3 | -- Module : Numeric.GSL.Special.Log |
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_log.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_log.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Log( | 15 | module Numeric.GSL.Special.Log( |
@@ -28,66 +26,30 @@ module Numeric.GSL.Special.Log( | |||
28 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
29 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
30 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
31 | |||
32 | -- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result); | ||
33 | -- | ||
34 | -- <http://www.google.com/search?q=gsl_sf_log_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
35 | log_e :: Double -> (Double,Double) | 29 | log_e :: Double -> (Double,Double) |
36 | log_e x = createSFR "log_e" $ gsl_sf_log_e x | 30 | log_e x = createSFR "log_e" $ gsl_sf_log_e x |
37 | foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt | 31 | foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt |
38 | |||
39 | -- | wrapper for double gsl_sf_log(double x); | ||
40 | -- | ||
41 | -- <http://www.google.com/search?q=gsl_sf_log&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
42 | log :: Double -> Double | 32 | log :: Double -> Double |
43 | log = gsl_sf_log | 33 | log = gsl_sf_log |
44 | foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double | 34 | foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double |
45 | |||
46 | -- | wrapper for int gsl_sf_log_abs_e(double x,gsl_sf_result* result); | ||
47 | -- | ||
48 | -- <http://www.google.com/search?q=gsl_sf_log_abs_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
49 | log_abs_e :: Double -> (Double,Double) | 35 | log_abs_e :: Double -> (Double,Double) |
50 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x | 36 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x |
51 | foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt | 37 | foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt |
52 | |||
53 | -- | wrapper for double gsl_sf_log_abs(double x); | ||
54 | -- | ||
55 | -- <http://www.google.com/search?q=gsl_sf_log_abs&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
56 | log_abs :: Double -> Double | 38 | log_abs :: Double -> Double |
57 | log_abs = gsl_sf_log_abs | 39 | log_abs = gsl_sf_log_abs |
58 | foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | 40 | foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double |
59 | |||
60 | -- | wrapper for int gsl_sf_complex_log_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* theta); | ||
61 | -- | ||
62 | -- <http://www.google.com/search?q=gsl_sf_complex_log_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
63 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) | 41 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) |
64 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr | 42 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr |
65 | foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 43 | foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
66 | |||
67 | -- | wrapper for int gsl_sf_log_1plusx_e(double x,gsl_sf_result* result); | ||
68 | -- | ||
69 | -- <http://www.google.com/search?q=gsl_sf_log_1plusx_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
70 | log_1plusx_e :: Double -> (Double,Double) | 44 | log_1plusx_e :: Double -> (Double,Double) |
71 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x | 45 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x |
72 | foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt | 46 | foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt |
73 | |||
74 | -- | wrapper for double gsl_sf_log_1plusx(double x); | ||
75 | -- | ||
76 | -- <http://www.google.com/search?q=gsl_sf_log_1plusx&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
77 | log_1plusx :: Double -> Double | 47 | log_1plusx :: Double -> Double |
78 | log_1plusx = gsl_sf_log_1plusx | 48 | log_1plusx = gsl_sf_log_1plusx |
79 | foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double | 49 | foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double |
80 | |||
81 | -- | wrapper for int gsl_sf_log_1plusx_mx_e(double x,gsl_sf_result* result); | ||
82 | -- | ||
83 | -- <http://www.google.com/search?q=gsl_sf_log_1plusx_mx_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
84 | log_1plusx_mx_e :: Double -> (Double,Double) | 50 | log_1plusx_mx_e :: Double -> (Double,Double) |
85 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x | 51 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x |
86 | foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt |
87 | |||
88 | -- | wrapper for double gsl_sf_log_1plusx_mx(double x); | ||
89 | -- | ||
90 | -- <http://www.google.com/search?q=gsl_sf_log_1plusx_mx&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
91 | log_1plusx_mx :: Double -> Double | 53 | log_1plusx_mx :: Double -> Double |
92 | log_1plusx_mx = gsl_sf_log_1plusx_mx | 54 | log_1plusx_mx = gsl_sf_log_1plusx_mx |
93 | foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double | 55 | foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Pow_int.hs b/lib/Numeric/GSL/Special/Pow_int.hs index a1a1066..d6c77b2 100644 --- a/lib/Numeric/GSL/Special/Pow_int.hs +++ b/lib/Numeric/GSL/Special/Pow_int.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Pow_int | 3 | -- Module : Numeric.GSL.Special.Pow_int |
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_pow_int.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_pow_int.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Pow_int( | 15 | module Numeric.GSL.Special.Pow_int( |
@@ -22,17 +20,9 @@ module Numeric.GSL.Special.Pow_int( | |||
22 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
25 | |||
26 | -- | wrapper for int gsl_sf_pow_int_e(double x,int n,gsl_sf_result* result); | ||
27 | -- | ||
28 | -- <http://www.google.com/search?q=gsl_sf_pow_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
29 | pow_int_e :: Double -> CInt -> (Double,Double) | 23 | pow_int_e :: Double -> CInt -> (Double,Double) |
30 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n | 24 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n |
31 | foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt | 25 | foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt |
32 | |||
33 | -- | wrapper for double gsl_sf_pow_int(double x,int n); | ||
34 | -- | ||
35 | -- <http://www.google.com/search?q=gsl_sf_pow_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
36 | pow_int :: Double -> CInt -> Double | 26 | pow_int :: Double -> CInt -> Double |
37 | pow_int = gsl_sf_pow_int | 27 | pow_int = gsl_sf_pow_int |
38 | foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double | 28 | foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double |
diff --git a/lib/Numeric/GSL/Special/Psi.hs b/lib/Numeric/GSL/Special/Psi.hs index 2bd2848..871365c 100644 --- a/lib/Numeric/GSL/Special/Psi.hs +++ b/lib/Numeric/GSL/Special/Psi.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Psi | 3 | -- Module : Numeric.GSL.Special.Psi |
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_psi.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_psi.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Psi( | 15 | module Numeric.GSL.Special.Psi( |
@@ -32,94 +30,42 @@ module Numeric.GSL.Special.Psi( | |||
32 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
33 | import Foreign.C.Types(CInt) | 31 | import Foreign.C.Types(CInt) |
34 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
35 | |||
36 | -- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result); | ||
37 | -- | ||
38 | -- <http://www.google.com/search?q=gsl_sf_psi_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
39 | psi_int_e :: CInt -> (Double,Double) | 33 | psi_int_e :: CInt -> (Double,Double) |
40 | psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n | 34 | psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n |
41 | foreign import ccall "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt | 35 | foreign import ccall "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt |
42 | |||
43 | -- | wrapper for double gsl_sf_psi_int(int n); | ||
44 | -- | ||
45 | -- <http://www.google.com/search?q=gsl_sf_psi_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
46 | psi_int :: CInt -> Double | 36 | psi_int :: CInt -> Double |
47 | psi_int = gsl_sf_psi_int | 37 | psi_int = gsl_sf_psi_int |
48 | foreign import ccall "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double | 38 | foreign import ccall "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double |
49 | |||
50 | -- | wrapper for int gsl_sf_psi_e(double x,gsl_sf_result* result); | ||
51 | -- | ||
52 | -- <http://www.google.com/search?q=gsl_sf_psi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
53 | psi_e :: Double -> (Double,Double) | 39 | psi_e :: Double -> (Double,Double) |
54 | psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x | 40 | psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x |
55 | foreign import ccall "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt |
56 | |||
57 | -- | wrapper for double gsl_sf_psi(double x); | ||
58 | -- | ||
59 | -- <http://www.google.com/search?q=gsl_sf_psi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
60 | psi :: Double -> Double | 42 | psi :: Double -> Double |
61 | psi = gsl_sf_psi | 43 | psi = gsl_sf_psi |
62 | foreign import ccall "gsl_sf_psi" gsl_sf_psi :: Double -> Double | 44 | foreign import ccall "gsl_sf_psi" gsl_sf_psi :: Double -> Double |
63 | |||
64 | -- | wrapper for int gsl_sf_psi_1piy_e(double y,gsl_sf_result* result); | ||
65 | -- | ||
66 | -- <http://www.google.com/search?q=gsl_sf_psi_1piy_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | psi_1piy_e :: Double -> (Double,Double) | 45 | psi_1piy_e :: Double -> (Double,Double) |
68 | psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y | 46 | psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y |
69 | foreign import ccall "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt |
70 | |||
71 | -- | wrapper for double gsl_sf_psi_1piy(double y); | ||
72 | -- | ||
73 | -- <http://www.google.com/search?q=gsl_sf_psi_1piy&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
74 | psi_1piy :: Double -> Double | 48 | psi_1piy :: Double -> Double |
75 | psi_1piy = gsl_sf_psi_1piy | 49 | psi_1piy = gsl_sf_psi_1piy |
76 | foreign import ccall "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double | 50 | foreign import ccall "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double |
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> | ||
81 | complex_psi_e :: Double -> Double -> Ptr () -> (Double,Double) | 51 | complex_psi_e :: Double -> Double -> Ptr () -> (Double,Double) |
82 | complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re | 52 | complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re |
83 | foreign import ccall "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 53 | foreign import ccall "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
84 | |||
85 | -- | wrapper for int gsl_sf_psi_1_int_e(int n,gsl_sf_result* result); | ||
86 | -- | ||
87 | -- <http://www.google.com/search?q=gsl_sf_psi_1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | psi_1_int_e :: CInt -> (Double,Double) | 54 | psi_1_int_e :: CInt -> (Double,Double) |
89 | psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n | 55 | psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n |
90 | foreign import ccall "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt | 56 | foreign import ccall "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt |
91 | |||
92 | -- | wrapper for double gsl_sf_psi_1_int(int n); | ||
93 | -- | ||
94 | -- <http://www.google.com/search?q=gsl_sf_psi_1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
95 | psi_1_int :: CInt -> Double | 57 | psi_1_int :: CInt -> Double |
96 | psi_1_int = gsl_sf_psi_1_int | 58 | psi_1_int = gsl_sf_psi_1_int |
97 | foreign import ccall "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double | 59 | foreign import ccall "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double |
98 | |||
99 | -- | wrapper for int gsl_sf_psi_1_e(double x,gsl_sf_result* result); | ||
100 | -- | ||
101 | -- <http://www.google.com/search?q=gsl_sf_psi_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
102 | psi_1_e :: Double -> (Double,Double) | 60 | psi_1_e :: Double -> (Double,Double) |
103 | psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x | 61 | psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x |
104 | foreign import ccall "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt | 62 | foreign import ccall "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt |
105 | |||
106 | -- | wrapper for double gsl_sf_psi_1(double x); | ||
107 | -- | ||
108 | -- <http://www.google.com/search?q=gsl_sf_psi_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
109 | psi_1 :: Double -> Double | 63 | psi_1 :: Double -> Double |
110 | psi_1 = gsl_sf_psi_1 | 64 | psi_1 = gsl_sf_psi_1 |
111 | foreign import ccall "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double | 65 | foreign import ccall "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double |
112 | |||
113 | -- | wrapper for int gsl_sf_psi_n_e(int n,double x,gsl_sf_result* result); | ||
114 | -- | ||
115 | -- <http://www.google.com/search?q=gsl_sf_psi_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
116 | psi_n_e :: CInt -> Double -> (Double,Double) | 66 | psi_n_e :: CInt -> Double -> (Double,Double) |
117 | psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x | 67 | psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x |
118 | foreign import ccall "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt | 68 | foreign import ccall "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt |
119 | |||
120 | -- | wrapper for double gsl_sf_psi_n(int n,double x); | ||
121 | -- | ||
122 | -- <http://www.google.com/search?q=gsl_sf_psi_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
123 | psi_n :: CInt -> Double -> Double | 69 | psi_n :: CInt -> Double -> Double |
124 | psi_n = gsl_sf_psi_n | 70 | psi_n = gsl_sf_psi_n |
125 | foreign import ccall "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double | 71 | foreign import ccall "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Synchrotron.hs b/lib/Numeric/GSL/Special/Synchrotron.hs index 7f2785d..6103a8a 100644 --- a/lib/Numeric/GSL/Special/Synchrotron.hs +++ b/lib/Numeric/GSL/Special/Synchrotron.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Synchrotron | 3 | -- Module : Numeric.GSL.Special.Synchrotron |
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_synchrotron.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_synchrotron.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Synchrotron( | 15 | module Numeric.GSL.Special.Synchrotron( |
@@ -24,31 +22,15 @@ module Numeric.GSL.Special.Synchrotron( | |||
24 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
25 | import Foreign.C.Types(CInt) | 23 | import Foreign.C.Types(CInt) |
26 | import Numeric.GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
27 | |||
28 | -- | wrapper for int gsl_sf_synchrotron_1_e(double x,gsl_sf_result* result); | ||
29 | -- | ||
30 | -- <http://www.google.com/search?q=gsl_sf_synchrotron_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
31 | synchrotron_1_e :: Double -> (Double,Double) | 25 | synchrotron_1_e :: Double -> (Double,Double) |
32 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x | 26 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x |
33 | foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt | 27 | foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt |
34 | |||
35 | -- | wrapper for double gsl_sf_synchrotron_1(double x); | ||
36 | -- | ||
37 | -- <http://www.google.com/search?q=gsl_sf_synchrotron_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
38 | synchrotron_1 :: Double -> Double | 28 | synchrotron_1 :: Double -> Double |
39 | synchrotron_1 = gsl_sf_synchrotron_1 | 29 | synchrotron_1 = gsl_sf_synchrotron_1 |
40 | foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double | 30 | foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double |
41 | |||
42 | -- | wrapper for int gsl_sf_synchrotron_2_e(double x,gsl_sf_result* result); | ||
43 | -- | ||
44 | -- <http://www.google.com/search?q=gsl_sf_synchrotron_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
45 | synchrotron_2_e :: Double -> (Double,Double) | 31 | synchrotron_2_e :: Double -> (Double,Double) |
46 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x | 32 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x |
47 | foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt | 33 | foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt |
48 | |||
49 | -- | wrapper for double gsl_sf_synchrotron_2(double x); | ||
50 | -- | ||
51 | -- <http://www.google.com/search?q=gsl_sf_synchrotron_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
52 | synchrotron_2 :: Double -> Double | 34 | synchrotron_2 :: Double -> Double |
53 | synchrotron_2 = gsl_sf_synchrotron_2 | 35 | synchrotron_2 = gsl_sf_synchrotron_2 |
54 | foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double | 36 | foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Transport.hs b/lib/Numeric/GSL/Special/Transport.hs new file mode 100644 index 0000000..3bdf1cf --- /dev/null +++ b/lib/Numeric/GSL/Special/Transport.hs | |||
@@ -0,0 +1,52 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | -- | | ||
3 | -- Module : Numeric.GSL.Special.Transport | ||
4 | -- Copyright : (c) Alberto Ruiz 2006 | ||
5 | -- License : GPL | ||
6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | -- Stability : provisional | ||
8 | -- Portability : uses ffi | ||
9 | -- | ||
10 | -- Wrappers for selected functions described at: | ||
11 | -- | ||
12 | -- <http://www.google.com/search?q=gsl_sf_transport.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module Numeric.GSL.Special.Transport( | ||
16 | transport_2_e | ||
17 | , transport_2 | ||
18 | , transport_3_e | ||
19 | , transport_3 | ||
20 | , transport_4_e | ||
21 | , transport_4 | ||
22 | , transport_5_e | ||
23 | , transport_5 | ||
24 | ) where | ||
25 | |||
26 | import Foreign(Ptr) | ||
27 | import Foreign.C.Types(CInt) | ||
28 | import Numeric.GSL.Special.Internal | ||
29 | transport_2_e :: Double -> (Double,Double) | ||
30 | transport_2_e x = createSFR "transport_2_e" $ gsl_sf_transport_2_e x | ||
31 | foreign import ccall "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt | ||
32 | transport_2 :: Double -> Double | ||
33 | transport_2 = gsl_sf_transport_2 | ||
34 | foreign import ccall "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double | ||
35 | transport_3_e :: Double -> (Double,Double) | ||
36 | transport_3_e x = createSFR "transport_3_e" $ gsl_sf_transport_3_e x | ||
37 | foreign import ccall "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt | ||
38 | transport_3 :: Double -> Double | ||
39 | transport_3 = gsl_sf_transport_3 | ||
40 | foreign import ccall "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double | ||
41 | transport_4_e :: Double -> (Double,Double) | ||
42 | transport_4_e x = createSFR "transport_4_e" $ gsl_sf_transport_4_e x | ||
43 | foreign import ccall "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt | ||
44 | transport_4 :: Double -> Double | ||
45 | transport_4 = gsl_sf_transport_4 | ||
46 | foreign import ccall "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double | ||
47 | transport_5_e :: Double -> (Double,Double) | ||
48 | transport_5_e x = createSFR "transport_5_e" $ gsl_sf_transport_5_e x | ||
49 | foreign import ccall "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt | ||
50 | transport_5 :: Double -> Double | ||
51 | transport_5 = gsl_sf_transport_5 | ||
52 | foreign import ccall "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double | ||
diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs index 1869733..f670070 100644 --- a/lib/Numeric/GSL/Special/Trig.hs +++ b/lib/Numeric/GSL/Special/Trig.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Trig | 3 | -- Module : Numeric.GSL.Special.Trig |
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_trig.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_trig.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Trig( | 15 | module Numeric.GSL.Special.Trig( |
@@ -38,178 +36,78 @@ module Numeric.GSL.Special.Trig( | |||
38 | import Foreign(Ptr) | 36 | import Foreign(Ptr) |
39 | import Foreign.C.Types(CInt) | 37 | import Foreign.C.Types(CInt) |
40 | import Numeric.GSL.Special.Internal | 38 | import Numeric.GSL.Special.Internal |
41 | |||
42 | -- | wrapper for int gsl_sf_sin_e(double x,gsl_sf_result* result); | ||
43 | -- | ||
44 | -- <http://www.google.com/search?q=gsl_sf_sin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
45 | sin_e :: Double -> (Double,Double) | 39 | sin_e :: Double -> (Double,Double) |
46 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x | 40 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x |
47 | foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt |
48 | |||
49 | -- | wrapper for double gsl_sf_sin(double x); | ||
50 | -- | ||
51 | -- <http://www.google.com/search?q=gsl_sf_sin&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
52 | sin :: Double -> Double | 42 | sin :: Double -> Double |
53 | sin = gsl_sf_sin | 43 | sin = gsl_sf_sin |
54 | foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double | 44 | foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double |
55 | |||
56 | -- | wrapper for int gsl_sf_cos_e(double x,gsl_sf_result* result); | ||
57 | -- | ||
58 | -- <http://www.google.com/search?q=gsl_sf_cos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
59 | cos_e :: Double -> (Double,Double) | 45 | cos_e :: Double -> (Double,Double) |
60 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x | 46 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x |
61 | foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt |
62 | |||
63 | -- | wrapper for double gsl_sf_cos(double x); | ||
64 | -- | ||
65 | -- <http://www.google.com/search?q=gsl_sf_cos&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
66 | cos :: Double -> Double | 48 | cos :: Double -> Double |
67 | cos = gsl_sf_cos | 49 | cos = gsl_sf_cos |
68 | foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double | 50 | foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double |
69 | |||
70 | -- | wrapper for int gsl_sf_hypot_e(double x,double y,gsl_sf_result* result); | ||
71 | -- | ||
72 | -- <http://www.google.com/search?q=gsl_sf_hypot_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
73 | hypot_e :: Double -> Double -> (Double,Double) | 51 | hypot_e :: Double -> Double -> (Double,Double) |
74 | hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y | 52 | hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y |
75 | foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt | 53 | foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt |
76 | |||
77 | -- | wrapper for double gsl_sf_hypot(double x,double y); | ||
78 | -- | ||
79 | -- <http://www.google.com/search?q=gsl_sf_hypot&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
80 | hypot :: Double -> Double -> Double | 54 | hypot :: Double -> Double -> Double |
81 | hypot = gsl_sf_hypot | 55 | hypot = gsl_sf_hypot |
82 | foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double | 56 | foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double |
83 | |||
84 | -- | wrapper for int gsl_sf_complex_sin_e(double zr,double zi,gsl_sf_result* szr,gsl_sf_result* szi); | ||
85 | -- | ||
86 | -- <http://www.google.com/search?q=gsl_sf_complex_sin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
87 | complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) | 57 | complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) |
88 | complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr | 58 | complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr |
89 | foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 59 | foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
90 | |||
91 | -- | wrapper for int gsl_sf_complex_cos_e(double zr,double zi,gsl_sf_result* czr,gsl_sf_result* czi); | ||
92 | -- | ||
93 | -- <http://www.google.com/search?q=gsl_sf_complex_cos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
94 | complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) | 60 | complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) |
95 | complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr | 61 | complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr |
96 | foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 62 | foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
97 | |||
98 | -- | wrapper for int gsl_sf_complex_logsin_e(double zr,double zi,gsl_sf_result* lszr,gsl_sf_result* lszi); | ||
99 | -- | ||
100 | -- <http://www.google.com/search?q=gsl_sf_complex_logsin_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
101 | complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) | 63 | complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) |
102 | complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr | 64 | complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr |
103 | foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
104 | |||
105 | -- | wrapper for int gsl_sf_sinc_e(double x,gsl_sf_result* result); | ||
106 | -- | ||
107 | -- <http://www.google.com/search?q=gsl_sf_sinc_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
108 | sinc_e :: Double -> (Double,Double) | 66 | sinc_e :: Double -> (Double,Double) |
109 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x | 67 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x |
110 | foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt | 68 | foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt |
111 | |||
112 | -- | wrapper for double gsl_sf_sinc(double x); | ||
113 | -- | ||
114 | -- <http://www.google.com/search?q=gsl_sf_sinc&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
115 | sinc :: Double -> Double | 69 | sinc :: Double -> Double |
116 | sinc = gsl_sf_sinc | 70 | sinc = gsl_sf_sinc |
117 | foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double | 71 | foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double |
118 | |||
119 | -- | wrapper for int gsl_sf_lnsinh_e(double x,gsl_sf_result* result); | ||
120 | -- | ||
121 | -- <http://www.google.com/search?q=gsl_sf_lnsinh_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
122 | lnsinh_e :: Double -> (Double,Double) | 72 | lnsinh_e :: Double -> (Double,Double) |
123 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x | 73 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x |
124 | foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt | 74 | foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt |
125 | |||
126 | -- | wrapper for double gsl_sf_lnsinh(double x); | ||
127 | -- | ||
128 | -- <http://www.google.com/search?q=gsl_sf_lnsinh&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
129 | lnsinh :: Double -> Double | 75 | lnsinh :: Double -> Double |
130 | lnsinh = gsl_sf_lnsinh | 76 | lnsinh = gsl_sf_lnsinh |
131 | foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double | 77 | foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double |
132 | |||
133 | -- | wrapper for int gsl_sf_lncosh_e(double x,gsl_sf_result* result); | ||
134 | -- | ||
135 | -- <http://www.google.com/search?q=gsl_sf_lncosh_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
136 | lncosh_e :: Double -> (Double,Double) | 78 | lncosh_e :: Double -> (Double,Double) |
137 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x | 79 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x |
138 | foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt | 80 | foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt |
139 | |||
140 | -- | wrapper for double gsl_sf_lncosh(double x); | ||
141 | -- | ||
142 | -- <http://www.google.com/search?q=gsl_sf_lncosh&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
143 | lncosh :: Double -> Double | 81 | lncosh :: Double -> Double |
144 | lncosh = gsl_sf_lncosh | 82 | lncosh = gsl_sf_lncosh |
145 | foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double | 83 | foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double |
146 | |||
147 | -- | wrapper for int gsl_sf_polar_to_rect(double r,double theta,gsl_sf_result* x,gsl_sf_result* y); | ||
148 | -- | ||
149 | -- <http://www.google.com/search?q=gsl_sf_polar_to_rect&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
150 | polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) | 84 | polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) |
151 | polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x | 85 | polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x |
152 | foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 86 | foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
153 | |||
154 | -- | wrapper for int gsl_sf_rect_to_polar(double x,double y,gsl_sf_result* r,gsl_sf_result* theta); | ||
155 | -- | ||
156 | -- <http://www.google.com/search?q=gsl_sf_rect_to_polar&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
157 | rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) | 87 | rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) |
158 | rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r | 88 | rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r |
159 | foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 89 | foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
160 | |||
161 | -- | wrapper for int gsl_sf_sin_err_e(double x,double dx,gsl_sf_result* result); | ||
162 | -- | ||
163 | -- <http://www.google.com/search?q=gsl_sf_sin_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
164 | sin_err_e :: Double -> Double -> (Double,Double) | 90 | sin_err_e :: Double -> Double -> (Double,Double) |
165 | sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx | 91 | sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx |
166 | foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt | 92 | foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt |
167 | |||
168 | -- | wrapper for int gsl_sf_cos_err_e(double x,double dx,gsl_sf_result* result); | ||
169 | -- | ||
170 | -- <http://www.google.com/search?q=gsl_sf_cos_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
171 | cos_err_e :: Double -> Double -> (Double,Double) | 93 | cos_err_e :: Double -> Double -> (Double,Double) |
172 | cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx | 94 | cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx |
173 | foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt | 95 | foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt |
174 | |||
175 | -- | wrapper for int gsl_sf_angle_restrict_symm_e(double* theta); | ||
176 | -- | ||
177 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
178 | angle_restrict_symm_e :: Ptr Double -> CInt | 96 | angle_restrict_symm_e :: Ptr Double -> CInt |
179 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e | 97 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e |
180 | foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt | 98 | foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt |
181 | |||
182 | -- | wrapper for double gsl_sf_angle_restrict_symm(double theta); | ||
183 | -- | ||
184 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
185 | angle_restrict_symm :: Double -> Double | 99 | angle_restrict_symm :: Double -> Double |
186 | angle_restrict_symm = gsl_sf_angle_restrict_symm | 100 | angle_restrict_symm = gsl_sf_angle_restrict_symm |
187 | foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double | 101 | foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double |
188 | |||
189 | -- | wrapper for int gsl_sf_angle_restrict_pos_e(double* theta); | ||
190 | -- | ||
191 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
192 | angle_restrict_pos_e :: Ptr Double -> CInt | 102 | angle_restrict_pos_e :: Ptr Double -> CInt |
193 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e | 103 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e |
194 | foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt | 104 | foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt |
195 | |||
196 | -- | wrapper for double gsl_sf_angle_restrict_pos(double theta); | ||
197 | -- | ||
198 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
199 | angle_restrict_pos :: Double -> Double | 105 | angle_restrict_pos :: Double -> Double |
200 | angle_restrict_pos = gsl_sf_angle_restrict_pos | 106 | angle_restrict_pos = gsl_sf_angle_restrict_pos |
201 | foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double | 107 | foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double |
202 | |||
203 | -- | wrapper for int gsl_sf_angle_restrict_symm_err_e(double theta,gsl_sf_result* result); | ||
204 | -- | ||
205 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_symm_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
206 | angle_restrict_symm_err_e :: Double -> (Double,Double) | 108 | angle_restrict_symm_err_e :: Double -> (Double,Double) |
207 | angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta | 109 | angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta |
208 | foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt | 110 | foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt |
209 | |||
210 | -- | wrapper for int gsl_sf_angle_restrict_pos_err_e(double theta,gsl_sf_result* result); | ||
211 | -- | ||
212 | -- <http://www.google.com/search?q=gsl_sf_angle_restrict_pos_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
213 | angle_restrict_pos_err_e :: Double -> (Double,Double) | 111 | angle_restrict_pos_err_e :: Double -> (Double,Double) |
214 | angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta | 112 | angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta |
215 | foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt | 113 | foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt |
diff --git a/lib/Numeric/GSL/Special/Zeta.hs b/lib/Numeric/GSL/Special/Zeta.hs index a78d0e8..45c0f48 100644 --- a/lib/Numeric/GSL/Special/Zeta.hs +++ b/lib/Numeric/GSL/Special/Zeta.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Zeta | 3 | -- Module : Numeric.GSL.Special.Zeta |
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_zeta.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_zeta.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Zeta( | 15 | module Numeric.GSL.Special.Zeta( |
@@ -34,101 +32,45 @@ module Numeric.GSL.Special.Zeta( | |||
34 | import Foreign(Ptr) | 32 | import Foreign(Ptr) |
35 | import Foreign.C.Types(CInt) | 33 | import Foreign.C.Types(CInt) |
36 | import Numeric.GSL.Special.Internal | 34 | import Numeric.GSL.Special.Internal |
37 | |||
38 | -- | wrapper for int gsl_sf_zeta_int_e(int n,gsl_sf_result* result); | ||
39 | -- | ||
40 | -- <http://www.google.com/search?q=gsl_sf_zeta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
41 | zeta_int_e :: CInt -> (Double,Double) | 35 | zeta_int_e :: CInt -> (Double,Double) |
42 | zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n | 36 | zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n |
43 | foreign import ccall "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt | 37 | foreign import ccall "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt |
44 | |||
45 | -- | wrapper for double gsl_sf_zeta_int(int n); | ||
46 | -- | ||
47 | -- <http://www.google.com/search?q=gsl_sf_zeta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
48 | zeta_int :: CInt -> Double | 38 | zeta_int :: CInt -> Double |
49 | zeta_int = gsl_sf_zeta_int | 39 | zeta_int = gsl_sf_zeta_int |
50 | foreign import ccall "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double | 40 | foreign import ccall "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double |
51 | |||
52 | -- | wrapper for int gsl_sf_zeta_e(double s,gsl_sf_result* result); | ||
53 | -- | ||
54 | -- <http://www.google.com/search?q=gsl_sf_zeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
55 | zeta_e :: Double -> (Double,Double) | 41 | zeta_e :: Double -> (Double,Double) |
56 | zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s | 42 | zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s |
57 | foreign import ccall "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt | 43 | foreign import ccall "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt |
58 | |||
59 | -- | wrapper for double gsl_sf_zeta(double s); | ||
60 | -- | ||
61 | -- <http://www.google.com/search?q=gsl_sf_zeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
62 | zeta :: Double -> Double | 44 | zeta :: Double -> Double |
63 | zeta = gsl_sf_zeta | 45 | zeta = gsl_sf_zeta |
64 | foreign import ccall "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double | 46 | foreign import ccall "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double |
65 | |||
66 | -- | wrapper for int gsl_sf_zetam1_e(double s,gsl_sf_result* result); | ||
67 | -- | ||
68 | -- <http://www.google.com/search?q=gsl_sf_zetam1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
69 | zetam1_e :: Double -> (Double,Double) | 47 | zetam1_e :: Double -> (Double,Double) |
70 | zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s | 48 | zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s |
71 | foreign import ccall "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt | 49 | foreign import ccall "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt |
72 | |||
73 | -- | wrapper for double gsl_sf_zetam1(double s); | ||
74 | -- | ||
75 | -- <http://www.google.com/search?q=gsl_sf_zetam1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
76 | zetam1 :: Double -> Double | 50 | zetam1 :: Double -> Double |
77 | zetam1 = gsl_sf_zetam1 | 51 | zetam1 = gsl_sf_zetam1 |
78 | foreign import ccall "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double | 52 | foreign import ccall "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double |
79 | |||
80 | -- | wrapper for int gsl_sf_zetam1_int_e(int s,gsl_sf_result* result); | ||
81 | -- | ||
82 | -- <http://www.google.com/search?q=gsl_sf_zetam1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
83 | zetam1_int_e :: CInt -> (Double,Double) | 53 | zetam1_int_e :: CInt -> (Double,Double) |
84 | zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s | 54 | zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s |
85 | foreign import ccall "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt | 55 | foreign import ccall "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt |
86 | |||
87 | -- | wrapper for double gsl_sf_zetam1_int(int s); | ||
88 | -- | ||
89 | -- <http://www.google.com/search?q=gsl_sf_zetam1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
90 | zetam1_int :: CInt -> Double | 56 | zetam1_int :: CInt -> Double |
91 | zetam1_int = gsl_sf_zetam1_int | 57 | zetam1_int = gsl_sf_zetam1_int |
92 | foreign import ccall "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double | 58 | foreign import ccall "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double |
93 | |||
94 | -- | wrapper for int gsl_sf_hzeta_e(double s,double q,gsl_sf_result* result); | ||
95 | -- | ||
96 | -- <http://www.google.com/search?q=gsl_sf_hzeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
97 | hzeta_e :: Double -> Double -> (Double,Double) | 59 | hzeta_e :: Double -> Double -> (Double,Double) |
98 | hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q | 60 | hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q |
99 | foreign import ccall "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt | 61 | foreign import ccall "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt |
100 | |||
101 | -- | wrapper for double gsl_sf_hzeta(double s,double q); | ||
102 | -- | ||
103 | -- <http://www.google.com/search?q=gsl_sf_hzeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
104 | hzeta :: Double -> Double -> Double | 62 | hzeta :: Double -> Double -> Double |
105 | hzeta = gsl_sf_hzeta | 63 | hzeta = gsl_sf_hzeta |
106 | foreign import ccall "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double | 64 | foreign import ccall "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double |
107 | |||
108 | -- | wrapper for int gsl_sf_eta_int_e(int n,gsl_sf_result* result); | ||
109 | -- | ||
110 | -- <http://www.google.com/search?q=gsl_sf_eta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
111 | eta_int_e :: CInt -> (Double,Double) | 65 | eta_int_e :: CInt -> (Double,Double) |
112 | eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n | 66 | eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n |
113 | foreign import ccall "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt | 67 | foreign import ccall "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt |
114 | |||
115 | -- | wrapper for double gsl_sf_eta_int(int n); | ||
116 | -- | ||
117 | -- <http://www.google.com/search?q=gsl_sf_eta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
118 | eta_int :: CInt -> Double | 68 | eta_int :: CInt -> Double |
119 | eta_int = gsl_sf_eta_int | 69 | eta_int = gsl_sf_eta_int |
120 | foreign import ccall "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double | 70 | foreign import ccall "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double |
121 | |||
122 | -- | wrapper for int gsl_sf_eta_e(double s,gsl_sf_result* result); | ||
123 | -- | ||
124 | -- <http://www.google.com/search?q=gsl_sf_eta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
125 | eta_e :: Double -> (Double,Double) | 71 | eta_e :: Double -> (Double,Double) |
126 | eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s | 72 | eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s |
127 | foreign import ccall "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt | 73 | foreign import ccall "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt |
128 | |||
129 | -- | wrapper for double gsl_sf_eta(double s); | ||
130 | -- | ||
131 | -- <http://www.google.com/search?q=gsl_sf_eta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
132 | eta :: Double -> Double | 74 | eta :: Double -> Double |
133 | eta = gsl_sf_eta | 75 | eta = gsl_sf_eta |
134 | foreign import ccall "gsl_sf_eta" gsl_sf_eta :: Double -> Double | 76 | foreign import ccall "gsl_sf_eta" gsl_sf_eta :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/auto.hs b/lib/Numeric/GSL/Special/auto.hs index c8b0529..6727399 100644 --- a/lib/Numeric/GSL/Special/auto.hs +++ b/lib/Numeric/GSL/Special/auto.hs | |||
@@ -67,23 +67,26 @@ main = do | |||
67 | ++"import Numeric.GSL.Special.Internal\n" | 67 | ++"import Numeric.GSL.Special.Internal\n" |
68 | let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs | 68 | let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs |
69 | writeFile (upperFirst name ++ ".hs") mod | 69 | writeFile (upperFirst name ++ ".hs") mod |
70 | -- appendFile "funs.txt" $ rep ("(\n ","-- * " | ||
71 | -- ++map toUpper name | ||
72 | -- -- ++"\n"++google ( "gsl_sf_"++name++".h")++"\n" | ||
73 | -- ++"\n,") $ rep (") where","") $ exports | ||
70 | 74 | ||
71 | 75 | ||
72 | google name = "<http://www.google.com/search?q=" | 76 | google name = "<http://www.google.com/search?q=" |
73 | ++name | 77 | ++name |
74 | ++"&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>" | 78 | ++"&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>" |
75 | 79 | ||
76 | modhead name = replicate 60 '-' ++ "\n" | 80 | modhead name = replicate 60 '-' ++ "\n-- |\n" |
77 | ++"{- |\n" | 81 | ++"-- Module : Numeric.GSL.Special."++upperFirst name++"\n" |
78 | ++"Module : Numeric.GSL.Special."++upperFirst name++"\n" | 82 | ++"-- Copyright : (c) Alberto Ruiz 2006\n" |
79 | ++"Copyright : (c) Alberto Ruiz 2006\n" | 83 | ++"-- License : GPL\n" |
80 | ++"License : GPL-style\n" | 84 | ++"-- Maintainer : Alberto Ruiz (aruiz at um dot es)\n" |
81 | ++"Maintainer : Alberto Ruiz (aruiz at um dot es)\n" | 85 | ++"-- Stability : provisional\n" |
82 | ++"Stability : provisional\n" | 86 | ++"-- Portability : uses ffi\n" |
83 | ++"Portability : uses ffi\n" | 87 | ++"--\n" |
84 | ++"\nWrappers for selected functions described at:\n\n" | 88 | ++"-- Wrappers for selected functions described at:\n--\n-- " |
85 | ++ google ( "gsl_sf_"++name++".h") | 89 | ++ google ( "gsl_sf_"++name++".h")++"\n" |
86 | ++"\n\n-}\n" | ||
87 | ++ replicate 60 '-' ++ "\n\n" | 90 | ++ replicate 60 '-' ++ "\n\n" |
88 | 91 | ||
89 | upperFirst (x:xs) = toUpper x : xs | 92 | upperFirst (x:xs) = toUpper x : xs |
@@ -194,10 +197,11 @@ showHt (Pointer t) = "Ptr "++ht t | |||
194 | 197 | ||
195 | showHa (t,a) = showHt t | 198 | showHa (t,a) = showHt t |
196 | 199 | ||
197 | showFull hc h@(Header t n args) = "\n-- | wrapper for "++showC h | 200 | showFull hc h@(Header t n args) = -- "\n-- | wrapper for "++showC h |
198 | ++"\n--\n-- "++google n ++"\n" | 201 | -- ++"\n--\n-- "++google n ++"\n" |
199 | ++ boiler h ++"\n" | 202 | -- ++ "\n" ++ |
200 | ++showH hc h | 203 | boiler h ++ "\n" ++ |
204 | showH hc h | ||
201 | 205 | ||
202 | fixmd1 = rep ("Gsl_mode_t","Precision") | 206 | fixmd1 = rep ("Gsl_mode_t","Precision") |
203 | fixmd2 = rep ("mode"," (precCode mode)") | 207 | fixmd2 = rep ("mode"," (precCode mode)") |
diff --git a/lib/Numeric/GSL/Special/autoall.sh b/lib/Numeric/GSL/Special/autoall.sh index b9ea6d0..18d0a6e 100644 --- a/lib/Numeric/GSL/Special/autoall.sh +++ b/lib/Numeric/GSL/Special/autoall.sh | |||
@@ -5,6 +5,7 @@ function rep { | |||
5 | cp /tmp/tmp-rep $3 | 5 | cp /tmp/tmp-rep $3 |
6 | } | 6 | } |
7 | 7 | ||
8 | rm -f funs.txt | ||
8 | 9 | ||
9 | ./auto.hs airy | 10 | ./auto.hs airy |
10 | rep ') where' ', Precision(..)\n) where' Airy.hs | 11 | rep ') where' ', Precision(..)\n) where' Airy.hs |
@@ -18,6 +19,7 @@ rep ', coupling_6j_INCORRECT_e\n, coupling_6j_INCORRECT\n' '' Coupling.hs | |||
18 | ./auto.hs dilog | 19 | ./auto.hs dilog |
19 | ./auto.hs elementary | 20 | ./auto.hs elementary |
20 | ./auto.hs ellint | 21 | ./auto.hs ellint |
22 | #./auto.hs elljac | ||
21 | ./auto.hs erf | 23 | ./auto.hs erf |
22 | ./auto.hs exp | 24 | ./auto.hs exp |
23 | rep ', exp\n' ', Numeric.GSL.Special.Exp.exp\n' Exp.hs | 25 | rep ', exp\n' ', Numeric.GSL.Special.Exp.exp\n' Exp.hs |
@@ -29,12 +31,14 @@ rep ', exprel_n_CF_e' '-- , exprel_n_CF_e' Exp.hs | |||
29 | ./auto.hs hyperg | 31 | ./auto.hs hyperg |
30 | ./auto.hs laguerre | 32 | ./auto.hs laguerre |
31 | ./auto.hs lambert | 33 | ./auto.hs lambert |
32 | ./auto.hs legendre gsl_sf_legendre.h | 34 | ./auto.hs legendre |
33 | ./auto.hs log | 35 | ./auto.hs log |
34 | rep ', log\n' ', Numeric.GSL.Special.Log.log\n' Log.hs | 36 | rep ', log\n' ', Numeric.GSL.Special.Log.log\n' Log.hs |
37 | #./auto.hs mathieu | ||
35 | ./auto.hs pow_int | 38 | ./auto.hs pow_int |
36 | ./auto.hs psi | 39 | ./auto.hs psi |
37 | ./auto.hs synchrotron | 40 | ./auto.hs synchrotron |
41 | ./auto.hs transport | ||
38 | ./auto.hs trig | 42 | ./auto.hs trig |
39 | rep ', sin\n' ', Numeric.GSL.Special.Trig.sin\n' Trig.hs | 43 | rep ', sin\n' ', Numeric.GSL.Special.Trig.sin\n' Trig.hs |
40 | rep ', cos\n' ', Numeric.GSL.Special.Trig.cos\n' Trig.hs | 44 | rep ', cos\n' ', Numeric.GSL.Special.Trig.cos\n' Trig.hs |
diff --git a/lib/Numeric/GSL/Special/gsl_sf_legendre.h b/lib/Numeric/GSL/Special/gsl_sf_legendre.h deleted file mode 100644 index f8068f4..0000000 --- a/lib/Numeric/GSL/Special/gsl_sf_legendre.h +++ /dev/null | |||
@@ -1,319 +0,0 @@ | |||
1 | /* specfunc/gsl_sf_legendre.h | ||
2 | * | ||
3 | * Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004 Gerard Jungman | ||
4 | * | ||
5 | * This program is free software; you can redistribute it and/or modify | ||
6 | * it under the terms of the GNU General Public License as published by | ||
7 | * the Free Software Foundation; either version 2 of the License, or (at | ||
8 | * your option) any later version. | ||
9 | * | ||
10 | * This program is distributed in the hope that it will be useful, but | ||
11 | * WITHOUT ANY WARRANTY; without even the implied warranty of | ||
12 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | ||
13 | * General Public License for more details. | ||
14 | * | ||
15 | * You should have received a copy of the GNU General Public License | ||
16 | * along with this program; if not, write to the Free Software | ||
17 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. | ||
18 | */ | ||
19 | |||
20 | /* Author: G. Jungman */ | ||
21 | |||
22 | #ifndef __GSL_SF_LEGENDRE_H__ | ||
23 | #define __GSL_SF_LEGENDRE_H__ | ||
24 | |||
25 | #include <gsl/gsl_sf_result.h> | ||
26 | |||
27 | #undef __BEGIN_DECLS | ||
28 | #undef __END_DECLS | ||
29 | #ifdef __cplusplus | ||
30 | # define __BEGIN_DECLS extern "C" { | ||
31 | # define __END_DECLS } | ||
32 | #else | ||
33 | # define __BEGIN_DECLS /* empty */ | ||
34 | # define __END_DECLS /* empty */ | ||
35 | #endif | ||
36 | |||
37 | __BEGIN_DECLS | ||
38 | |||
39 | |||
40 | /* P_l(x) l >= 0; |x| <= 1 | ||
41 | * | ||
42 | * exceptions: GSL_EDOM | ||
43 | */ | ||
44 | int gsl_sf_legendre_Pl_e(const int l, const double x, gsl_sf_result * result); | ||
45 | double gsl_sf_legendre_Pl(const int l, const double x); | ||
46 | |||
47 | |||
48 | /* P_l(x) for l=0,...,lmax; |x| <= 1 | ||
49 | * | ||
50 | * exceptions: GSL_EDOM | ||
51 | */ | ||
52 | int gsl_sf_legendre_Pl_array( | ||
53 | const int lmax, const double x, | ||
54 | double * result_array | ||
55 | ); | ||
56 | |||
57 | |||
58 | /* P_l(x) and P_l'(x) for l=0,...,lmax; |x| <= 1 | ||
59 | * | ||
60 | * exceptions: GSL_EDOM | ||
61 | */ | ||
62 | int gsl_sf_legendre_Pl_deriv_array( | ||
63 | const int lmax, const double x, | ||
64 | double * result_array, | ||
65 | double * result_deriv_array | ||
66 | ); | ||
67 | |||
68 | |||
69 | /* P_l(x), l=1,2,3 | ||
70 | * | ||
71 | * exceptions: none | ||
72 | */ | ||
73 | int gsl_sf_legendre_P1_e(double x, gsl_sf_result * result); | ||
74 | int gsl_sf_legendre_P2_e(double x, gsl_sf_result * result); | ||
75 | int gsl_sf_legendre_P3_e(double x, gsl_sf_result * result); | ||
76 | double gsl_sf_legendre_P1(const double x); | ||
77 | double gsl_sf_legendre_P2(const double x); | ||
78 | double gsl_sf_legendre_P3(const double x); | ||
79 | |||
80 | |||
81 | /* Q_0(x), x > -1, x != 1 | ||
82 | * | ||
83 | * exceptions: GSL_EDOM | ||
84 | */ | ||
85 | int gsl_sf_legendre_Q0_e(const double x, gsl_sf_result * result); | ||
86 | double gsl_sf_legendre_Q0(const double x); | ||
87 | |||
88 | |||
89 | /* Q_1(x), x > -1, x != 1 | ||
90 | * | ||
91 | * exceptions: GSL_EDOM | ||
92 | */ | ||
93 | int gsl_sf_legendre_Q1_e(const double x, gsl_sf_result * result); | ||
94 | double gsl_sf_legendre_Q1(const double x); | ||
95 | |||
96 | |||
97 | /* Q_l(x), x > -1, x != 1, l >= 0 | ||
98 | * | ||
99 | * exceptions: GSL_EDOM | ||
100 | */ | ||
101 | int gsl_sf_legendre_Ql_e(const int l, const double x, gsl_sf_result * result); | ||
102 | double gsl_sf_legendre_Ql(const int l, const double x); | ||
103 | |||
104 | |||
105 | /* P_l^m(x) m >= 0; l >= m; |x| <= 1.0 | ||
106 | * | ||
107 | * Note that this function grows combinatorially with l. | ||
108 | * Therefore we can easily generate an overflow for l larger | ||
109 | * than about 150. | ||
110 | * | ||
111 | * There is no trouble for small m, but when m and l are both large, | ||
112 | * then there will be trouble. Rather than allow overflows, these | ||
113 | * functions refuse to calculate when they can sense that l and m are | ||
114 | * too big. | ||
115 | * | ||
116 | * If you really want to calculate a spherical harmonic, then DO NOT | ||
117 | * use this. Instead use legendre_sphPlm() below, which uses a similar | ||
118 | * recursion, but with the normalized functions. | ||
119 | * | ||
120 | * exceptions: GSL_EDOM, GSL_EOVRFLW | ||
121 | */ | ||
122 | int gsl_sf_legendre_Plm_e(const int l, const int m, const double x, gsl_sf_result * result); | ||
123 | double gsl_sf_legendre_Plm(const int l, const int m, const double x); | ||
124 | |||
125 | |||
126 | /* P_l^m(x) m >= 0; l >= m; |x| <= 1.0 | ||
127 | * l=|m|,...,lmax | ||
128 | * | ||
129 | * exceptions: GSL_EDOM, GSL_EOVRFLW | ||
130 | */ | ||
131 | int gsl_sf_legendre_Plm_array( | ||
132 | const int lmax, const int m, const double x, | ||
133 | double * result_array | ||
134 | ); | ||
135 | |||
136 | |||
137 | /* P_l^m(x) and d(P_l^m(x))/dx; m >= 0; lmax >= m; |x| <= 1.0 | ||
138 | * l=|m|,...,lmax | ||
139 | * | ||
140 | * exceptions: GSL_EDOM, GSL_EOVRFLW | ||
141 | */ | ||
142 | int gsl_sf_legendre_Plm_deriv_array( | ||
143 | const int lmax, const int m, const double x, | ||
144 | double * result_array, | ||
145 | double * result_deriv_array | ||
146 | ); | ||
147 | |||
148 | |||
149 | /* P_l^m(x), normalized properly for use in spherical harmonics | ||
150 | * m >= 0; l >= m; |x| <= 1.0 | ||
151 | * | ||
152 | * There is no overflow problem, as there is for the | ||
153 | * standard normalization of P_l^m(x). | ||
154 | * | ||
155 | * Specifically, it returns: | ||
156 | * | ||
157 | * sqrt((2l+1)/(4pi)) sqrt((l-m)!/(l+m)!) P_l^m(x) | ||
158 | * | ||
159 | * exceptions: GSL_EDOM | ||
160 | */ | ||
161 | int gsl_sf_legendre_sphPlm_e(const int l, int m, const double x, gsl_sf_result * result); | ||
162 | double gsl_sf_legendre_sphPlm(const int l, const int m, const double x); | ||
163 | |||
164 | |||
165 | /* sphPlm(l,m,x) values | ||
166 | * m >= 0; l >= m; |x| <= 1.0 | ||
167 | * l=|m|,...,lmax | ||
168 | * | ||
169 | * exceptions: GSL_EDOM | ||
170 | */ | ||
171 | int gsl_sf_legendre_sphPlm_array( | ||
172 | const int lmax, int m, const double x, | ||
173 | double * result_array | ||
174 | ); | ||
175 | |||
176 | |||
177 | /* sphPlm(l,m,x) and d(sphPlm(l,m,x))/dx values | ||
178 | * m >= 0; l >= m; |x| <= 1.0 | ||
179 | * l=|m|,...,lmax | ||
180 | * | ||
181 | * exceptions: GSL_EDOM | ||
182 | */ | ||
183 | int gsl_sf_legendre_sphPlm_deriv_array( | ||
184 | const int lmax, const int m, const double x, | ||
185 | double * result_array, | ||
186 | double * result_deriv_array | ||
187 | ); | ||
188 | |||
189 | |||
190 | |||
191 | /* size of result_array[] needed for the array versions of Plm | ||
192 | * (lmax - m + 1) | ||
193 | */ | ||
194 | int gsl_sf_legendre_array_size(const int lmax, const int m); | ||
195 | |||
196 | |||
197 | /* Irregular Spherical Conical Function | ||
198 | * P^{1/2}_{-1/2 + I lambda}(x) | ||
199 | * | ||
200 | * x > -1.0 | ||
201 | * exceptions: GSL_EDOM | ||
202 | */ | ||
203 | int gsl_sf_conicalP_half_e(const double lambda, const double x, gsl_sf_result * result); | ||
204 | double gsl_sf_conicalP_half(const double lambda, const double x); | ||
205 | |||
206 | |||
207 | /* Regular Spherical Conical Function | ||
208 | * P^{-1/2}_{-1/2 + I lambda}(x) | ||
209 | * | ||
210 | * x > -1.0 | ||
211 | * exceptions: GSL_EDOM | ||
212 | */ | ||
213 | int gsl_sf_conicalP_mhalf_e(const double lambda, const double x, gsl_sf_result * result); | ||
214 | double gsl_sf_conicalP_mhalf(const double lambda, const double x); | ||
215 | |||
216 | |||
217 | /* Conical Function | ||
218 | * P^{0}_{-1/2 + I lambda}(x) | ||
219 | * | ||
220 | * x > -1.0 | ||
221 | * exceptions: GSL_EDOM | ||
222 | */ | ||
223 | int gsl_sf_conicalP_0_e(const double lambda, const double x, gsl_sf_result * result); | ||
224 | double gsl_sf_conicalP_0(const double lambda, const double x); | ||
225 | |||
226 | |||
227 | /* Conical Function | ||
228 | * P^{1}_{-1/2 + I lambda}(x) | ||
229 | * | ||
230 | * x > -1.0 | ||
231 | * exceptions: GSL_EDOM | ||
232 | */ | ||
233 | int gsl_sf_conicalP_1_e(const double lambda, const double x, gsl_sf_result * result); | ||
234 | double gsl_sf_conicalP_1(const double lambda, const double x); | ||
235 | |||
236 | |||
237 | /* Regular Spherical Conical Function | ||
238 | * P^{-1/2-l}_{-1/2 + I lambda}(x) | ||
239 | * | ||
240 | * x > -1.0, l >= -1 | ||
241 | * exceptions: GSL_EDOM | ||
242 | */ | ||
243 | int gsl_sf_conicalP_sph_reg_e(const int l, const double lambda, const double x, gsl_sf_result * result); | ||
244 | double gsl_sf_conicalP_sph_reg(const int l, const double lambda, const double x); | ||
245 | |||
246 | |||
247 | /* Regular Cylindrical Conical Function | ||
248 | * P^{-m}_{-1/2 + I lambda}(x) | ||
249 | * | ||
250 | * x > -1.0, m >= -1 | ||
251 | * exceptions: GSL_EDOM | ||
252 | */ | ||
253 | int gsl_sf_conicalP_cyl_reg_e(const int m, const double lambda, const double x, gsl_sf_result * result); | ||
254 | double gsl_sf_conicalP_cyl_reg(const int m, const double lambda, const double x); | ||
255 | |||
256 | |||
257 | /* The following spherical functions are specializations | ||
258 | * of Legendre functions which give the regular eigenfunctions | ||
259 | * of the Laplacian on a 3-dimensional hyperbolic space. | ||
260 | * Of particular interest is the flat limit, which is | ||
261 | * Flat-Lim := {lambda->Inf, eta->0, lambda*eta fixed}. | ||
262 | */ | ||
263 | |||
264 | /* Zeroth radial eigenfunction of the Laplacian on the | ||
265 | * 3-dimensional hyperbolic space. | ||
266 | * | ||
267 | * legendre_H3d_0(lambda,eta) := sin(lambda*eta)/(lambda*sinh(eta)) | ||
268 | * | ||
269 | * Normalization: | ||
270 | * Flat-Lim legendre_H3d_0(lambda,eta) = j_0(lambda*eta) | ||
271 | * | ||
272 | * eta >= 0.0 | ||
273 | * exceptions: GSL_EDOM | ||
274 | */ | ||
275 | int gsl_sf_legendre_H3d_0_e(const double lambda, const double eta, gsl_sf_result * result); | ||
276 | double gsl_sf_legendre_H3d_0(const double lambda, const double eta); | ||
277 | |||
278 | |||
279 | /* First radial eigenfunction of the Laplacian on the | ||
280 | * 3-dimensional hyperbolic space. | ||
281 | * | ||
282 | * legendre_H3d_1(lambda,eta) := | ||
283 | * 1/sqrt(lambda^2 + 1) sin(lam eta)/(lam sinh(eta)) | ||
284 | * (coth(eta) - lambda cot(lambda*eta)) | ||
285 | * | ||
286 | * Normalization: | ||
287 | * Flat-Lim legendre_H3d_1(lambda,eta) = j_1(lambda*eta) | ||
288 | * | ||
289 | * eta >= 0.0 | ||
290 | * exceptions: GSL_EDOM | ||
291 | */ | ||
292 | int gsl_sf_legendre_H3d_1_e(const double lambda, const double eta, gsl_sf_result * result); | ||
293 | double gsl_sf_legendre_H3d_1(const double lambda, const double eta); | ||
294 | |||
295 | |||
296 | /* l'th radial eigenfunction of the Laplacian on the | ||
297 | * 3-dimensional hyperbolic space. | ||
298 | * | ||
299 | * Normalization: | ||
300 | * Flat-Lim legendre_H3d_l(l,lambda,eta) = j_l(lambda*eta) | ||
301 | * | ||
302 | * eta >= 0.0, l >= 0 | ||
303 | * exceptions: GSL_EDOM | ||
304 | */ | ||
305 | int gsl_sf_legendre_H3d_e(const int l, const double lambda, const double eta, gsl_sf_result * result); | ||
306 | double gsl_sf_legendre_H3d(const int l, const double lambda, const double eta); | ||
307 | |||
308 | |||
309 | /* Array of H3d(ell), 0 <= ell <= lmax | ||
310 | */ | ||
311 | int gsl_sf_legendre_H3d_array(const int lmax, const double lambda, const double eta, double * result_array); | ||
312 | |||
313 | |||
314 | |||
315 | |||
316 | |||
317 | __END_DECLS | ||
318 | |||
319 | #endif /* __GSL_SF_LEGENDRE_H__ */ | ||