summaryrefslogtreecommitdiff
path: root/lib/GSL/Special/Expint.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/GSL/Special/Expint.hs')
-rw-r--r--lib/GSL/Special/Expint.hs50
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
10Wrappers for selected functions described at: 10Wrappers 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)
45import GSL.Special.Internal 45import 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>
48expint_E1_e :: Double -> (Double,Double) 50expint_E1_e :: Double -> (Double,Double)
49expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x 51expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x
50foreign import ccall "expint.h gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr Double -> IO(Int) 52foreign 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>
53expint_E1 :: Double -> Double 57expint_E1 :: Double -> Double
54expint_E1 = gsl_sf_expint_E1 58expint_E1 = gsl_sf_expint_E1
55foreign import ccall "expint.h gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double 59foreign 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>
58expint_E2_e :: Double -> (Double,Double) 64expint_E2_e :: Double -> (Double,Double)
59expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x 65expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x
60foreign import ccall "expint.h gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr Double -> IO(Int) 66foreign 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>
63expint_E2 :: Double -> Double 71expint_E2 :: Double -> Double
64expint_E2 = gsl_sf_expint_E2 72expint_E2 = gsl_sf_expint_E2
65foreign import ccall "expint.h gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double 73foreign 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>
68expint_E1_scaled_e :: Double -> (Double,Double) 78expint_E1_scaled_e :: Double -> (Double,Double)
69expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x 79expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x
70foreign import ccall "expint.h gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr Double -> IO(Int) 80foreign 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>
73expint_E1_scaled :: Double -> Double 85expint_E1_scaled :: Double -> Double
74expint_E1_scaled = gsl_sf_expint_E1_scaled 86expint_E1_scaled = gsl_sf_expint_E1_scaled
75foreign import ccall "expint.h gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double 87foreign 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>
78expint_E2_scaled_e :: Double -> (Double,Double) 92expint_E2_scaled_e :: Double -> (Double,Double)
79expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x 93expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x
80foreign import ccall "expint.h gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr Double -> IO(Int) 94foreign 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>
83expint_E2_scaled :: Double -> Double 99expint_E2_scaled :: Double -> Double
84expint_E2_scaled = gsl_sf_expint_E2_scaled 100expint_E2_scaled = gsl_sf_expint_E2_scaled
85foreign import ccall "expint.h gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double 101foreign 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>
88expint_Ei_e :: Double -> (Double,Double) 106expint_Ei_e :: Double -> (Double,Double)
89expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x 107expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x
90foreign import ccall "expint.h gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr Double -> IO(Int) 108foreign 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>
93expint_Ei :: Double -> Double 113expint_Ei :: Double -> Double
94expint_Ei = gsl_sf_expint_Ei 114expint_Ei = gsl_sf_expint_Ei
95foreign import ccall "expint.h gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double 115foreign 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>
98expint_Ei_scaled_e :: Double -> (Double,Double) 120expint_Ei_scaled_e :: Double -> (Double,Double)
99expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x 121expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x
100foreign import ccall "expint.h gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr Double -> IO(Int) 122foreign 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>
103expint_Ei_scaled :: Double -> Double 127expint_Ei_scaled :: Double -> Double
104expint_Ei_scaled = gsl_sf_expint_Ei_scaled 128expint_Ei_scaled = gsl_sf_expint_Ei_scaled
105foreign import ccall "expint.h gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double 129foreign 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>
108shi_e :: Double -> (Double,Double) 134shi_e :: Double -> (Double,Double)
109shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x 135shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x
110foreign import ccall "expint.h gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr Double -> IO(Int) 136foreign 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>
113shi :: Double -> Double 141shi :: Double -> Double
114shi = gsl_sf_Shi 142shi = gsl_sf_Shi
115foreign import ccall "expint.h gsl_sf_Shi" gsl_sf_Shi :: Double -> Double 143foreign 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>
118chi_e :: Double -> (Double,Double) 148chi_e :: Double -> (Double,Double)
119chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x 149chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x
120foreign import ccall "expint.h gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr Double -> IO(Int) 150foreign 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>
123chi :: Double -> Double 155chi :: Double -> Double
124chi = gsl_sf_Chi 156chi = gsl_sf_Chi
125foreign import ccall "expint.h gsl_sf_Chi" gsl_sf_Chi :: Double -> Double 157foreign 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>
128expint_3_e :: Double -> (Double,Double) 162expint_3_e :: Double -> (Double,Double)
129expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x 163expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x
130foreign import ccall "expint.h gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr Double -> IO(Int) 164foreign 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>
133expint_3 :: Double -> Double 169expint_3 :: Double -> Double
134expint_3 = gsl_sf_expint_3 170expint_3 = gsl_sf_expint_3
135foreign import ccall "expint.h gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double 171foreign 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>
138si_e :: Double -> (Double,Double) 176si_e :: Double -> (Double,Double)
139si_e x = createSFR "si_e" $ gsl_sf_Si_e x 177si_e x = createSFR "si_e" $ gsl_sf_Si_e x
140foreign import ccall "expint.h gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr Double -> IO(Int) 178foreign 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>
143si :: Double -> Double 183si :: Double -> Double
144si = gsl_sf_Si 184si = gsl_sf_Si
145foreign import ccall "expint.h gsl_sf_Si" gsl_sf_Si :: Double -> Double 185foreign 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>
148ci_e :: Double -> (Double,Double) 190ci_e :: Double -> (Double,Double)
149ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x 191ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x
150foreign import ccall "expint.h gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr Double -> IO(Int) 192foreign 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>
153ci :: Double -> Double 197ci :: Double -> Double
154ci = gsl_sf_Ci 198ci = gsl_sf_Ci
155foreign import ccall "expint.h gsl_sf_Ci" gsl_sf_Ci :: Double -> Double 199foreign 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>
158atanint_e :: Double -> (Double,Double) 204atanint_e :: Double -> (Double,Double)
159atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x 205atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x
160foreign import ccall "expint.h gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr Double -> IO(Int) 206foreign 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>
163atanint :: Double -> Double 211atanint :: Double -> Double
164atanint = gsl_sf_atanint 212atanint = gsl_sf_atanint
165foreign import ccall "expint.h gsl_sf_atanint" gsl_sf_atanint :: Double -> Double 213foreign import ccall "expint.h gsl_sf_atanint" gsl_sf_atanint :: Double -> Double
generated by cgit v1.2.3 (git 2.39.1) at 2024-09-19 19:54:17 +0000