diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Legendre.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Legendre.hs | 233 |
1 files changed, 0 insertions, 233 deletions
diff --git a/lib/Numeric/GSL/Special/Legendre.hs b/lib/Numeric/GSL/Special/Legendre.hs deleted file mode 100644 index e329457..0000000 --- a/lib/Numeric/GSL/Special/Legendre.hs +++ /dev/null | |||
@@ -1,233 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | -- | | ||
3 | -- Module : Numeric.GSL.Special.Legendre | ||
4 | -- Copyright : (c) Alberto Ruiz 2006 | ||
5 | -- License : GPL | ||
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.google.com/search?q=gsl_sf_legendre.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module Numeric.GSL.Special.Legendre( | ||
16 | legendre_Pl_e | ||
17 | , legendre_Pl | ||
18 | , legendre_P1_e | ||
19 | , legendre_P2_e | ||
20 | , legendre_P3_e | ||
21 | , legendre_P1 | ||
22 | , legendre_P2 | ||
23 | , legendre_P3 | ||
24 | , legendre_Q0_e | ||
25 | , legendre_Q0 | ||
26 | , legendre_Q1_e | ||
27 | , legendre_Q1 | ||
28 | , legendre_Ql_e | ||
29 | , legendre_Ql | ||
30 | , legendre_Plm_e | ||
31 | , legendre_Plm | ||
32 | , legendre_sphPlm_e | ||
33 | , legendre_sphPlm | ||
34 | , legendre_array_size | ||
35 | , conicalP_half_e | ||
36 | , conicalP_half | ||
37 | , conicalP_mhalf_e | ||
38 | , conicalP_mhalf | ||
39 | , conicalP_0_e | ||
40 | , conicalP_0 | ||
41 | , conicalP_1_e | ||
42 | , conicalP_1 | ||
43 | , conicalP_sph_reg_e | ||
44 | , conicalP_sph_reg | ||
45 | , conicalP_cyl_reg_e | ||
46 | , conicalP_cyl_reg | ||
47 | , legendre_H3d_0_e | ||
48 | , legendre_H3d_0 | ||
49 | , legendre_H3d_1_e | ||
50 | , legendre_H3d_1 | ||
51 | , legendre_H3d_e | ||
52 | , legendre_H3d | ||
53 | ) where | ||
54 | |||
55 | import Foreign(Ptr) | ||
56 | import Foreign.C.Types(CInt) | ||
57 | import Numeric.GSL.Special.Internal | ||
58 | |||
59 | legendre_Pl_e :: CInt -> Double -> (Double,Double) | ||
60 | legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x | ||
61 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt | ||
62 | |||
63 | legendre_Pl :: CInt -> Double -> Double | ||
64 | legendre_Pl = gsl_sf_legendre_Pl | ||
65 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double | ||
66 | |||
67 | legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | ||
68 | legendre_Pl_array = gsl_sf_legendre_Pl_array | ||
69 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | ||
70 | |||
71 | legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | ||
72 | legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array | ||
73 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | ||
74 | |||
75 | legendre_P1_e :: Double -> (Double,Double) | ||
76 | legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x | ||
77 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt | ||
78 | |||
79 | legendre_P2_e :: Double -> (Double,Double) | ||
80 | legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x | ||
81 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt | ||
82 | |||
83 | legendre_P3_e :: Double -> (Double,Double) | ||
84 | legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x | ||
85 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt | ||
86 | |||
87 | legendre_P1 :: Double -> Double | ||
88 | legendre_P1 = gsl_sf_legendre_P1 | ||
89 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double | ||
90 | |||
91 | legendre_P2 :: Double -> Double | ||
92 | legendre_P2 = gsl_sf_legendre_P2 | ||
93 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double | ||
94 | |||
95 | legendre_P3 :: Double -> Double | ||
96 | legendre_P3 = gsl_sf_legendre_P3 | ||
97 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double | ||
98 | |||
99 | legendre_Q0_e :: Double -> (Double,Double) | ||
100 | legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x | ||
101 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt | ||
102 | |||
103 | legendre_Q0 :: Double -> Double | ||
104 | legendre_Q0 = gsl_sf_legendre_Q0 | ||
105 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double | ||
106 | |||
107 | legendre_Q1_e :: Double -> (Double,Double) | ||
108 | legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x | ||
109 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt | ||
110 | |||
111 | legendre_Q1 :: Double -> Double | ||
112 | legendre_Q1 = gsl_sf_legendre_Q1 | ||
113 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double | ||
114 | |||
115 | legendre_Ql_e :: CInt -> Double -> (Double,Double) | ||
116 | legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x | ||
117 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt | ||
118 | |||
119 | legendre_Ql :: CInt -> Double -> Double | ||
120 | legendre_Ql = gsl_sf_legendre_Ql | ||
121 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double | ||
122 | |||
123 | legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) | ||
124 | legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x | ||
125 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | ||
126 | |||
127 | legendre_Plm :: CInt -> CInt -> Double -> Double | ||
128 | legendre_Plm = gsl_sf_legendre_Plm | ||
129 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double | ||
130 | |||
131 | legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | ||
132 | legendre_Plm_array = gsl_sf_legendre_Plm_array | ||
133 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | ||
134 | |||
135 | legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | ||
136 | legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array | ||
137 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | ||
138 | |||
139 | legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) | ||
140 | legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x | ||
141 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | ||
142 | |||
143 | legendre_sphPlm :: CInt -> CInt -> Double -> Double | ||
144 | legendre_sphPlm = gsl_sf_legendre_sphPlm | ||
145 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double | ||
146 | |||
147 | legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | ||
148 | legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array | ||
149 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | ||
150 | |||
151 | legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | ||
152 | legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array | ||
153 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | ||
154 | |||
155 | legendre_array_size :: CInt -> CInt -> CInt | ||
156 | legendre_array_size = gsl_sf_legendre_array_size | ||
157 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt | ||
158 | |||
159 | conicalP_half_e :: Double -> Double -> (Double,Double) | ||
160 | conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x | ||
161 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt | ||
162 | |||
163 | conicalP_half :: Double -> Double -> Double | ||
164 | conicalP_half = gsl_sf_conicalP_half | ||
165 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double | ||
166 | |||
167 | conicalP_mhalf_e :: Double -> Double -> (Double,Double) | ||
168 | conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x | ||
169 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt | ||
170 | |||
171 | conicalP_mhalf :: Double -> Double -> Double | ||
172 | conicalP_mhalf = gsl_sf_conicalP_mhalf | ||
173 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double | ||
174 | |||
175 | conicalP_0_e :: Double -> Double -> (Double,Double) | ||
176 | conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x | ||
177 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt | ||
178 | |||
179 | conicalP_0 :: Double -> Double -> Double | ||
180 | conicalP_0 = gsl_sf_conicalP_0 | ||
181 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double | ||
182 | |||
183 | conicalP_1_e :: Double -> Double -> (Double,Double) | ||
184 | conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x | ||
185 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt | ||
186 | |||
187 | conicalP_1 :: Double -> Double -> Double | ||
188 | conicalP_1 = gsl_sf_conicalP_1 | ||
189 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double | ||
190 | |||
191 | conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) | ||
192 | conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x | ||
193 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | ||
194 | |||
195 | conicalP_sph_reg :: CInt -> Double -> Double -> Double | ||
196 | conicalP_sph_reg = gsl_sf_conicalP_sph_reg | ||
197 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double | ||
198 | |||
199 | conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) | ||
200 | conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x | ||
201 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | ||
202 | |||
203 | conicalP_cyl_reg :: CInt -> Double -> Double -> Double | ||
204 | conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg | ||
205 | foreign import ccall SAFE_CHEAP "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double | ||
206 | |||
207 | legendre_H3d_0_e :: Double -> Double -> (Double,Double) | ||
208 | legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta | ||
209 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt | ||
210 | |||
211 | legendre_H3d_0 :: Double -> Double -> Double | ||
212 | legendre_H3d_0 = gsl_sf_legendre_H3d_0 | ||
213 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double | ||
214 | |||
215 | legendre_H3d_1_e :: Double -> Double -> (Double,Double) | ||
216 | legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta | ||
217 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt | ||
218 | |||
219 | legendre_H3d_1 :: Double -> Double -> Double | ||
220 | legendre_H3d_1 = gsl_sf_legendre_H3d_1 | ||
221 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double | ||
222 | |||
223 | legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) | ||
224 | legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta | ||
225 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | ||
226 | |||
227 | legendre_H3d :: CInt -> Double -> Double -> Double | ||
228 | legendre_H3d = gsl_sf_legendre_H3d | ||
229 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double | ||
230 | |||
231 | legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | ||
232 | legendre_H3d_array = gsl_sf_legendre_H3d_array | ||
233 | foreign import ccall SAFE_CHEAP "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | ||