diff options
Diffstat (limited to 'lib/GSL/Special/Expint.hs')
-rw-r--r-- | lib/GSL/Special/Expint.hs | 50 |
1 files changed, 49 insertions, 1 deletions
diff --git a/lib/GSL/Special/Expint.hs b/lib/GSL/Special/Expint.hs index 6dd5959..4e1b2b5 100644 --- a/lib/GSL/Special/Expint.hs +++ b/lib/GSL/Special/Expint.hs | |||
@@ -9,7 +9,7 @@ Portability : uses ffi | |||
9 | 9 | ||
10 | Wrappers for selected functions described at: | 10 | Wrappers for selected functions described at: |
11 | 11 | ||
12 | <http://www.gnu.org/software/gsl/manual/html_node/Exponential-Integrals.html> | 12 | <http://www.google.com/search?q=gsl_sf_expint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | 13 | ||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
@@ -45,121 +45,169 @@ import Foreign(Ptr) | |||
45 | import GSL.Special.Internal | 45 | import GSL.Special.Internal |
46 | 46 | ||
47 | -- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result); | 47 | -- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result); |
48 | -- | ||
49 | -- <http://www.google.com/search?q=gsl_sf_expint_E1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
48 | expint_E1_e :: Double -> (Double,Double) | 50 | expint_E1_e :: Double -> (Double,Double) |
49 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x | 51 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x |
50 | foreign import ccall "expint.h gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr Double -> IO(Int) | 52 | foreign import ccall "expint.h gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr Double -> IO(Int) |
51 | 53 | ||
52 | -- | wrapper for double gsl_sf_expint_E1(double x); | 54 | -- | wrapper for double gsl_sf_expint_E1(double x); |
55 | -- | ||
56 | -- <http://www.google.com/search?q=gsl_sf_expint_E1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
53 | expint_E1 :: Double -> Double | 57 | expint_E1 :: Double -> Double |
54 | expint_E1 = gsl_sf_expint_E1 | 58 | expint_E1 = gsl_sf_expint_E1 |
55 | foreign import ccall "expint.h gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double | 59 | foreign import ccall "expint.h gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double |
56 | 60 | ||
57 | -- | wrapper for int gsl_sf_expint_E2_e(double x,gsl_sf_result* result); | 61 | -- | wrapper for int gsl_sf_expint_E2_e(double x,gsl_sf_result* result); |
62 | -- | ||
63 | -- <http://www.google.com/search?q=gsl_sf_expint_E2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
58 | expint_E2_e :: Double -> (Double,Double) | 64 | expint_E2_e :: Double -> (Double,Double) |
59 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x | 65 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x |
60 | foreign import ccall "expint.h gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr Double -> IO(Int) | 66 | foreign import ccall "expint.h gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr Double -> IO(Int) |
61 | 67 | ||
62 | -- | wrapper for double gsl_sf_expint_E2(double x); | 68 | -- | wrapper for double gsl_sf_expint_E2(double x); |
69 | -- | ||
70 | -- <http://www.google.com/search?q=gsl_sf_expint_E2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
63 | expint_E2 :: Double -> Double | 71 | expint_E2 :: Double -> Double |
64 | expint_E2 = gsl_sf_expint_E2 | 72 | expint_E2 = gsl_sf_expint_E2 |
65 | foreign import ccall "expint.h gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double | 73 | foreign import ccall "expint.h gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double |
66 | 74 | ||
67 | -- | wrapper for int gsl_sf_expint_E1_scaled_e(double x,gsl_sf_result* result); | 75 | -- | wrapper for int gsl_sf_expint_E1_scaled_e(double x,gsl_sf_result* result); |
76 | -- | ||
77 | -- <http://www.google.com/search?q=gsl_sf_expint_E1_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
68 | expint_E1_scaled_e :: Double -> (Double,Double) | 78 | expint_E1_scaled_e :: Double -> (Double,Double) |
69 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x | 79 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x |
70 | foreign import ccall "expint.h gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr Double -> IO(Int) | 80 | foreign import ccall "expint.h gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr Double -> IO(Int) |
71 | 81 | ||
72 | -- | wrapper for double gsl_sf_expint_E1_scaled(double x); | 82 | -- | wrapper for double gsl_sf_expint_E1_scaled(double x); |
83 | -- | ||
84 | -- <http://www.google.com/search?q=gsl_sf_expint_E1_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
73 | expint_E1_scaled :: Double -> Double | 85 | expint_E1_scaled :: Double -> Double |
74 | expint_E1_scaled = gsl_sf_expint_E1_scaled | 86 | expint_E1_scaled = gsl_sf_expint_E1_scaled |
75 | foreign import ccall "expint.h gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double | 87 | foreign import ccall "expint.h gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double |
76 | 88 | ||
77 | -- | wrapper for int gsl_sf_expint_E2_scaled_e(double x,gsl_sf_result* result); | 89 | -- | wrapper for int gsl_sf_expint_E2_scaled_e(double x,gsl_sf_result* result); |
90 | -- | ||
91 | -- <http://www.google.com/search?q=gsl_sf_expint_E2_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
78 | expint_E2_scaled_e :: Double -> (Double,Double) | 92 | expint_E2_scaled_e :: Double -> (Double,Double) |
79 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x | 93 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x |
80 | foreign import ccall "expint.h gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr Double -> IO(Int) | 94 | foreign import ccall "expint.h gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr Double -> IO(Int) |
81 | 95 | ||
82 | -- | wrapper for double gsl_sf_expint_E2_scaled(double x); | 96 | -- | wrapper for double gsl_sf_expint_E2_scaled(double x); |
97 | -- | ||
98 | -- <http://www.google.com/search?q=gsl_sf_expint_E2_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
83 | expint_E2_scaled :: Double -> Double | 99 | expint_E2_scaled :: Double -> Double |
84 | expint_E2_scaled = gsl_sf_expint_E2_scaled | 100 | expint_E2_scaled = gsl_sf_expint_E2_scaled |
85 | foreign import ccall "expint.h gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double | 101 | foreign import ccall "expint.h gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double |
86 | 102 | ||
87 | -- | wrapper for int gsl_sf_expint_Ei_e(double x,gsl_sf_result* result); | 103 | -- | wrapper for int gsl_sf_expint_Ei_e(double x,gsl_sf_result* result); |
104 | -- | ||
105 | -- <http://www.google.com/search?q=gsl_sf_expint_Ei_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | expint_Ei_e :: Double -> (Double,Double) | 106 | expint_Ei_e :: Double -> (Double,Double) |
89 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x | 107 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x |
90 | foreign import ccall "expint.h gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr Double -> IO(Int) | 108 | foreign import ccall "expint.h gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr Double -> IO(Int) |
91 | 109 | ||
92 | -- | wrapper for double gsl_sf_expint_Ei(double x); | 110 | -- | wrapper for double gsl_sf_expint_Ei(double x); |
111 | -- | ||
112 | -- <http://www.google.com/search?q=gsl_sf_expint_Ei&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
93 | expint_Ei :: Double -> Double | 113 | expint_Ei :: Double -> Double |
94 | expint_Ei = gsl_sf_expint_Ei | 114 | expint_Ei = gsl_sf_expint_Ei |
95 | foreign import ccall "expint.h gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double | 115 | foreign import ccall "expint.h gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double |
96 | 116 | ||
97 | -- | wrapper for int gsl_sf_expint_Ei_scaled_e(double x,gsl_sf_result* result); | 117 | -- | wrapper for int gsl_sf_expint_Ei_scaled_e(double x,gsl_sf_result* result); |
118 | -- | ||
119 | -- <http://www.google.com/search?q=gsl_sf_expint_Ei_scaled_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
98 | expint_Ei_scaled_e :: Double -> (Double,Double) | 120 | expint_Ei_scaled_e :: Double -> (Double,Double) |
99 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x | 121 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x |
100 | foreign import ccall "expint.h gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr Double -> IO(Int) | 122 | foreign import ccall "expint.h gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr Double -> IO(Int) |
101 | 123 | ||
102 | -- | wrapper for double gsl_sf_expint_Ei_scaled(double x); | 124 | -- | wrapper for double gsl_sf_expint_Ei_scaled(double x); |
125 | -- | ||
126 | -- <http://www.google.com/search?q=gsl_sf_expint_Ei_scaled&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
103 | expint_Ei_scaled :: Double -> Double | 127 | expint_Ei_scaled :: Double -> Double |
104 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled | 128 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled |
105 | foreign import ccall "expint.h gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double | 129 | foreign import ccall "expint.h gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double |
106 | 130 | ||
107 | -- | wrapper for int gsl_sf_Shi_e(double x,gsl_sf_result* result); | 131 | -- | wrapper for int gsl_sf_Shi_e(double x,gsl_sf_result* result); |
132 | -- | ||
133 | -- <http://www.google.com/search?q=gsl_sf_Shi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
108 | shi_e :: Double -> (Double,Double) | 134 | shi_e :: Double -> (Double,Double) |
109 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x | 135 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x |
110 | foreign import ccall "expint.h gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr Double -> IO(Int) | 136 | foreign import ccall "expint.h gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr Double -> IO(Int) |
111 | 137 | ||
112 | -- | wrapper for double gsl_sf_Shi(double x); | 138 | -- | wrapper for double gsl_sf_Shi(double x); |
139 | -- | ||
140 | -- <http://www.google.com/search?q=gsl_sf_Shi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
113 | shi :: Double -> Double | 141 | shi :: Double -> Double |
114 | shi = gsl_sf_Shi | 142 | shi = gsl_sf_Shi |
115 | foreign import ccall "expint.h gsl_sf_Shi" gsl_sf_Shi :: Double -> Double | 143 | foreign import ccall "expint.h gsl_sf_Shi" gsl_sf_Shi :: Double -> Double |
116 | 144 | ||
117 | -- | wrapper for int gsl_sf_Chi_e(double x,gsl_sf_result* result); | 145 | -- | wrapper for int gsl_sf_Chi_e(double x,gsl_sf_result* result); |
146 | -- | ||
147 | -- <http://www.google.com/search?q=gsl_sf_Chi_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
118 | chi_e :: Double -> (Double,Double) | 148 | chi_e :: Double -> (Double,Double) |
119 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x | 149 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x |
120 | foreign import ccall "expint.h gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr Double -> IO(Int) | 150 | foreign import ccall "expint.h gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr Double -> IO(Int) |
121 | 151 | ||
122 | -- | wrapper for double gsl_sf_Chi(double x); | 152 | -- | wrapper for double gsl_sf_Chi(double x); |
153 | -- | ||
154 | -- <http://www.google.com/search?q=gsl_sf_Chi&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
123 | chi :: Double -> Double | 155 | chi :: Double -> Double |
124 | chi = gsl_sf_Chi | 156 | chi = gsl_sf_Chi |
125 | foreign import ccall "expint.h gsl_sf_Chi" gsl_sf_Chi :: Double -> Double | 157 | foreign import ccall "expint.h gsl_sf_Chi" gsl_sf_Chi :: Double -> Double |
126 | 158 | ||
127 | -- | wrapper for int gsl_sf_expint_3_e(double x,gsl_sf_result* result); | 159 | -- | wrapper for int gsl_sf_expint_3_e(double x,gsl_sf_result* result); |
160 | -- | ||
161 | -- <http://www.google.com/search?q=gsl_sf_expint_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
128 | expint_3_e :: Double -> (Double,Double) | 162 | expint_3_e :: Double -> (Double,Double) |
129 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x | 163 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x |
130 | foreign import ccall "expint.h gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr Double -> IO(Int) | 164 | foreign import ccall "expint.h gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr Double -> IO(Int) |
131 | 165 | ||
132 | -- | wrapper for double gsl_sf_expint_3(double x); | 166 | -- | wrapper for double gsl_sf_expint_3(double x); |
167 | -- | ||
168 | -- <http://www.google.com/search?q=gsl_sf_expint_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
133 | expint_3 :: Double -> Double | 169 | expint_3 :: Double -> Double |
134 | expint_3 = gsl_sf_expint_3 | 170 | expint_3 = gsl_sf_expint_3 |
135 | foreign import ccall "expint.h gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double | 171 | foreign import ccall "expint.h gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double |
136 | 172 | ||
137 | -- | wrapper for int gsl_sf_Si_e(double x,gsl_sf_result* result); | 173 | -- | wrapper for int gsl_sf_Si_e(double x,gsl_sf_result* result); |
174 | -- | ||
175 | -- <http://www.google.com/search?q=gsl_sf_Si_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
138 | si_e :: Double -> (Double,Double) | 176 | si_e :: Double -> (Double,Double) |
139 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x | 177 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x |
140 | foreign import ccall "expint.h gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr Double -> IO(Int) | 178 | foreign import ccall "expint.h gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr Double -> IO(Int) |
141 | 179 | ||
142 | -- | wrapper for double gsl_sf_Si(double x); | 180 | -- | wrapper for double gsl_sf_Si(double x); |
181 | -- | ||
182 | -- <http://www.google.com/search?q=gsl_sf_Si&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
143 | si :: Double -> Double | 183 | si :: Double -> Double |
144 | si = gsl_sf_Si | 184 | si = gsl_sf_Si |
145 | foreign import ccall "expint.h gsl_sf_Si" gsl_sf_Si :: Double -> Double | 185 | foreign import ccall "expint.h gsl_sf_Si" gsl_sf_Si :: Double -> Double |
146 | 186 | ||
147 | -- | wrapper for int gsl_sf_Ci_e(double x,gsl_sf_result* result); | 187 | -- | wrapper for int gsl_sf_Ci_e(double x,gsl_sf_result* result); |
188 | -- | ||
189 | -- <http://www.google.com/search?q=gsl_sf_Ci_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
148 | ci_e :: Double -> (Double,Double) | 190 | ci_e :: Double -> (Double,Double) |
149 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x | 191 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x |
150 | foreign import ccall "expint.h gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr Double -> IO(Int) | 192 | foreign import ccall "expint.h gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr Double -> IO(Int) |
151 | 193 | ||
152 | -- | wrapper for double gsl_sf_Ci(double x); | 194 | -- | wrapper for double gsl_sf_Ci(double x); |
195 | -- | ||
196 | -- <http://www.google.com/search?q=gsl_sf_Ci&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
153 | ci :: Double -> Double | 197 | ci :: Double -> Double |
154 | ci = gsl_sf_Ci | 198 | ci = gsl_sf_Ci |
155 | foreign import ccall "expint.h gsl_sf_Ci" gsl_sf_Ci :: Double -> Double | 199 | foreign import ccall "expint.h gsl_sf_Ci" gsl_sf_Ci :: Double -> Double |
156 | 200 | ||
157 | -- | wrapper for int gsl_sf_atanint_e(double x,gsl_sf_result* result); | 201 | -- | wrapper for int gsl_sf_atanint_e(double x,gsl_sf_result* result); |
202 | -- | ||
203 | -- <http://www.google.com/search?q=gsl_sf_atanint_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
158 | atanint_e :: Double -> (Double,Double) | 204 | atanint_e :: Double -> (Double,Double) |
159 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x | 205 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x |
160 | foreign import ccall "expint.h gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr Double -> IO(Int) | 206 | foreign import ccall "expint.h gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr Double -> IO(Int) |
161 | 207 | ||
162 | -- | wrapper for double gsl_sf_atanint(double x); | 208 | -- | wrapper for double gsl_sf_atanint(double x); |
209 | -- | ||
210 | -- <http://www.google.com/search?q=gsl_sf_atanint&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
163 | atanint :: Double -> Double | 211 | atanint :: Double -> Double |
164 | atanint = gsl_sf_atanint | 212 | atanint = gsl_sf_atanint |
165 | foreign import ccall "expint.h gsl_sf_atanint" gsl_sf_atanint :: Double -> Double | 213 | foreign import ccall "expint.h gsl_sf_atanint" gsl_sf_atanint :: Double -> Double |