diff options
Diffstat (limited to 'lib/GSL/Special/Ellint.hs')
-rw-r--r-- | lib/GSL/Special/Ellint.hs | 181 |
1 files changed, 0 insertions, 181 deletions
diff --git a/lib/GSL/Special/Ellint.hs b/lib/GSL/Special/Ellint.hs deleted file mode 100644 index dddbe21..0000000 --- a/lib/GSL/Special/Ellint.hs +++ /dev/null | |||
@@ -1,181 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Ellint | ||
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.google.com/search?q=gsl_sf_ellint.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | ||
16 | |||
17 | module GSL.Special.Ellint( | ||
18 | ellint_Kcomp_e | ||
19 | , ellint_Kcomp | ||
20 | , ellint_Ecomp_e | ||
21 | , ellint_Ecomp | ||
22 | , ellint_F_e | ||
23 | , ellint_F | ||
24 | , ellint_E_e | ||
25 | , ellint_E | ||
26 | , ellint_P_e | ||
27 | , ellint_P | ||
28 | , ellint_D_e | ||
29 | , ellint_D | ||
30 | , ellint_RC_e | ||
31 | , ellint_RC | ||
32 | , ellint_RD_e | ||
33 | , ellint_RD | ||
34 | , ellint_RF_e | ||
35 | , ellint_RF | ||
36 | , ellint_RJ_e | ||
37 | , ellint_RJ | ||
38 | ) where | ||
39 | |||
40 | import Foreign(Ptr) | ||
41 | import GSL.Special.Internal | ||
42 | |||
43 | -- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); | ||
44 | -- | ||
45 | -- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
46 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) | ||
47 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) | ||
48 | foreign import ccall "ellint.h gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
49 | |||
50 | -- | wrapper for double gsl_sf_ellint_Kcomp(double k,gsl_mode_t mode); | ||
51 | -- | ||
52 | -- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
53 | ellint_Kcomp :: Double -> Precision -> Double | ||
54 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) | ||
55 | foreign import ccall "ellint.h gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double | ||
56 | |||
57 | -- | wrapper for int gsl_sf_ellint_Ecomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); | ||
58 | -- | ||
59 | -- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
60 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) | ||
61 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) | ||
62 | foreign import ccall "ellint.h gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
63 | |||
64 | -- | wrapper for double gsl_sf_ellint_Ecomp(double k,gsl_mode_t mode); | ||
65 | -- | ||
66 | -- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | ellint_Ecomp :: Double -> Precision -> Double | ||
68 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) | ||
69 | foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double | ||
70 | |||
71 | -- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result); | ||
72 | -- | ||
73 | -- <http://www.google.com/search?q=gsl_sf_ellint_F_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
74 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) | ||
75 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) | ||
76 | foreign import ccall "ellint.h gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
77 | |||
78 | -- | wrapper for double gsl_sf_ellint_F(double phi,double k,gsl_mode_t mode); | ||
79 | -- | ||
80 | -- <http://www.google.com/search?q=gsl_sf_ellint_F&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
81 | ellint_F :: Double -> Double -> Precision -> Double | ||
82 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) | ||
83 | foreign import ccall "ellint.h gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double | ||
84 | |||
85 | -- | wrapper for int gsl_sf_ellint_E_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result); | ||
86 | -- | ||
87 | -- <http://www.google.com/search?q=gsl_sf_ellint_E_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) | ||
89 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) | ||
90 | foreign import ccall "ellint.h gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
91 | |||
92 | -- | wrapper for double gsl_sf_ellint_E(double phi,double k,gsl_mode_t mode); | ||
93 | -- | ||
94 | -- <http://www.google.com/search?q=gsl_sf_ellint_E&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
95 | ellint_E :: Double -> Double -> Precision -> Double | ||
96 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) | ||
97 | foreign import ccall "ellint.h gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double | ||
98 | |||
99 | -- | wrapper for int gsl_sf_ellint_P_e(double phi,double k,double n,gsl_mode_t mode,gsl_sf_result* result); | ||
100 | -- | ||
101 | -- <http://www.google.com/search?q=gsl_sf_ellint_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
102 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) | ||
103 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) | ||
104 | foreign import ccall "ellint.h gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
105 | |||
106 | -- | wrapper for double gsl_sf_ellint_P(double phi,double k,double n,gsl_mode_t mode); | ||
107 | -- | ||
108 | -- <http://www.google.com/search?q=gsl_sf_ellint_P&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
109 | ellint_P :: Double -> Double -> Double -> Precision -> Double | ||
110 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) | ||
111 | foreign import ccall "ellint.h gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double | ||
112 | |||
113 | -- | wrapper for int gsl_sf_ellint_D_e(double phi,double k,double n,gsl_mode_t mode,gsl_sf_result* result); | ||
114 | -- | ||
115 | -- <http://www.google.com/search?q=gsl_sf_ellint_D_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
116 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) | ||
117 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) | ||
118 | foreign import ccall "ellint.h gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
119 | |||
120 | -- | wrapper for double gsl_sf_ellint_D(double phi,double k,double n,gsl_mode_t mode); | ||
121 | -- | ||
122 | -- <http://www.google.com/search?q=gsl_sf_ellint_D&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
123 | ellint_D :: Double -> Double -> Double -> Precision -> Double | ||
124 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) | ||
125 | foreign import ccall "ellint.h gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double | ||
126 | |||
127 | -- | wrapper for int gsl_sf_ellint_RC_e(double x,double y,gsl_mode_t mode,gsl_sf_result* result); | ||
128 | -- | ||
129 | -- <http://www.google.com/search?q=gsl_sf_ellint_RC_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
130 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) | ||
131 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) | ||
132 | foreign import ccall "ellint.h gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
133 | |||
134 | -- | wrapper for double gsl_sf_ellint_RC(double x,double y,gsl_mode_t mode); | ||
135 | -- | ||
136 | -- <http://www.google.com/search?q=gsl_sf_ellint_RC&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
137 | ellint_RC :: Double -> Double -> Precision -> Double | ||
138 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) | ||
139 | foreign import ccall "ellint.h gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double | ||
140 | |||
141 | -- | wrapper for int gsl_sf_ellint_RD_e(double x,double y,double z,gsl_mode_t mode,gsl_sf_result* result); | ||
142 | -- | ||
143 | -- <http://www.google.com/search?q=gsl_sf_ellint_RD_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
144 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) | ||
145 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) | ||
146 | foreign import ccall "ellint.h gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
147 | |||
148 | -- | wrapper for double gsl_sf_ellint_RD(double x,double y,double z,gsl_mode_t mode); | ||
149 | -- | ||
150 | -- <http://www.google.com/search?q=gsl_sf_ellint_RD&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
151 | ellint_RD :: Double -> Double -> Double -> Precision -> Double | ||
152 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) | ||
153 | foreign import ccall "ellint.h gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double | ||
154 | |||
155 | -- | wrapper for int gsl_sf_ellint_RF_e(double x,double y,double z,gsl_mode_t mode,gsl_sf_result* result); | ||
156 | -- | ||
157 | -- <http://www.google.com/search?q=gsl_sf_ellint_RF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
158 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) | ||
159 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) | ||
160 | foreign import ccall "ellint.h gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
161 | |||
162 | -- | wrapper for double gsl_sf_ellint_RF(double x,double y,double z,gsl_mode_t mode); | ||
163 | -- | ||
164 | -- <http://www.google.com/search?q=gsl_sf_ellint_RF&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
165 | ellint_RF :: Double -> Double -> Double -> Precision -> Double | ||
166 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) | ||
167 | foreign import ccall "ellint.h gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double | ||
168 | |||
169 | -- | wrapper for int gsl_sf_ellint_RJ_e(double x,double y,double z,double p,gsl_mode_t mode,gsl_sf_result* result); | ||
170 | -- | ||
171 | -- <http://www.google.com/search?q=gsl_sf_ellint_RJ_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
172 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) | ||
173 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) | ||
174 | foreign import ccall "ellint.h gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
175 | |||
176 | -- | wrapper for double gsl_sf_ellint_RJ(double x,double y,double z,double p,gsl_mode_t mode); | ||
177 | -- | ||
178 | -- <http://www.google.com/search?q=gsl_sf_ellint_RJ&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
179 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double | ||
180 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) | ||
181 | foreign import ccall "ellint.h gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double | ||