diff options
Diffstat (limited to 'lib/GSL/Special/Legendre.hs')
-rw-r--r-- | lib/GSL/Special/Legendre.hs | 278 |
1 files changed, 0 insertions, 278 deletions
diff --git a/lib/GSL/Special/Legendre.hs b/lib/GSL/Special/Legendre.hs deleted file mode 100644 index 70315e9..0000000 --- a/lib/GSL/Special/Legendre.hs +++ /dev/null | |||
@@ -1,278 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Legendre | ||
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 | Wrappers for selected functions described at: | ||
11 | |||
12 | <http://www.gnu.org/software/gsl/manual/html_node/Legendre-Functions-and-Spherical-Harmonics.html> | ||
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | ||
16 | |||
17 | module GSL.Special.Legendre( | ||
18 | legendre_Pl_e | ||
19 | , legendre_Pl | ||
20 | , legendre_P1_e | ||
21 | , legendre_P2_e | ||
22 | , legendre_P3_e | ||
23 | , legendre_P1 | ||
24 | , legendre_P2 | ||
25 | , legendre_P3 | ||
26 | , legendre_Q0_e | ||
27 | , legendre_Q0 | ||
28 | , legendre_Q1_e | ||
29 | , legendre_Q1 | ||
30 | , legendre_Ql_e | ||
31 | , legendre_Ql | ||
32 | , legendre_Plm_e | ||
33 | , legendre_Plm | ||
34 | , legendre_sphPlm_e | ||
35 | , legendre_sphPlm | ||
36 | , legendre_array_size | ||
37 | , conicalP_half_e | ||
38 | , conicalP_half | ||
39 | , conicalP_mhalf_e | ||
40 | , conicalP_mhalf | ||
41 | , conicalP_0_e | ||
42 | , conicalP_0 | ||
43 | , conicalP_1_e | ||
44 | , conicalP_1 | ||
45 | , conicalP_sph_reg_e | ||
46 | , conicalP_sph_reg | ||
47 | , conicalP_cyl_reg_e | ||
48 | , conicalP_cyl_reg | ||
49 | , legendre_H3d_0_e | ||
50 | , legendre_H3d_0 | ||
51 | , legendre_H3d_1_e | ||
52 | , legendre_H3d_1 | ||
53 | , legendre_H3d_e | ||
54 | , legendre_H3d | ||
55 | ) where | ||
56 | |||
57 | import Foreign(Ptr) | ||
58 | import GSL.Special.Internal | ||
59 | |||
60 | -- | wrapper for int gsl_sf_legendre_Pl_e(int l,double x,gsl_sf_result* result); | ||
61 | legendre_Pl_e :: Int -> Double -> (Double,Double) | ||
62 | legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x | ||
63 | foreign import ccall "legendre.h gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: Int -> Double -> Ptr Double -> IO(Int) | ||
64 | |||
65 | -- | wrapper for double gsl_sf_legendre_Pl(int l,double x); | ||
66 | legendre_Pl :: Int -> Double -> Double | ||
67 | legendre_Pl = gsl_sf_legendre_Pl | ||
68 | foreign import ccall "legendre.h gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: Int -> Double -> Double | ||
69 | |||
70 | -- | wrapper for int gsl_sf_legendre_Pl_array(int lmax,double x,double* result_array); | ||
71 | legendre_Pl_array :: Int -> Double -> Ptr Double -> Int | ||
72 | legendre_Pl_array = gsl_sf_legendre_Pl_array | ||
73 | foreign import ccall "legendre.h gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: Int -> Double -> Ptr Double -> Int | ||
74 | |||
75 | -- | wrapper for int gsl_sf_legendre_Pl_deriv_array(int lmax,double x,double* result_array,double* result_deriv_array); | ||
76 | legendre_Pl_deriv_array :: Int -> Double -> Ptr Double -> Ptr Double -> Int | ||
77 | legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array | ||
78 | foreign import ccall "legendre.h gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: Int -> Double -> Ptr Double -> Ptr Double -> Int | ||
79 | |||
80 | -- | wrapper for int gsl_sf_legendre_P1_e(double x,gsl_sf_result* result); | ||
81 | legendre_P1_e :: Double -> (Double,Double) | ||
82 | legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x | ||
83 | foreign import ccall "legendre.h gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr Double -> IO(Int) | ||
84 | |||
85 | -- | wrapper for int gsl_sf_legendre_P2_e(double x,gsl_sf_result* result); | ||
86 | legendre_P2_e :: Double -> (Double,Double) | ||
87 | legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x | ||
88 | foreign import ccall "legendre.h gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr Double -> IO(Int) | ||
89 | |||
90 | -- | wrapper for int gsl_sf_legendre_P3_e(double x,gsl_sf_result* result); | ||
91 | legendre_P3_e :: Double -> (Double,Double) | ||
92 | legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x | ||
93 | foreign import ccall "legendre.h gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr Double -> IO(Int) | ||
94 | |||
95 | -- | wrapper for double gsl_sf_legendre_P1(double x); | ||
96 | legendre_P1 :: Double -> Double | ||
97 | legendre_P1 = gsl_sf_legendre_P1 | ||
98 | foreign import ccall "legendre.h gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double | ||
99 | |||
100 | -- | wrapper for double gsl_sf_legendre_P2(double x); | ||
101 | legendre_P2 :: Double -> Double | ||
102 | legendre_P2 = gsl_sf_legendre_P2 | ||
103 | foreign import ccall "legendre.h gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double | ||
104 | |||
105 | -- | wrapper for double gsl_sf_legendre_P3(double x); | ||
106 | legendre_P3 :: Double -> Double | ||
107 | legendre_P3 = gsl_sf_legendre_P3 | ||
108 | foreign import ccall "legendre.h gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double | ||
109 | |||
110 | -- | wrapper for int gsl_sf_legendre_Q0_e(double x,gsl_sf_result* result); | ||
111 | legendre_Q0_e :: Double -> (Double,Double) | ||
112 | legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x | ||
113 | foreign import ccall "legendre.h gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr Double -> IO(Int) | ||
114 | |||
115 | -- | wrapper for double gsl_sf_legendre_Q0(double x); | ||
116 | legendre_Q0 :: Double -> Double | ||
117 | legendre_Q0 = gsl_sf_legendre_Q0 | ||
118 | foreign import ccall "legendre.h gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double | ||
119 | |||
120 | -- | wrapper for int gsl_sf_legendre_Q1_e(double x,gsl_sf_result* result); | ||
121 | legendre_Q1_e :: Double -> (Double,Double) | ||
122 | legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x | ||
123 | foreign import ccall "legendre.h gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr Double -> IO(Int) | ||
124 | |||
125 | -- | wrapper for double gsl_sf_legendre_Q1(double x); | ||
126 | legendre_Q1 :: Double -> Double | ||
127 | legendre_Q1 = gsl_sf_legendre_Q1 | ||
128 | foreign import ccall "legendre.h gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double | ||
129 | |||
130 | -- | wrapper for int gsl_sf_legendre_Ql_e(int l,double x,gsl_sf_result* result); | ||
131 | legendre_Ql_e :: Int -> Double -> (Double,Double) | ||
132 | legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x | ||
133 | foreign import ccall "legendre.h gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: Int -> Double -> Ptr Double -> IO(Int) | ||
134 | |||
135 | -- | wrapper for double gsl_sf_legendre_Ql(int l,double x); | ||
136 | legendre_Ql :: Int -> Double -> Double | ||
137 | legendre_Ql = gsl_sf_legendre_Ql | ||
138 | foreign import ccall "legendre.h gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: Int -> Double -> Double | ||
139 | |||
140 | -- | wrapper for int gsl_sf_legendre_Plm_e(int l,int m,double x,gsl_sf_result* result); | ||
141 | legendre_Plm_e :: Int -> Int -> Double -> (Double,Double) | ||
142 | legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x | ||
143 | foreign import ccall "legendre.h gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: Int -> Int -> Double -> Ptr Double -> IO(Int) | ||
144 | |||
145 | -- | wrapper for double gsl_sf_legendre_Plm(int l,int m,double x); | ||
146 | legendre_Plm :: Int -> Int -> Double -> Double | ||
147 | legendre_Plm = gsl_sf_legendre_Plm | ||
148 | foreign import ccall "legendre.h gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: Int -> Int -> Double -> Double | ||
149 | |||
150 | -- | wrapper for int gsl_sf_legendre_Plm_array(int lmax,int m,double x,double* result_array); | ||
151 | legendre_Plm_array :: Int -> Int -> Double -> Ptr Double -> Int | ||
152 | legendre_Plm_array = gsl_sf_legendre_Plm_array | ||
153 | foreign import ccall "legendre.h gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: Int -> Int -> Double -> Ptr Double -> Int | ||
154 | |||
155 | -- | wrapper for int gsl_sf_legendre_Plm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); | ||
156 | legendre_Plm_deriv_array :: Int -> Int -> Double -> Ptr Double -> Ptr Double -> Int | ||
157 | legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array | ||
158 | foreign import ccall "legendre.h gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: Int -> Int -> Double -> Ptr Double -> Ptr Double -> Int | ||
159 | |||
160 | -- | wrapper for int gsl_sf_legendre_sphPlm_e(int l,int m,double x,gsl_sf_result* result); | ||
161 | legendre_sphPlm_e :: Int -> Int -> Double -> (Double,Double) | ||
162 | legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x | ||
163 | foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: Int -> Int -> Double -> Ptr Double -> IO(Int) | ||
164 | |||
165 | -- | wrapper for double gsl_sf_legendre_sphPlm(int l,int m,double x); | ||
166 | legendre_sphPlm :: Int -> Int -> Double -> Double | ||
167 | legendre_sphPlm = gsl_sf_legendre_sphPlm | ||
168 | foreign import ccall "legendre.h gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: Int -> Int -> Double -> Double | ||
169 | |||
170 | -- | wrapper for int gsl_sf_legendre_sphPlm_array(int lmax,int m,double x,double* result_array); | ||
171 | legendre_sphPlm_array :: Int -> Int -> Double -> Ptr Double -> Int | ||
172 | legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array | ||
173 | foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: Int -> Int -> Double -> Ptr Double -> Int | ||
174 | |||
175 | -- | wrapper for int gsl_sf_legendre_sphPlm_deriv_array(int lmax,int m,double x,double* result_array,double* result_deriv_array); | ||
176 | legendre_sphPlm_deriv_array :: Int -> Int -> Double -> Ptr Double -> Ptr Double -> Int | ||
177 | legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array | ||
178 | foreign import ccall "legendre.h gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: Int -> Int -> Double -> Ptr Double -> Ptr Double -> Int | ||
179 | |||
180 | -- | wrapper for int gsl_sf_legendre_array_size(int lmax,int m); | ||
181 | legendre_array_size :: Int -> Int -> Int | ||
182 | legendre_array_size = gsl_sf_legendre_array_size | ||
183 | foreign import ccall "legendre.h gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: Int -> Int -> Int | ||
184 | |||
185 | -- | wrapper for int gsl_sf_conicalP_half_e(double lambda,double x,gsl_sf_result* result); | ||
186 | conicalP_half_e :: Double -> Double -> (Double,Double) | ||
187 | conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x | ||
188 | foreign import ccall "legendre.h gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
189 | |||
190 | -- | wrapper for double gsl_sf_conicalP_half(double lambda,double x); | ||
191 | conicalP_half :: Double -> Double -> Double | ||
192 | conicalP_half = gsl_sf_conicalP_half | ||
193 | foreign import ccall "legendre.h gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double | ||
194 | |||
195 | -- | wrapper for int gsl_sf_conicalP_mhalf_e(double lambda,double x,gsl_sf_result* result); | ||
196 | conicalP_mhalf_e :: Double -> Double -> (Double,Double) | ||
197 | conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x | ||
198 | foreign import ccall "legendre.h gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
199 | |||
200 | -- | wrapper for double gsl_sf_conicalP_mhalf(double lambda,double x); | ||
201 | conicalP_mhalf :: Double -> Double -> Double | ||
202 | conicalP_mhalf = gsl_sf_conicalP_mhalf | ||
203 | foreign import ccall "legendre.h gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double | ||
204 | |||
205 | -- | wrapper for int gsl_sf_conicalP_0_e(double lambda,double x,gsl_sf_result* result); | ||
206 | conicalP_0_e :: Double -> Double -> (Double,Double) | ||
207 | conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x | ||
208 | foreign import ccall "legendre.h gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
209 | |||
210 | -- | wrapper for double gsl_sf_conicalP_0(double lambda,double x); | ||
211 | conicalP_0 :: Double -> Double -> Double | ||
212 | conicalP_0 = gsl_sf_conicalP_0 | ||
213 | foreign import ccall "legendre.h gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double | ||
214 | |||
215 | -- | wrapper for int gsl_sf_conicalP_1_e(double lambda,double x,gsl_sf_result* result); | ||
216 | conicalP_1_e :: Double -> Double -> (Double,Double) | ||
217 | conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x | ||
218 | foreign import ccall "legendre.h gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
219 | |||
220 | -- | wrapper for double gsl_sf_conicalP_1(double lambda,double x); | ||
221 | conicalP_1 :: Double -> Double -> Double | ||
222 | conicalP_1 = gsl_sf_conicalP_1 | ||
223 | foreign import ccall "legendre.h gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double | ||
224 | |||
225 | -- | wrapper for int gsl_sf_conicalP_sph_reg_e(int l,double lambda,double x,gsl_sf_result* result); | ||
226 | conicalP_sph_reg_e :: Int -> Double -> Double -> (Double,Double) | ||
227 | conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x | ||
228 | foreign import ccall "legendre.h gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) | ||
229 | |||
230 | -- | wrapper for double gsl_sf_conicalP_sph_reg(int l,double lambda,double x); | ||
231 | conicalP_sph_reg :: Int -> Double -> Double -> Double | ||
232 | conicalP_sph_reg = gsl_sf_conicalP_sph_reg | ||
233 | foreign import ccall "legendre.h gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: Int -> Double -> Double -> Double | ||
234 | |||
235 | -- | wrapper for int gsl_sf_conicalP_cyl_reg_e(int m,double lambda,double x,gsl_sf_result* result); | ||
236 | conicalP_cyl_reg_e :: Int -> Double -> Double -> (Double,Double) | ||
237 | conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x | ||
238 | foreign import ccall "legendre.h gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) | ||
239 | |||
240 | -- | wrapper for double gsl_sf_conicalP_cyl_reg(int m,double lambda,double x); | ||
241 | conicalP_cyl_reg :: Int -> Double -> Double -> Double | ||
242 | conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg | ||
243 | foreign import ccall "legendre.h gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: Int -> Double -> Double -> Double | ||
244 | |||
245 | -- | wrapper for int gsl_sf_legendre_H3d_0_e(double lambda,double eta,gsl_sf_result* result); | ||
246 | legendre_H3d_0_e :: Double -> Double -> (Double,Double) | ||
247 | legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta | ||
248 | foreign import ccall "legendre.h gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
249 | |||
250 | -- | wrapper for double gsl_sf_legendre_H3d_0(double lambda,double eta); | ||
251 | legendre_H3d_0 :: Double -> Double -> Double | ||
252 | legendre_H3d_0 = gsl_sf_legendre_H3d_0 | ||
253 | foreign import ccall "legendre.h gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double | ||
254 | |||
255 | -- | wrapper for int gsl_sf_legendre_H3d_1_e(double lambda,double eta,gsl_sf_result* result); | ||
256 | legendre_H3d_1_e :: Double -> Double -> (Double,Double) | ||
257 | legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta | ||
258 | foreign import ccall "legendre.h gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
259 | |||
260 | -- | wrapper for double gsl_sf_legendre_H3d_1(double lambda,double eta); | ||
261 | legendre_H3d_1 :: Double -> Double -> Double | ||
262 | legendre_H3d_1 = gsl_sf_legendre_H3d_1 | ||
263 | foreign import ccall "legendre.h gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double | ||
264 | |||
265 | -- | wrapper for int gsl_sf_legendre_H3d_e(int l,double lambda,double eta,gsl_sf_result* result); | ||
266 | legendre_H3d_e :: Int -> Double -> Double -> (Double,Double) | ||
267 | legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta | ||
268 | foreign import ccall "legendre.h gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) | ||
269 | |||
270 | -- | wrapper for double gsl_sf_legendre_H3d(int l,double lambda,double eta); | ||
271 | legendre_H3d :: Int -> Double -> Double -> Double | ||
272 | legendre_H3d = gsl_sf_legendre_H3d | ||
273 | foreign import ccall "legendre.h gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: Int -> Double -> Double -> Double | ||
274 | |||
275 | -- | wrapper for int gsl_sf_legendre_H3d_array(int lmax,double lambda,double eta,double* result_array); | ||
276 | legendre_H3d_array :: Int -> Double -> Double -> Ptr Double -> Int | ||
277 | legendre_H3d_array = gsl_sf_legendre_H3d_array | ||
278 | foreign import ccall "legendre.h gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: Int -> Double -> Double -> Ptr Double -> Int | ||