summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Ellint.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Special/Ellint.hs')
-rw-r--r--lib/Numeric/GSL/Special/Ellint.hs53
1 files changed, 43 insertions, 10 deletions
diff --git a/lib/Numeric/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs
index 798531a..52ca412 100644
--- a/lib/Numeric/GSL/Special/Ellint.hs
+++ b/lib/Numeric/GSL/Special/Ellint.hs
@@ -19,6 +19,10 @@ module Numeric.GSL.Special.Ellint(
19, ellint_Kcomp 19, ellint_Kcomp
20, ellint_Ecomp_e 20, ellint_Ecomp_e
21, ellint_Ecomp 21, ellint_Ecomp
22, ellint_Pcomp_e
23, ellint_Pcomp
24, ellint_Dcomp_e
25, ellint_Dcomp
22, ellint_F_e 26, ellint_F_e
23, ellint_F 27, ellint_F
24, ellint_E_e 28, ellint_E_e
@@ -38,6 +42,7 @@ module Numeric.GSL.Special.Ellint(
38) where 42) where
39 43
40import Foreign(Ptr) 44import Foreign(Ptr)
45import Foreign.C.Types(CInt)
41import Numeric.GSL.Special.Internal 46import Numeric.GSL.Special.Internal
42 47
43-- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); 48-- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
@@ -45,7 +50,7 @@ import Numeric.GSL.Special.Internal
45-- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 50-- <http://www.google.com/search?q=gsl_sf_ellint_Kcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
46ellint_Kcomp_e :: Double -> Precision -> (Double,Double) 51ellint_Kcomp_e :: Double -> Precision -> (Double,Double)
47ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) 52ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode)
48foreign import ccall "ellint.h gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 53foreign import ccall "ellint.h gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
49 54
50-- | wrapper for double gsl_sf_ellint_Kcomp(double k,gsl_mode_t mode); 55-- | wrapper for double gsl_sf_ellint_Kcomp(double k,gsl_mode_t mode);
51-- 56--
@@ -59,7 +64,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Doubl
59-- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 64-- <http://www.google.com/search?q=gsl_sf_ellint_Ecomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60ellint_Ecomp_e :: Double -> Precision -> (Double,Double) 65ellint_Ecomp_e :: Double -> Precision -> (Double,Double)
61ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) 66ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode)
62foreign import ccall "ellint.h gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 67foreign import ccall "ellint.h gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
63 68
64-- | wrapper for double gsl_sf_ellint_Ecomp(double k,gsl_mode_t mode); 69-- | wrapper for double gsl_sf_ellint_Ecomp(double k,gsl_mode_t mode);
65-- 70--
@@ -68,12 +73,40 @@ ellint_Ecomp :: Double -> Precision -> Double
68ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) 73ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode)
69foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double 74foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double
70 75
76-- | wrapper for int gsl_sf_ellint_Pcomp_e(double k,double n,gsl_mode_t mode,gsl_sf_result* result);
77--
78-- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
79ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double)
80ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode)
81foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
82
83-- | wrapper for double gsl_sf_ellint_Pcomp(double k,double n,gsl_mode_t mode);
84--
85-- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
86ellint_Pcomp :: Double -> Double -> Precision -> Double
87ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode)
88foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double
89
90-- | wrapper for int gsl_sf_ellint_Dcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
91--
92-- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
93ellint_Dcomp_e :: Double -> Precision -> (Double,Double)
94ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode)
95foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
96
97-- | wrapper for double gsl_sf_ellint_Dcomp(double k,gsl_mode_t mode);
98--
99-- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
100ellint_Dcomp :: Double -> Precision -> Double
101ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode)
102foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double
103
71-- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result); 104-- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result);
72-- 105--
73-- <http://www.google.com/search?q=gsl_sf_ellint_F_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 106-- <http://www.google.com/search?q=gsl_sf_ellint_F_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74ellint_F_e :: Double -> Double -> Precision -> (Double,Double) 107ellint_F_e :: Double -> Double -> Precision -> (Double,Double)
75ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) 108ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode)
76foreign import ccall "ellint.h gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 109foreign import ccall "ellint.h gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
77 110
78-- | wrapper for double gsl_sf_ellint_F(double phi,double k,gsl_mode_t mode); 111-- | wrapper for double gsl_sf_ellint_F(double phi,double k,gsl_mode_t mode);
79-- 112--
@@ -87,7 +120,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Dou
87-- <http://www.google.com/search?q=gsl_sf_ellint_E_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 120-- <http://www.google.com/search?q=gsl_sf_ellint_E_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88ellint_E_e :: Double -> Double -> Precision -> (Double,Double) 121ellint_E_e :: Double -> Double -> Precision -> (Double,Double)
89ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) 122ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode)
90foreign import ccall "ellint.h gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 123foreign import ccall "ellint.h gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
91 124
92-- | wrapper for double gsl_sf_ellint_E(double phi,double k,gsl_mode_t mode); 125-- | wrapper for double gsl_sf_ellint_E(double phi,double k,gsl_mode_t mode);
93-- 126--
@@ -101,7 +134,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Dou
101-- <http://www.google.com/search?q=gsl_sf_ellint_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 134-- <http://www.google.com/search?q=gsl_sf_ellint_P_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) 135ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double)
103ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) 136ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode)
104foreign import ccall "ellint.h gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 137foreign import ccall "ellint.h gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
105 138
106-- | wrapper for double gsl_sf_ellint_P(double phi,double k,double n,gsl_mode_t mode); 139-- | wrapper for double gsl_sf_ellint_P(double phi,double k,double n,gsl_mode_t mode);
107-- 140--
@@ -115,7 +148,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Dou
115-- <http://www.google.com/search?q=gsl_sf_ellint_D_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 148-- <http://www.google.com/search?q=gsl_sf_ellint_D_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) 149ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double)
117ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) 150ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode)
118foreign import ccall "ellint.h gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 151foreign import ccall "ellint.h gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
119 152
120-- | wrapper for double gsl_sf_ellint_D(double phi,double k,double n,gsl_mode_t mode); 153-- | wrapper for double gsl_sf_ellint_D(double phi,double k,double n,gsl_mode_t mode);
121-- 154--
@@ -129,7 +162,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Dou
129-- <http://www.google.com/search?q=gsl_sf_ellint_RC_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 162-- <http://www.google.com/search?q=gsl_sf_ellint_RC_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
130ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) 163ellint_RC_e :: Double -> Double -> Precision -> (Double,Double)
131ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) 164ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode)
132foreign import ccall "ellint.h gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 165foreign import ccall "ellint.h gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
133 166
134-- | wrapper for double gsl_sf_ellint_RC(double x,double y,gsl_mode_t mode); 167-- | wrapper for double gsl_sf_ellint_RC(double x,double y,gsl_mode_t mode);
135-- 168--
@@ -143,7 +176,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> D
143-- <http://www.google.com/search?q=gsl_sf_ellint_RD_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 176-- <http://www.google.com/search?q=gsl_sf_ellint_RD_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
144ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) 177ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double)
145ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) 178ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode)
146foreign import ccall "ellint.h gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 179foreign import ccall "ellint.h gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
147 180
148-- | wrapper for double gsl_sf_ellint_RD(double x,double y,double z,gsl_mode_t mode); 181-- | wrapper for double gsl_sf_ellint_RD(double x,double y,double z,gsl_mode_t mode);
149-- 182--
@@ -157,7 +190,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> D
157-- <http://www.google.com/search?q=gsl_sf_ellint_RF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 190-- <http://www.google.com/search?q=gsl_sf_ellint_RF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
158ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) 191ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double)
159ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) 192ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode)
160foreign import ccall "ellint.h gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr Double -> IO(Int) 193foreign import ccall "ellint.h gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
161 194
162-- | wrapper for double gsl_sf_ellint_RF(double x,double y,double z,gsl_mode_t mode); 195-- | wrapper for double gsl_sf_ellint_RF(double x,double y,double z,gsl_mode_t mode);
163-- 196--
@@ -171,7 +204,7 @@ foreign import ccall "ellint.h gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> D
171-- <http://www.google.com/search?q=gsl_sf_ellint_RJ_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 204-- <http://www.google.com/search?q=gsl_sf_ellint_RJ_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
172ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) 205ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double)
173ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) 206ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode)
174foreign 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) 207foreign import ccall "ellint.h gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
175 208
176-- | wrapper for double gsl_sf_ellint_RJ(double x,double y,double z,double p,gsl_mode_t mode); 209-- | wrapper for double gsl_sf_ellint_RJ(double x,double y,double z,double p,gsl_mode_t mode);
177-- 210--
generated by cgit v1.2.3 (git 2.39.1) at 2024-09-19 19:54:42 +0000