diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Ellint.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Ellint.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs index 70f6c5d..9a4057e 100644 --- a/lib/Numeric/GSL/Special/Ellint.hs +++ b/lib/Numeric/GSL/Special/Ellint.hs | |||
@@ -42,75 +42,99 @@ module Numeric.GSL.Special.Ellint( | |||
42 | import Foreign(Ptr) | 42 | import Foreign(Ptr) |
43 | import Foreign.C.Types(CInt) | 43 | import Foreign.C.Types(CInt) |
44 | import Numeric.GSL.Special.Internal | 44 | import Numeric.GSL.Special.Internal |
45 | |||
45 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) | 46 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) |
46 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) | 47 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) |
47 | foreign import ccall "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 48 | foreign import ccall "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
49 | |||
48 | ellint_Kcomp :: Double -> Precision -> Double | 50 | ellint_Kcomp :: Double -> Precision -> Double |
49 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) | 51 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) |
50 | foreign import ccall "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double | 52 | foreign import ccall "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double |
53 | |||
51 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) | 54 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) |
52 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) | 55 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) |
53 | foreign import ccall "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 56 | foreign import ccall "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
57 | |||
54 | ellint_Ecomp :: Double -> Precision -> Double | 58 | ellint_Ecomp :: Double -> Precision -> Double |
55 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) | 59 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) |
56 | foreign import ccall "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double | 60 | foreign import ccall "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double |
61 | |||
57 | ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) | 62 | ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) |
58 | ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) | 63 | ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) |
59 | foreign import ccall "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 64 | foreign import ccall "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
65 | |||
60 | ellint_Pcomp :: Double -> Double -> Precision -> Double | 66 | ellint_Pcomp :: Double -> Double -> Precision -> Double |
61 | ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) | 67 | ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) |
62 | foreign import ccall "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double | 68 | foreign import ccall "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double |
69 | |||
63 | ellint_Dcomp_e :: Double -> Precision -> (Double,Double) | 70 | ellint_Dcomp_e :: Double -> Precision -> (Double,Double) |
64 | ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) | 71 | ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) |
65 | foreign import ccall "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 72 | foreign import ccall "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
73 | |||
66 | ellint_Dcomp :: Double -> Precision -> Double | 74 | ellint_Dcomp :: Double -> Precision -> Double |
67 | ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) | 75 | ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) |
68 | foreign import ccall "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double | 76 | foreign import ccall "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double |
77 | |||
69 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) | 78 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) |
70 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) | 79 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) |
71 | foreign import ccall "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 80 | foreign import ccall "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
81 | |||
72 | ellint_F :: Double -> Double -> Precision -> Double | 82 | ellint_F :: Double -> Double -> Precision -> Double |
73 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) | 83 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) |
74 | foreign import ccall "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double | 84 | foreign import ccall "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double |
85 | |||
75 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) | 86 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) |
76 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) | 87 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) |
77 | foreign import ccall "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 88 | foreign import ccall "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
89 | |||
78 | ellint_E :: Double -> Double -> Precision -> Double | 90 | ellint_E :: Double -> Double -> Precision -> Double |
79 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) | 91 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) |
80 | foreign import ccall "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double | 92 | foreign import ccall "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double |
93 | |||
81 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 94 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
82 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) | 95 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) |
83 | foreign import ccall "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 96 | foreign import ccall "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
97 | |||
84 | ellint_P :: Double -> Double -> Double -> Precision -> Double | 98 | ellint_P :: Double -> Double -> Double -> Precision -> Double |
85 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) | 99 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) |
86 | foreign import ccall "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double | 100 | foreign import ccall "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double |
101 | |||
87 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 102 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
88 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) | 103 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) |
89 | foreign import ccall "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 104 | foreign import ccall "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
105 | |||
90 | ellint_D :: Double -> Double -> Double -> Precision -> Double | 106 | ellint_D :: Double -> Double -> Double -> Precision -> Double |
91 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) | 107 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) |
92 | foreign import ccall "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double | 108 | foreign import ccall "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double |
109 | |||
93 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) | 110 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) |
94 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) | 111 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) |
95 | foreign import ccall "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 112 | foreign import ccall "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
113 | |||
96 | ellint_RC :: Double -> Double -> Precision -> Double | 114 | ellint_RC :: Double -> Double -> Precision -> Double |
97 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) | 115 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) |
98 | foreign import ccall "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double | 116 | foreign import ccall "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double |
117 | |||
99 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 118 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
100 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) | 119 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) |
101 | foreign import ccall "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 120 | foreign import ccall "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
121 | |||
102 | ellint_RD :: Double -> Double -> Double -> Precision -> Double | 122 | ellint_RD :: Double -> Double -> Double -> Precision -> Double |
103 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) | 123 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) |
104 | foreign import ccall "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double | 124 | foreign import ccall "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double |
125 | |||
105 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 126 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
106 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) | 127 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) |
107 | foreign import ccall "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 128 | foreign import ccall "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
129 | |||
108 | ellint_RF :: Double -> Double -> Double -> Precision -> Double | 130 | ellint_RF :: Double -> Double -> Double -> Precision -> Double |
109 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) | 131 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) |
110 | foreign import ccall "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double | 132 | foreign import ccall "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double |
133 | |||
111 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) | 134 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) |
112 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) | 135 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) |
113 | foreign import ccall "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 136 | foreign import ccall "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
137 | |||
114 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double | 138 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double |
115 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) | 139 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) |
116 | foreign import ccall "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double | 140 | foreign import ccall "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double |