diff options
Diffstat (limited to 'lib/GSL/Special/Expint.hs')
-rw-r--r-- | lib/GSL/Special/Expint.hs | 163 |
1 files changed, 163 insertions, 0 deletions
diff --git a/lib/GSL/Special/Expint.hs b/lib/GSL/Special/Expint.hs new file mode 100644 index 0000000..f761966 --- /dev/null +++ b/lib/GSL/Special/Expint.hs | |||
@@ -0,0 +1,163 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Expint | ||
4 | Copyright : (c) Alberto Ruiz 2006 | ||
5 | License : GPL-style | ||
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | Stability : provisional | ||
8 | Portability : uses ffi | ||
9 | |||
10 | |||
11 | |||
12 | -} | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module GSL.Special.Expint( | ||
16 | expint_E1_e | ||
17 | , expint_E1 | ||
18 | , expint_E2_e | ||
19 | , expint_E2 | ||
20 | , expint_E1_scaled_e | ||
21 | , expint_E1_scaled | ||
22 | , expint_E2_scaled_e | ||
23 | , expint_E2_scaled | ||
24 | , expint_Ei_e | ||
25 | , expint_Ei | ||
26 | , expint_Ei_scaled_e | ||
27 | , expint_Ei_scaled | ||
28 | , shi_e | ||
29 | , shi | ||
30 | , chi_e | ||
31 | , chi | ||
32 | , expint_3_e | ||
33 | , expint_3 | ||
34 | , si_e | ||
35 | , si | ||
36 | , ci_e | ||
37 | , ci | ||
38 | , atanint_e | ||
39 | , atanint | ||
40 | ) where | ||
41 | |||
42 | import Foreign(Ptr) | ||
43 | import GSL.Special.Internal | ||
44 | |||
45 | -- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result); | ||
46 | expint_E1_e :: Double -> (Double,Double) | ||
47 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x | ||
48 | foreign import ccall "expint.h gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr Double -> IO(Int) | ||
49 | |||
50 | -- | wrapper for double gsl_sf_expint_E1(double x); | ||
51 | expint_E1 :: Double -> Double | ||
52 | expint_E1 = gsl_sf_expint_E1 | ||
53 | foreign import ccall "expint.h gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double | ||
54 | |||
55 | -- | wrapper for int gsl_sf_expint_E2_e(double x,gsl_sf_result* result); | ||
56 | expint_E2_e :: Double -> (Double,Double) | ||
57 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x | ||
58 | foreign import ccall "expint.h gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr Double -> IO(Int) | ||
59 | |||
60 | -- | wrapper for double gsl_sf_expint_E2(double x); | ||
61 | expint_E2 :: Double -> Double | ||
62 | expint_E2 = gsl_sf_expint_E2 | ||
63 | foreign import ccall "expint.h gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double | ||
64 | |||
65 | -- | wrapper for int gsl_sf_expint_E1_scaled_e(double x,gsl_sf_result* result); | ||
66 | expint_E1_scaled_e :: Double -> (Double,Double) | ||
67 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x | ||
68 | foreign import ccall "expint.h gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr Double -> IO(Int) | ||
69 | |||
70 | -- | wrapper for double gsl_sf_expint_E1_scaled(double x); | ||
71 | expint_E1_scaled :: Double -> Double | ||
72 | expint_E1_scaled = gsl_sf_expint_E1_scaled | ||
73 | foreign import ccall "expint.h gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double | ||
74 | |||
75 | -- | wrapper for int gsl_sf_expint_E2_scaled_e(double x,gsl_sf_result* result); | ||
76 | expint_E2_scaled_e :: Double -> (Double,Double) | ||
77 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x | ||
78 | foreign import ccall "expint.h gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr Double -> IO(Int) | ||
79 | |||
80 | -- | wrapper for double gsl_sf_expint_E2_scaled(double x); | ||
81 | expint_E2_scaled :: Double -> Double | ||
82 | expint_E2_scaled = gsl_sf_expint_E2_scaled | ||
83 | foreign import ccall "expint.h gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double | ||
84 | |||
85 | -- | wrapper for int gsl_sf_expint_Ei_e(double x,gsl_sf_result* result); | ||
86 | expint_Ei_e :: Double -> (Double,Double) | ||
87 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x | ||
88 | foreign import ccall "expint.h gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr Double -> IO(Int) | ||
89 | |||
90 | -- | wrapper for double gsl_sf_expint_Ei(double x); | ||
91 | expint_Ei :: Double -> Double | ||
92 | expint_Ei = gsl_sf_expint_Ei | ||
93 | foreign import ccall "expint.h gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double | ||
94 | |||
95 | -- | wrapper for int gsl_sf_expint_Ei_scaled_e(double x,gsl_sf_result* result); | ||
96 | expint_Ei_scaled_e :: Double -> (Double,Double) | ||
97 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x | ||
98 | foreign import ccall "expint.h gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr Double -> IO(Int) | ||
99 | |||
100 | -- | wrapper for double gsl_sf_expint_Ei_scaled(double x); | ||
101 | expint_Ei_scaled :: Double -> Double | ||
102 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled | ||
103 | foreign import ccall "expint.h gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double | ||
104 | |||
105 | -- | wrapper for int gsl_sf_Shi_e(double x,gsl_sf_result* result); | ||
106 | shi_e :: Double -> (Double,Double) | ||
107 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x | ||
108 | foreign import ccall "expint.h gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr Double -> IO(Int) | ||
109 | |||
110 | -- | wrapper for double gsl_sf_Shi(double x); | ||
111 | shi :: Double -> Double | ||
112 | shi = gsl_sf_Shi | ||
113 | foreign import ccall "expint.h gsl_sf_Shi" gsl_sf_Shi :: Double -> Double | ||
114 | |||
115 | -- | wrapper for int gsl_sf_Chi_e(double x,gsl_sf_result* result); | ||
116 | chi_e :: Double -> (Double,Double) | ||
117 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x | ||
118 | foreign import ccall "expint.h gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr Double -> IO(Int) | ||
119 | |||
120 | -- | wrapper for double gsl_sf_Chi(double x); | ||
121 | chi :: Double -> Double | ||
122 | chi = gsl_sf_Chi | ||
123 | foreign import ccall "expint.h gsl_sf_Chi" gsl_sf_Chi :: Double -> Double | ||
124 | |||
125 | -- | wrapper for int gsl_sf_expint_3_e(double x,gsl_sf_result* result); | ||
126 | expint_3_e :: Double -> (Double,Double) | ||
127 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x | ||
128 | foreign import ccall "expint.h gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr Double -> IO(Int) | ||
129 | |||
130 | -- | wrapper for double gsl_sf_expint_3(double x); | ||
131 | expint_3 :: Double -> Double | ||
132 | expint_3 = gsl_sf_expint_3 | ||
133 | foreign import ccall "expint.h gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double | ||
134 | |||
135 | -- | wrapper for int gsl_sf_Si_e(double x,gsl_sf_result* result); | ||
136 | si_e :: Double -> (Double,Double) | ||
137 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x | ||
138 | foreign import ccall "expint.h gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr Double -> IO(Int) | ||
139 | |||
140 | -- | wrapper for double gsl_sf_Si(double x); | ||
141 | si :: Double -> Double | ||
142 | si = gsl_sf_Si | ||
143 | foreign import ccall "expint.h gsl_sf_Si" gsl_sf_Si :: Double -> Double | ||
144 | |||
145 | -- | wrapper for int gsl_sf_Ci_e(double x,gsl_sf_result* result); | ||
146 | ci_e :: Double -> (Double,Double) | ||
147 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x | ||
148 | foreign import ccall "expint.h gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr Double -> IO(Int) | ||
149 | |||
150 | -- | wrapper for double gsl_sf_Ci(double x); | ||
151 | ci :: Double -> Double | ||
152 | ci = gsl_sf_Ci | ||
153 | foreign import ccall "expint.h gsl_sf_Ci" gsl_sf_Ci :: Double -> Double | ||
154 | |||
155 | -- | wrapper for int gsl_sf_atanint_e(double x,gsl_sf_result* result); | ||
156 | atanint_e :: Double -> (Double,Double) | ||
157 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x | ||
158 | foreign import ccall "expint.h gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr Double -> IO(Int) | ||
159 | |||
160 | -- | wrapper for double gsl_sf_atanint(double x); | ||
161 | atanint :: Double -> Double | ||
162 | atanint = gsl_sf_atanint | ||
163 | foreign import ccall "expint.h gsl_sf_atanint" gsl_sf_atanint :: Double -> Double | ||