summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Expint.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Special/Expint.hs')
-rw-r--r--lib/Numeric/GSL/Special/Expint.hs136
1 files changed, 11 insertions, 125 deletions
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-- |
3Module : Numeric.GSL.Special.Expint 3-- Module : Numeric.GSL.Special.Expint
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers 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
17module Numeric.GSL.Special.Expint( 15module Numeric.GSL.Special.Expint(
@@ -48,199 +46,87 @@ module Numeric.GSL.Special.Expint(
48import Foreign(Ptr) 46import Foreign(Ptr)
49import Foreign.C.Types(CInt) 47import Foreign.C.Types(CInt)
50import Numeric.GSL.Special.Internal 48import 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>
55expint_E1_e :: Double -> (Double,Double) 49expint_E1_e :: Double -> (Double,Double)
56expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x 50expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x
57foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt 51foreign 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>
62expint_E1 :: Double -> Double 52expint_E1 :: Double -> Double
63expint_E1 = gsl_sf_expint_E1 53expint_E1 = gsl_sf_expint_E1
64foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double 54foreign 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>
69expint_E2_e :: Double -> (Double,Double) 55expint_E2_e :: Double -> (Double,Double)
70expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x 56expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x
71foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt 57foreign 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>
76expint_E2 :: Double -> Double 58expint_E2 :: Double -> Double
77expint_E2 = gsl_sf_expint_E2 59expint_E2 = gsl_sf_expint_E2
78foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double 60foreign 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>
83expint_En_e :: CInt -> Double -> (Double,Double) 61expint_En_e :: CInt -> Double -> (Double,Double)
84expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x 62expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x
85foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt 63foreign 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>
90expint_En :: CInt -> Double -> Double 64expint_En :: CInt -> Double -> Double
91expint_En = gsl_sf_expint_En 65expint_En = gsl_sf_expint_En
92foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double 66foreign 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>
97expint_E1_scaled_e :: Double -> (Double,Double) 67expint_E1_scaled_e :: Double -> (Double,Double)
98expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x 68expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x
99foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt 69foreign 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>
104expint_E1_scaled :: Double -> Double 70expint_E1_scaled :: Double -> Double
105expint_E1_scaled = gsl_sf_expint_E1_scaled 71expint_E1_scaled = gsl_sf_expint_E1_scaled
106foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double 72foreign 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>
111expint_E2_scaled_e :: Double -> (Double,Double) 73expint_E2_scaled_e :: Double -> (Double,Double)
112expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x 74expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x
113foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt 75foreign 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>
118expint_E2_scaled :: Double -> Double 76expint_E2_scaled :: Double -> Double
119expint_E2_scaled = gsl_sf_expint_E2_scaled 77expint_E2_scaled = gsl_sf_expint_E2_scaled
120foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double 78foreign 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>
125expint_En_scaled_e :: CInt -> Double -> (Double,Double) 79expint_En_scaled_e :: CInt -> Double -> (Double,Double)
126expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x 80expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x
127foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt 81foreign 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>
132expint_En_scaled :: CInt -> Double -> Double 82expint_En_scaled :: CInt -> Double -> Double
133expint_En_scaled = gsl_sf_expint_En_scaled 83expint_En_scaled = gsl_sf_expint_En_scaled
134foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double 84foreign 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>
139expint_Ei_e :: Double -> (Double,Double) 85expint_Ei_e :: Double -> (Double,Double)
140expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x 86expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x
141foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt 87foreign 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>
146expint_Ei :: Double -> Double 88expint_Ei :: Double -> Double
147expint_Ei = gsl_sf_expint_Ei 89expint_Ei = gsl_sf_expint_Ei
148foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double 90foreign 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>
153expint_Ei_scaled_e :: Double -> (Double,Double) 91expint_Ei_scaled_e :: Double -> (Double,Double)
154expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x 92expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x
155foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt 93foreign 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>
160expint_Ei_scaled :: Double -> Double 94expint_Ei_scaled :: Double -> Double
161expint_Ei_scaled = gsl_sf_expint_Ei_scaled 95expint_Ei_scaled = gsl_sf_expint_Ei_scaled
162foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double 96foreign 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>
167shi_e :: Double -> (Double,Double) 97shi_e :: Double -> (Double,Double)
168shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x 98shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x
169foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt 99foreign 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>
174shi :: Double -> Double 100shi :: Double -> Double
175shi = gsl_sf_Shi 101shi = gsl_sf_Shi
176foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double 102foreign 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>
181chi_e :: Double -> (Double,Double) 103chi_e :: Double -> (Double,Double)
182chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x 104chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x
183foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt 105foreign 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>
188chi :: Double -> Double 106chi :: Double -> Double
189chi = gsl_sf_Chi 107chi = gsl_sf_Chi
190foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double 108foreign 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>
195expint_3_e :: Double -> (Double,Double) 109expint_3_e :: Double -> (Double,Double)
196expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x 110expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x
197foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt 111foreign 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>
202expint_3 :: Double -> Double 112expint_3 :: Double -> Double
203expint_3 = gsl_sf_expint_3 113expint_3 = gsl_sf_expint_3
204foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double 114foreign 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>
209si_e :: Double -> (Double,Double) 115si_e :: Double -> (Double,Double)
210si_e x = createSFR "si_e" $ gsl_sf_Si_e x 116si_e x = createSFR "si_e" $ gsl_sf_Si_e x
211foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt 117foreign 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>
216si :: Double -> Double 118si :: Double -> Double
217si = gsl_sf_Si 119si = gsl_sf_Si
218foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double 120foreign 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>
223ci_e :: Double -> (Double,Double) 121ci_e :: Double -> (Double,Double)
224ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x 122ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x
225foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt 123foreign 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>
230ci :: Double -> Double 124ci :: Double -> Double
231ci = gsl_sf_Ci 125ci = gsl_sf_Ci
232foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double 126foreign 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>
237atanint_e :: Double -> (Double,Double) 127atanint_e :: Double -> (Double,Double)
238atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x 128atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x
239foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt 129foreign 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>
244atanint :: Double -> Double 130atanint :: Double -> Double
245atanint = gsl_sf_atanint 131atanint = gsl_sf_atanint
246foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double 132foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-11 14:23:01 +0000