diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-06-19 07:37:05 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-06-19 07:37:05 +0000 |
commit | a9722cf16fe322985c998ab290cf03213b539e49 (patch) | |
tree | fc06b55ff719a7908eae23748bacfe140ce5374f | |
parent | f589b9e673c3aef62834b3e2e88d96226bb7c24f (diff) |
minor changes
30 files changed, 483 insertions, 8 deletions
@@ -40,11 +40,10 @@ INSTALLATION ON WINDOWS ---------------------------------------- | |||
40 | line 17: build-type: Custom | 40 | line 17: build-type: Custom |
41 | change to: build-type: Simple | 41 | change to: build-type: Simple |
42 | 42 | ||
43 | line 162: extra-libraries: | 43 | and at the end of the file add: |
44 | add: extra-libraries: libgsl-0 blas lapack | ||
45 | 44 | ||
46 | line 163: extra-lib-dirs: | 45 | extra-libraries: libgsl-0 blas lapack |
47 | add: extra-lib-dirs: c:\ghc\ghc-6.10.3\bin | 46 | extra-lib-dirs: c:\ghc\ghc-6.10.3\bin |
48 | 47 | ||
49 | 8) Open a terminal, cd to the hmatrix folder, and run | 48 | 8) Open a terminal, cd to the hmatrix folder, and run |
50 | 49 | ||
diff --git a/hmatrix.cabal b/hmatrix.cabal index 59eee92..44fdd95 100644 --- a/hmatrix.cabal +++ b/hmatrix.cabal | |||
@@ -1,5 +1,5 @@ | |||
1 | Name: hmatrix | 1 | Name: hmatrix |
2 | Version: 0.5.2.2 | 2 | Version: 0.5.2.3 |
3 | License: GPL | 3 | License: GPL |
4 | License-file: LICENSE | 4 | License-file: LICENSE |
5 | Author: Alberto Ruiz | 5 | Author: Alberto Ruiz |
diff --git a/lib/Numeric/GSL/Special/Airy.hs b/lib/Numeric/GSL/Special/Airy.hs index 0477039..2f20c6f 100644 --- a/lib/Numeric/GSL/Special/Airy.hs +++ b/lib/Numeric/GSL/Special/Airy.hs | |||
@@ -43,75 +43,99 @@ module Numeric.GSL.Special.Airy( | |||
43 | import Foreign(Ptr) | 43 | import Foreign(Ptr) |
44 | import Foreign.C.Types(CInt) | 44 | import Foreign.C.Types(CInt) |
45 | import Numeric.GSL.Special.Internal | 45 | import Numeric.GSL.Special.Internal |
46 | |||
46 | airy_Ai_e :: Double -> Precision -> (Double,Double) | 47 | airy_Ai_e :: Double -> Precision -> (Double,Double) |
47 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) | 48 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) |
48 | foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 49 | foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
50 | |||
49 | airy_Ai :: Double -> Precision -> Double | 51 | airy_Ai :: Double -> Precision -> Double |
50 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) | 52 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) |
51 | foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double | 53 | foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double |
54 | |||
52 | airy_Bi_e :: Double -> Precision -> (Double,Double) | 55 | airy_Bi_e :: Double -> Precision -> (Double,Double) |
53 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) | 56 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) |
54 | foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 57 | foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
58 | |||
55 | airy_Bi :: Double -> Precision -> Double | 59 | airy_Bi :: Double -> Precision -> Double |
56 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) | 60 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) |
57 | foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double | 61 | foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double |
62 | |||
58 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) | 63 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) |
59 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) | 64 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) |
60 | foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
66 | |||
61 | airy_Ai_scaled :: Double -> Precision -> Double | 67 | airy_Ai_scaled :: Double -> Precision -> Double |
62 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) | 68 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) |
63 | foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double | 69 | foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double |
70 | |||
64 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) | 71 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) |
65 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) | 72 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) |
66 | foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 73 | foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
74 | |||
67 | airy_Bi_scaled :: Double -> Precision -> Double | 75 | airy_Bi_scaled :: Double -> Precision -> Double |
68 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) | 76 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) |
69 | foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double | 77 | foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double |
78 | |||
70 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) | 79 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) |
71 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) | 80 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) |
72 | foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 81 | foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
82 | |||
73 | airy_Ai_deriv :: Double -> Precision -> Double | 83 | airy_Ai_deriv :: Double -> Precision -> Double |
74 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) | 84 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) |
75 | foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double | 85 | foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double |
86 | |||
76 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) | 87 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) |
77 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) | 88 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) |
78 | foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 89 | foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
90 | |||
79 | airy_Bi_deriv :: Double -> Precision -> Double | 91 | airy_Bi_deriv :: Double -> Precision -> Double |
80 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) | 92 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) |
81 | foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double | 93 | foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double |
94 | |||
82 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) | 95 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) |
83 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) | 96 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) |
84 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 97 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
98 | |||
85 | airy_Ai_deriv_scaled :: Double -> Precision -> Double | 99 | airy_Ai_deriv_scaled :: Double -> Precision -> Double |
86 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) | 100 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) |
87 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double | 101 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double |
102 | |||
88 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) | 103 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) |
89 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) | 104 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) |
90 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 105 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
106 | |||
91 | airy_Bi_deriv_scaled :: Double -> Precision -> Double | 107 | airy_Bi_deriv_scaled :: Double -> Precision -> Double |
92 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) | 108 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) |
93 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double | 109 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double |
110 | |||
94 | airy_zero_Ai_e :: CInt -> (Double,Double) | 111 | airy_zero_Ai_e :: CInt -> (Double,Double) |
95 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s | 112 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s |
96 | foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt | 113 | foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt |
114 | |||
97 | airy_zero_Ai :: CInt -> Double | 115 | airy_zero_Ai :: CInt -> Double |
98 | airy_zero_Ai = gsl_sf_airy_zero_Ai | 116 | airy_zero_Ai = gsl_sf_airy_zero_Ai |
99 | foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double | 117 | foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double |
118 | |||
100 | airy_zero_Bi_e :: CInt -> (Double,Double) | 119 | airy_zero_Bi_e :: CInt -> (Double,Double) |
101 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s | 120 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s |
102 | foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt | 121 | foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt |
122 | |||
103 | airy_zero_Bi :: CInt -> Double | 123 | airy_zero_Bi :: CInt -> Double |
104 | airy_zero_Bi = gsl_sf_airy_zero_Bi | 124 | airy_zero_Bi = gsl_sf_airy_zero_Bi |
105 | foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double | 125 | foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double |
126 | |||
106 | airy_zero_Ai_deriv_e :: CInt -> (Double,Double) | 127 | airy_zero_Ai_deriv_e :: CInt -> (Double,Double) |
107 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s | 128 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s |
108 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt | 129 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt |
130 | |||
109 | airy_zero_Ai_deriv :: CInt -> Double | 131 | airy_zero_Ai_deriv :: CInt -> Double |
110 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv | 132 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv |
111 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double | 133 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double |
134 | |||
112 | airy_zero_Bi_deriv_e :: CInt -> (Double,Double) | 135 | airy_zero_Bi_deriv_e :: CInt -> (Double,Double) |
113 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s | 136 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s |
114 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt | 137 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt |
138 | |||
115 | airy_zero_Bi_deriv :: CInt -> Double | 139 | airy_zero_Bi_deriv :: CInt -> Double |
116 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv | 140 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv |
117 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double | 141 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double |
diff --git a/lib/Numeric/GSL/Special/Bessel.hs b/lib/Numeric/GSL/Special/Bessel.hs index bd31402..187da2d 100644 --- a/lib/Numeric/GSL/Special/Bessel.hs +++ b/lib/Numeric/GSL/Special/Bessel.hs | |||
@@ -106,303 +106,403 @@ module Numeric.GSL.Special.Bessel( | |||
106 | import Foreign(Ptr) | 106 | import Foreign(Ptr) |
107 | import Foreign.C.Types(CInt) | 107 | import Foreign.C.Types(CInt) |
108 | import Numeric.GSL.Special.Internal | 108 | import Numeric.GSL.Special.Internal |
109 | |||
109 | bessel_J0_e :: Double -> (Double,Double) | 110 | bessel_J0_e :: Double -> (Double,Double) |
110 | bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x | 111 | bessel_J0_e x = createSFR "bessel_J0_e" $ gsl_sf_bessel_J0_e x |
111 | foreign import ccall "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt | 112 | foreign import ccall "gsl_sf_bessel_J0_e" gsl_sf_bessel_J0_e :: Double -> Ptr () -> IO CInt |
113 | |||
112 | bessel_J0 :: Double -> Double | 114 | bessel_J0 :: Double -> Double |
113 | bessel_J0 = gsl_sf_bessel_J0 | 115 | bessel_J0 = gsl_sf_bessel_J0 |
114 | foreign import ccall "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double | 116 | foreign import ccall "gsl_sf_bessel_J0" gsl_sf_bessel_J0 :: Double -> Double |
117 | |||
115 | bessel_J1_e :: Double -> (Double,Double) | 118 | bessel_J1_e :: Double -> (Double,Double) |
116 | bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x | 119 | bessel_J1_e x = createSFR "bessel_J1_e" $ gsl_sf_bessel_J1_e x |
117 | foreign import ccall "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt | 120 | foreign import ccall "gsl_sf_bessel_J1_e" gsl_sf_bessel_J1_e :: Double -> Ptr () -> IO CInt |
121 | |||
118 | bessel_J1 :: Double -> Double | 122 | bessel_J1 :: Double -> Double |
119 | bessel_J1 = gsl_sf_bessel_J1 | 123 | bessel_J1 = gsl_sf_bessel_J1 |
120 | foreign import ccall "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double | 124 | foreign import ccall "gsl_sf_bessel_J1" gsl_sf_bessel_J1 :: Double -> Double |
125 | |||
121 | bessel_Jn_e :: CInt -> Double -> (Double,Double) | 126 | bessel_Jn_e :: CInt -> Double -> (Double,Double) |
122 | bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x | 127 | bessel_Jn_e n x = createSFR "bessel_Jn_e" $ gsl_sf_bessel_Jn_e n x |
123 | foreign import ccall "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt | 128 | foreign import ccall "gsl_sf_bessel_Jn_e" gsl_sf_bessel_Jn_e :: CInt -> Double -> Ptr () -> IO CInt |
129 | |||
124 | bessel_Jn :: CInt -> Double -> Double | 130 | bessel_Jn :: CInt -> Double -> Double |
125 | bessel_Jn = gsl_sf_bessel_Jn | 131 | bessel_Jn = gsl_sf_bessel_Jn |
126 | foreign import ccall "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double | 132 | foreign import ccall "gsl_sf_bessel_Jn" gsl_sf_bessel_Jn :: CInt -> Double -> Double |
133 | |||
127 | bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 134 | bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
128 | bessel_Jn_array = gsl_sf_bessel_Jn_array | 135 | bessel_Jn_array = gsl_sf_bessel_Jn_array |
129 | foreign import ccall "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 136 | foreign import ccall "gsl_sf_bessel_Jn_array" gsl_sf_bessel_Jn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
137 | |||
130 | bessel_Y0_e :: Double -> (Double,Double) | 138 | bessel_Y0_e :: Double -> (Double,Double) |
131 | bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x | 139 | bessel_Y0_e x = createSFR "bessel_Y0_e" $ gsl_sf_bessel_Y0_e x |
132 | foreign import ccall "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt | 140 | foreign import ccall "gsl_sf_bessel_Y0_e" gsl_sf_bessel_Y0_e :: Double -> Ptr () -> IO CInt |
141 | |||
133 | bessel_Y0 :: Double -> Double | 142 | bessel_Y0 :: Double -> Double |
134 | bessel_Y0 = gsl_sf_bessel_Y0 | 143 | bessel_Y0 = gsl_sf_bessel_Y0 |
135 | foreign import ccall "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double | 144 | foreign import ccall "gsl_sf_bessel_Y0" gsl_sf_bessel_Y0 :: Double -> Double |
145 | |||
136 | bessel_Y1_e :: Double -> (Double,Double) | 146 | bessel_Y1_e :: Double -> (Double,Double) |
137 | bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x | 147 | bessel_Y1_e x = createSFR "bessel_Y1_e" $ gsl_sf_bessel_Y1_e x |
138 | foreign import ccall "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt | 148 | foreign import ccall "gsl_sf_bessel_Y1_e" gsl_sf_bessel_Y1_e :: Double -> Ptr () -> IO CInt |
149 | |||
139 | bessel_Y1 :: Double -> Double | 150 | bessel_Y1 :: Double -> Double |
140 | bessel_Y1 = gsl_sf_bessel_Y1 | 151 | bessel_Y1 = gsl_sf_bessel_Y1 |
141 | foreign import ccall "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double | 152 | foreign import ccall "gsl_sf_bessel_Y1" gsl_sf_bessel_Y1 :: Double -> Double |
153 | |||
142 | bessel_Yn_e :: CInt -> Double -> (Double,Double) | 154 | bessel_Yn_e :: CInt -> Double -> (Double,Double) |
143 | bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x | 155 | bessel_Yn_e n x = createSFR "bessel_Yn_e" $ gsl_sf_bessel_Yn_e n x |
144 | foreign import ccall "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt | 156 | foreign import ccall "gsl_sf_bessel_Yn_e" gsl_sf_bessel_Yn_e :: CInt -> Double -> Ptr () -> IO CInt |
157 | |||
145 | bessel_Yn :: CInt -> Double -> Double | 158 | bessel_Yn :: CInt -> Double -> Double |
146 | bessel_Yn = gsl_sf_bessel_Yn | 159 | bessel_Yn = gsl_sf_bessel_Yn |
147 | foreign import ccall "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double | 160 | foreign import ccall "gsl_sf_bessel_Yn" gsl_sf_bessel_Yn :: CInt -> Double -> Double |
161 | |||
148 | bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 162 | bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
149 | bessel_Yn_array = gsl_sf_bessel_Yn_array | 163 | bessel_Yn_array = gsl_sf_bessel_Yn_array |
150 | foreign import ccall "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 164 | foreign import ccall "gsl_sf_bessel_Yn_array" gsl_sf_bessel_Yn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
165 | |||
151 | bessel_I0_e :: Double -> (Double,Double) | 166 | bessel_I0_e :: Double -> (Double,Double) |
152 | bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x | 167 | bessel_I0_e x = createSFR "bessel_I0_e" $ gsl_sf_bessel_I0_e x |
153 | foreign import ccall "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt | 168 | foreign import ccall "gsl_sf_bessel_I0_e" gsl_sf_bessel_I0_e :: Double -> Ptr () -> IO CInt |
169 | |||
154 | bessel_I0 :: Double -> Double | 170 | bessel_I0 :: Double -> Double |
155 | bessel_I0 = gsl_sf_bessel_I0 | 171 | bessel_I0 = gsl_sf_bessel_I0 |
156 | foreign import ccall "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double | 172 | foreign import ccall "gsl_sf_bessel_I0" gsl_sf_bessel_I0 :: Double -> Double |
173 | |||
157 | bessel_I1_e :: Double -> (Double,Double) | 174 | bessel_I1_e :: Double -> (Double,Double) |
158 | bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x | 175 | bessel_I1_e x = createSFR "bessel_I1_e" $ gsl_sf_bessel_I1_e x |
159 | foreign import ccall "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt | 176 | foreign import ccall "gsl_sf_bessel_I1_e" gsl_sf_bessel_I1_e :: Double -> Ptr () -> IO CInt |
177 | |||
160 | bessel_I1 :: Double -> Double | 178 | bessel_I1 :: Double -> Double |
161 | bessel_I1 = gsl_sf_bessel_I1 | 179 | bessel_I1 = gsl_sf_bessel_I1 |
162 | foreign import ccall "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double | 180 | foreign import ccall "gsl_sf_bessel_I1" gsl_sf_bessel_I1 :: Double -> Double |
181 | |||
163 | bessel_In_e :: CInt -> Double -> (Double,Double) | 182 | bessel_In_e :: CInt -> Double -> (Double,Double) |
164 | bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x | 183 | bessel_In_e n x = createSFR "bessel_In_e" $ gsl_sf_bessel_In_e n x |
165 | foreign import ccall "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt | 184 | foreign import ccall "gsl_sf_bessel_In_e" gsl_sf_bessel_In_e :: CInt -> Double -> Ptr () -> IO CInt |
185 | |||
166 | bessel_In :: CInt -> Double -> Double | 186 | bessel_In :: CInt -> Double -> Double |
167 | bessel_In = gsl_sf_bessel_In | 187 | bessel_In = gsl_sf_bessel_In |
168 | foreign import ccall "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double | 188 | foreign import ccall "gsl_sf_bessel_In" gsl_sf_bessel_In :: CInt -> Double -> Double |
189 | |||
169 | bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 190 | bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
170 | bessel_In_array = gsl_sf_bessel_In_array | 191 | bessel_In_array = gsl_sf_bessel_In_array |
171 | foreign import ccall "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 192 | foreign import ccall "gsl_sf_bessel_In_array" gsl_sf_bessel_In_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
193 | |||
172 | bessel_I0_scaled_e :: Double -> (Double,Double) | 194 | bessel_I0_scaled_e :: Double -> (Double,Double) |
173 | bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x | 195 | bessel_I0_scaled_e x = createSFR "bessel_I0_scaled_e" $ gsl_sf_bessel_I0_scaled_e x |
174 | foreign import ccall "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt | 196 | foreign import ccall "gsl_sf_bessel_I0_scaled_e" gsl_sf_bessel_I0_scaled_e :: Double -> Ptr () -> IO CInt |
197 | |||
175 | bessel_I0_scaled :: Double -> Double | 198 | bessel_I0_scaled :: Double -> Double |
176 | bessel_I0_scaled = gsl_sf_bessel_I0_scaled | 199 | bessel_I0_scaled = gsl_sf_bessel_I0_scaled |
177 | foreign import ccall "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double | 200 | foreign import ccall "gsl_sf_bessel_I0_scaled" gsl_sf_bessel_I0_scaled :: Double -> Double |
201 | |||
178 | bessel_I1_scaled_e :: Double -> (Double,Double) | 202 | bessel_I1_scaled_e :: Double -> (Double,Double) |
179 | bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x | 203 | bessel_I1_scaled_e x = createSFR "bessel_I1_scaled_e" $ gsl_sf_bessel_I1_scaled_e x |
180 | foreign import ccall "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt | 204 | foreign import ccall "gsl_sf_bessel_I1_scaled_e" gsl_sf_bessel_I1_scaled_e :: Double -> Ptr () -> IO CInt |
205 | |||
181 | bessel_I1_scaled :: Double -> Double | 206 | bessel_I1_scaled :: Double -> Double |
182 | bessel_I1_scaled = gsl_sf_bessel_I1_scaled | 207 | bessel_I1_scaled = gsl_sf_bessel_I1_scaled |
183 | foreign import ccall "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double | 208 | foreign import ccall "gsl_sf_bessel_I1_scaled" gsl_sf_bessel_I1_scaled :: Double -> Double |
209 | |||
184 | bessel_In_scaled_e :: CInt -> Double -> (Double,Double) | 210 | bessel_In_scaled_e :: CInt -> Double -> (Double,Double) |
185 | bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x | 211 | bessel_In_scaled_e n x = createSFR "bessel_In_scaled_e" $ gsl_sf_bessel_In_scaled_e n x |
186 | foreign import ccall "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 212 | foreign import ccall "gsl_sf_bessel_In_scaled_e" gsl_sf_bessel_In_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
213 | |||
187 | bessel_In_scaled :: CInt -> Double -> Double | 214 | bessel_In_scaled :: CInt -> Double -> Double |
188 | bessel_In_scaled = gsl_sf_bessel_In_scaled | 215 | bessel_In_scaled = gsl_sf_bessel_In_scaled |
189 | foreign import ccall "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double | 216 | foreign import ccall "gsl_sf_bessel_In_scaled" gsl_sf_bessel_In_scaled :: CInt -> Double -> Double |
217 | |||
190 | bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 218 | bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
191 | bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array | 219 | bessel_In_scaled_array = gsl_sf_bessel_In_scaled_array |
192 | foreign import ccall "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 220 | foreign import ccall "gsl_sf_bessel_In_scaled_array" gsl_sf_bessel_In_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
221 | |||
193 | bessel_K0_e :: Double -> (Double,Double) | 222 | bessel_K0_e :: Double -> (Double,Double) |
194 | bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x | 223 | bessel_K0_e x = createSFR "bessel_K0_e" $ gsl_sf_bessel_K0_e x |
195 | foreign import ccall "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt | 224 | foreign import ccall "gsl_sf_bessel_K0_e" gsl_sf_bessel_K0_e :: Double -> Ptr () -> IO CInt |
225 | |||
196 | bessel_K0 :: Double -> Double | 226 | bessel_K0 :: Double -> Double |
197 | bessel_K0 = gsl_sf_bessel_K0 | 227 | bessel_K0 = gsl_sf_bessel_K0 |
198 | foreign import ccall "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double | 228 | foreign import ccall "gsl_sf_bessel_K0" gsl_sf_bessel_K0 :: Double -> Double |
229 | |||
199 | bessel_K1_e :: Double -> (Double,Double) | 230 | bessel_K1_e :: Double -> (Double,Double) |
200 | bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x | 231 | bessel_K1_e x = createSFR "bessel_K1_e" $ gsl_sf_bessel_K1_e x |
201 | foreign import ccall "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt | 232 | foreign import ccall "gsl_sf_bessel_K1_e" gsl_sf_bessel_K1_e :: Double -> Ptr () -> IO CInt |
233 | |||
202 | bessel_K1 :: Double -> Double | 234 | bessel_K1 :: Double -> Double |
203 | bessel_K1 = gsl_sf_bessel_K1 | 235 | bessel_K1 = gsl_sf_bessel_K1 |
204 | foreign import ccall "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double | 236 | foreign import ccall "gsl_sf_bessel_K1" gsl_sf_bessel_K1 :: Double -> Double |
237 | |||
205 | bessel_Kn_e :: CInt -> Double -> (Double,Double) | 238 | bessel_Kn_e :: CInt -> Double -> (Double,Double) |
206 | bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x | 239 | bessel_Kn_e n x = createSFR "bessel_Kn_e" $ gsl_sf_bessel_Kn_e n x |
207 | foreign import ccall "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt | 240 | foreign import ccall "gsl_sf_bessel_Kn_e" gsl_sf_bessel_Kn_e :: CInt -> Double -> Ptr () -> IO CInt |
241 | |||
208 | bessel_Kn :: CInt -> Double -> Double | 242 | bessel_Kn :: CInt -> Double -> Double |
209 | bessel_Kn = gsl_sf_bessel_Kn | 243 | bessel_Kn = gsl_sf_bessel_Kn |
210 | foreign import ccall "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double | 244 | foreign import ccall "gsl_sf_bessel_Kn" gsl_sf_bessel_Kn :: CInt -> Double -> Double |
245 | |||
211 | bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 246 | bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
212 | bessel_Kn_array = gsl_sf_bessel_Kn_array | 247 | bessel_Kn_array = gsl_sf_bessel_Kn_array |
213 | foreign import ccall "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 248 | foreign import ccall "gsl_sf_bessel_Kn_array" gsl_sf_bessel_Kn_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
249 | |||
214 | bessel_K0_scaled_e :: Double -> (Double,Double) | 250 | bessel_K0_scaled_e :: Double -> (Double,Double) |
215 | bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x | 251 | bessel_K0_scaled_e x = createSFR "bessel_K0_scaled_e" $ gsl_sf_bessel_K0_scaled_e x |
216 | foreign import ccall "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt | 252 | foreign import ccall "gsl_sf_bessel_K0_scaled_e" gsl_sf_bessel_K0_scaled_e :: Double -> Ptr () -> IO CInt |
253 | |||
217 | bessel_K0_scaled :: Double -> Double | 254 | bessel_K0_scaled :: Double -> Double |
218 | bessel_K0_scaled = gsl_sf_bessel_K0_scaled | 255 | bessel_K0_scaled = gsl_sf_bessel_K0_scaled |
219 | foreign import ccall "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double | 256 | foreign import ccall "gsl_sf_bessel_K0_scaled" gsl_sf_bessel_K0_scaled :: Double -> Double |
257 | |||
220 | bessel_K1_scaled_e :: Double -> (Double,Double) | 258 | bessel_K1_scaled_e :: Double -> (Double,Double) |
221 | bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x | 259 | bessel_K1_scaled_e x = createSFR "bessel_K1_scaled_e" $ gsl_sf_bessel_K1_scaled_e x |
222 | foreign import ccall "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt | 260 | foreign import ccall "gsl_sf_bessel_K1_scaled_e" gsl_sf_bessel_K1_scaled_e :: Double -> Ptr () -> IO CInt |
261 | |||
223 | bessel_K1_scaled :: Double -> Double | 262 | bessel_K1_scaled :: Double -> Double |
224 | bessel_K1_scaled = gsl_sf_bessel_K1_scaled | 263 | bessel_K1_scaled = gsl_sf_bessel_K1_scaled |
225 | foreign import ccall "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double | 264 | foreign import ccall "gsl_sf_bessel_K1_scaled" gsl_sf_bessel_K1_scaled :: Double -> Double |
265 | |||
226 | bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double) | 266 | bessel_Kn_scaled_e :: CInt -> Double -> (Double,Double) |
227 | bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x | 267 | bessel_Kn_scaled_e n x = createSFR "bessel_Kn_scaled_e" $ gsl_sf_bessel_Kn_scaled_e n x |
228 | foreign import ccall "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 268 | foreign import ccall "gsl_sf_bessel_Kn_scaled_e" gsl_sf_bessel_Kn_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
269 | |||
229 | bessel_Kn_scaled :: CInt -> Double -> Double | 270 | bessel_Kn_scaled :: CInt -> Double -> Double |
230 | bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled | 271 | bessel_Kn_scaled = gsl_sf_bessel_Kn_scaled |
231 | foreign import ccall "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double | 272 | foreign import ccall "gsl_sf_bessel_Kn_scaled" gsl_sf_bessel_Kn_scaled :: CInt -> Double -> Double |
273 | |||
232 | bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 274 | bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
233 | bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array | 275 | bessel_Kn_scaled_array = gsl_sf_bessel_Kn_scaled_array |
234 | foreign import ccall "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 276 | foreign import ccall "gsl_sf_bessel_Kn_scaled_array" gsl_sf_bessel_Kn_scaled_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
277 | |||
235 | bessel_j0_e :: Double -> (Double,Double) | 278 | bessel_j0_e :: Double -> (Double,Double) |
236 | bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x | 279 | bessel_j0_e x = createSFR "bessel_j0_e" $ gsl_sf_bessel_j0_e x |
237 | foreign import ccall "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt | 280 | foreign import ccall "gsl_sf_bessel_j0_e" gsl_sf_bessel_j0_e :: Double -> Ptr () -> IO CInt |
281 | |||
238 | bessel_j0 :: Double -> Double | 282 | bessel_j0 :: Double -> Double |
239 | bessel_j0 = gsl_sf_bessel_j0 | 283 | bessel_j0 = gsl_sf_bessel_j0 |
240 | foreign import ccall "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double | 284 | foreign import ccall "gsl_sf_bessel_j0" gsl_sf_bessel_j0 :: Double -> Double |
285 | |||
241 | bessel_j1_e :: Double -> (Double,Double) | 286 | bessel_j1_e :: Double -> (Double,Double) |
242 | bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x | 287 | bessel_j1_e x = createSFR "bessel_j1_e" $ gsl_sf_bessel_j1_e x |
243 | foreign import ccall "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt | 288 | foreign import ccall "gsl_sf_bessel_j1_e" gsl_sf_bessel_j1_e :: Double -> Ptr () -> IO CInt |
289 | |||
244 | bessel_j1 :: Double -> Double | 290 | bessel_j1 :: Double -> Double |
245 | bessel_j1 = gsl_sf_bessel_j1 | 291 | bessel_j1 = gsl_sf_bessel_j1 |
246 | foreign import ccall "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double | 292 | foreign import ccall "gsl_sf_bessel_j1" gsl_sf_bessel_j1 :: Double -> Double |
293 | |||
247 | bessel_j2_e :: Double -> (Double,Double) | 294 | bessel_j2_e :: Double -> (Double,Double) |
248 | bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x | 295 | bessel_j2_e x = createSFR "bessel_j2_e" $ gsl_sf_bessel_j2_e x |
249 | foreign import ccall "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt | 296 | foreign import ccall "gsl_sf_bessel_j2_e" gsl_sf_bessel_j2_e :: Double -> Ptr () -> IO CInt |
297 | |||
250 | bessel_j2 :: Double -> Double | 298 | bessel_j2 :: Double -> Double |
251 | bessel_j2 = gsl_sf_bessel_j2 | 299 | bessel_j2 = gsl_sf_bessel_j2 |
252 | foreign import ccall "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double | 300 | foreign import ccall "gsl_sf_bessel_j2" gsl_sf_bessel_j2 :: Double -> Double |
301 | |||
253 | bessel_jl_e :: CInt -> Double -> (Double,Double) | 302 | bessel_jl_e :: CInt -> Double -> (Double,Double) |
254 | bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x | 303 | bessel_jl_e l x = createSFR "bessel_jl_e" $ gsl_sf_bessel_jl_e l x |
255 | foreign import ccall "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt | 304 | foreign import ccall "gsl_sf_bessel_jl_e" gsl_sf_bessel_jl_e :: CInt -> Double -> Ptr () -> IO CInt |
305 | |||
256 | bessel_jl :: CInt -> Double -> Double | 306 | bessel_jl :: CInt -> Double -> Double |
257 | bessel_jl = gsl_sf_bessel_jl | 307 | bessel_jl = gsl_sf_bessel_jl |
258 | foreign import ccall "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double | 308 | foreign import ccall "gsl_sf_bessel_jl" gsl_sf_bessel_jl :: CInt -> Double -> Double |
309 | |||
259 | bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt | 310 | bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt |
260 | bessel_jl_array = gsl_sf_bessel_jl_array | 311 | bessel_jl_array = gsl_sf_bessel_jl_array |
261 | foreign import ccall "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt | 312 | foreign import ccall "gsl_sf_bessel_jl_array" gsl_sf_bessel_jl_array :: CInt -> Double -> Ptr Double -> CInt |
313 | |||
262 | bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt | 314 | bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt |
263 | bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array | 315 | bessel_jl_steed_array = gsl_sf_bessel_jl_steed_array |
264 | foreign import ccall "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt | 316 | foreign import ccall "gsl_sf_bessel_jl_steed_array" gsl_sf_bessel_jl_steed_array :: CInt -> Double -> Ptr Double -> CInt |
317 | |||
265 | bessel_y0_e :: Double -> (Double,Double) | 318 | bessel_y0_e :: Double -> (Double,Double) |
266 | bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x | 319 | bessel_y0_e x = createSFR "bessel_y0_e" $ gsl_sf_bessel_y0_e x |
267 | foreign import ccall "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt | 320 | foreign import ccall "gsl_sf_bessel_y0_e" gsl_sf_bessel_y0_e :: Double -> Ptr () -> IO CInt |
321 | |||
268 | bessel_y0 :: Double -> Double | 322 | bessel_y0 :: Double -> Double |
269 | bessel_y0 = gsl_sf_bessel_y0 | 323 | bessel_y0 = gsl_sf_bessel_y0 |
270 | foreign import ccall "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double | 324 | foreign import ccall "gsl_sf_bessel_y0" gsl_sf_bessel_y0 :: Double -> Double |
325 | |||
271 | bessel_y1_e :: Double -> (Double,Double) | 326 | bessel_y1_e :: Double -> (Double,Double) |
272 | bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x | 327 | bessel_y1_e x = createSFR "bessel_y1_e" $ gsl_sf_bessel_y1_e x |
273 | foreign import ccall "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt | 328 | foreign import ccall "gsl_sf_bessel_y1_e" gsl_sf_bessel_y1_e :: Double -> Ptr () -> IO CInt |
329 | |||
274 | bessel_y1 :: Double -> Double | 330 | bessel_y1 :: Double -> Double |
275 | bessel_y1 = gsl_sf_bessel_y1 | 331 | bessel_y1 = gsl_sf_bessel_y1 |
276 | foreign import ccall "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double | 332 | foreign import ccall "gsl_sf_bessel_y1" gsl_sf_bessel_y1 :: Double -> Double |
333 | |||
277 | bessel_y2_e :: Double -> (Double,Double) | 334 | bessel_y2_e :: Double -> (Double,Double) |
278 | bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x | 335 | bessel_y2_e x = createSFR "bessel_y2_e" $ gsl_sf_bessel_y2_e x |
279 | foreign import ccall "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt | 336 | foreign import ccall "gsl_sf_bessel_y2_e" gsl_sf_bessel_y2_e :: Double -> Ptr () -> IO CInt |
337 | |||
280 | bessel_y2 :: Double -> Double | 338 | bessel_y2 :: Double -> Double |
281 | bessel_y2 = gsl_sf_bessel_y2 | 339 | bessel_y2 = gsl_sf_bessel_y2 |
282 | foreign import ccall "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double | 340 | foreign import ccall "gsl_sf_bessel_y2" gsl_sf_bessel_y2 :: Double -> Double |
341 | |||
283 | bessel_yl_e :: CInt -> Double -> (Double,Double) | 342 | bessel_yl_e :: CInt -> Double -> (Double,Double) |
284 | bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x | 343 | bessel_yl_e l x = createSFR "bessel_yl_e" $ gsl_sf_bessel_yl_e l x |
285 | foreign import ccall "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt | 344 | foreign import ccall "gsl_sf_bessel_yl_e" gsl_sf_bessel_yl_e :: CInt -> Double -> Ptr () -> IO CInt |
345 | |||
286 | bessel_yl :: CInt -> Double -> Double | 346 | bessel_yl :: CInt -> Double -> Double |
287 | bessel_yl = gsl_sf_bessel_yl | 347 | bessel_yl = gsl_sf_bessel_yl |
288 | foreign import ccall "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double | 348 | foreign import ccall "gsl_sf_bessel_yl" gsl_sf_bessel_yl :: CInt -> Double -> Double |
349 | |||
289 | bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt | 350 | bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt |
290 | bessel_yl_array = gsl_sf_bessel_yl_array | 351 | bessel_yl_array = gsl_sf_bessel_yl_array |
291 | foreign import ccall "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt | 352 | foreign import ccall "gsl_sf_bessel_yl_array" gsl_sf_bessel_yl_array :: CInt -> Double -> Ptr Double -> CInt |
353 | |||
292 | bessel_i0_scaled_e :: Double -> (Double,Double) | 354 | bessel_i0_scaled_e :: Double -> (Double,Double) |
293 | bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x | 355 | bessel_i0_scaled_e x = createSFR "bessel_i0_scaled_e" $ gsl_sf_bessel_i0_scaled_e x |
294 | foreign import ccall "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt | 356 | foreign import ccall "gsl_sf_bessel_i0_scaled_e" gsl_sf_bessel_i0_scaled_e :: Double -> Ptr () -> IO CInt |
357 | |||
295 | bessel_i0_scaled :: Double -> Double | 358 | bessel_i0_scaled :: Double -> Double |
296 | bessel_i0_scaled = gsl_sf_bessel_i0_scaled | 359 | bessel_i0_scaled = gsl_sf_bessel_i0_scaled |
297 | foreign import ccall "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double | 360 | foreign import ccall "gsl_sf_bessel_i0_scaled" gsl_sf_bessel_i0_scaled :: Double -> Double |
361 | |||
298 | bessel_i1_scaled_e :: Double -> (Double,Double) | 362 | bessel_i1_scaled_e :: Double -> (Double,Double) |
299 | bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x | 363 | bessel_i1_scaled_e x = createSFR "bessel_i1_scaled_e" $ gsl_sf_bessel_i1_scaled_e x |
300 | foreign import ccall "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt | 364 | foreign import ccall "gsl_sf_bessel_i1_scaled_e" gsl_sf_bessel_i1_scaled_e :: Double -> Ptr () -> IO CInt |
365 | |||
301 | bessel_i1_scaled :: Double -> Double | 366 | bessel_i1_scaled :: Double -> Double |
302 | bessel_i1_scaled = gsl_sf_bessel_i1_scaled | 367 | bessel_i1_scaled = gsl_sf_bessel_i1_scaled |
303 | foreign import ccall "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double | 368 | foreign import ccall "gsl_sf_bessel_i1_scaled" gsl_sf_bessel_i1_scaled :: Double -> Double |
369 | |||
304 | bessel_i2_scaled_e :: Double -> (Double,Double) | 370 | bessel_i2_scaled_e :: Double -> (Double,Double) |
305 | bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x | 371 | bessel_i2_scaled_e x = createSFR "bessel_i2_scaled_e" $ gsl_sf_bessel_i2_scaled_e x |
306 | foreign import ccall "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt | 372 | foreign import ccall "gsl_sf_bessel_i2_scaled_e" gsl_sf_bessel_i2_scaled_e :: Double -> Ptr () -> IO CInt |
373 | |||
307 | bessel_i2_scaled :: Double -> Double | 374 | bessel_i2_scaled :: Double -> Double |
308 | bessel_i2_scaled = gsl_sf_bessel_i2_scaled | 375 | bessel_i2_scaled = gsl_sf_bessel_i2_scaled |
309 | foreign import ccall "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double | 376 | foreign import ccall "gsl_sf_bessel_i2_scaled" gsl_sf_bessel_i2_scaled :: Double -> Double |
377 | |||
310 | bessel_il_scaled_e :: CInt -> Double -> (Double,Double) | 378 | bessel_il_scaled_e :: CInt -> Double -> (Double,Double) |
311 | bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x | 379 | bessel_il_scaled_e l x = createSFR "bessel_il_scaled_e" $ gsl_sf_bessel_il_scaled_e l x |
312 | foreign import ccall "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 380 | foreign import ccall "gsl_sf_bessel_il_scaled_e" gsl_sf_bessel_il_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
381 | |||
313 | bessel_il_scaled :: CInt -> Double -> Double | 382 | bessel_il_scaled :: CInt -> Double -> Double |
314 | bessel_il_scaled = gsl_sf_bessel_il_scaled | 383 | bessel_il_scaled = gsl_sf_bessel_il_scaled |
315 | foreign import ccall "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double | 384 | foreign import ccall "gsl_sf_bessel_il_scaled" gsl_sf_bessel_il_scaled :: CInt -> Double -> Double |
385 | |||
316 | bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 386 | bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
317 | bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array | 387 | bessel_il_scaled_array = gsl_sf_bessel_il_scaled_array |
318 | foreign import ccall "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 388 | foreign import ccall "gsl_sf_bessel_il_scaled_array" gsl_sf_bessel_il_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
389 | |||
319 | bessel_k0_scaled_e :: Double -> (Double,Double) | 390 | bessel_k0_scaled_e :: Double -> (Double,Double) |
320 | bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x | 391 | bessel_k0_scaled_e x = createSFR "bessel_k0_scaled_e" $ gsl_sf_bessel_k0_scaled_e x |
321 | foreign import ccall "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt | 392 | foreign import ccall "gsl_sf_bessel_k0_scaled_e" gsl_sf_bessel_k0_scaled_e :: Double -> Ptr () -> IO CInt |
393 | |||
322 | bessel_k0_scaled :: Double -> Double | 394 | bessel_k0_scaled :: Double -> Double |
323 | bessel_k0_scaled = gsl_sf_bessel_k0_scaled | 395 | bessel_k0_scaled = gsl_sf_bessel_k0_scaled |
324 | foreign import ccall "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double | 396 | foreign import ccall "gsl_sf_bessel_k0_scaled" gsl_sf_bessel_k0_scaled :: Double -> Double |
397 | |||
325 | bessel_k1_scaled_e :: Double -> (Double,Double) | 398 | bessel_k1_scaled_e :: Double -> (Double,Double) |
326 | bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x | 399 | bessel_k1_scaled_e x = createSFR "bessel_k1_scaled_e" $ gsl_sf_bessel_k1_scaled_e x |
327 | foreign import ccall "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt | 400 | foreign import ccall "gsl_sf_bessel_k1_scaled_e" gsl_sf_bessel_k1_scaled_e :: Double -> Ptr () -> IO CInt |
401 | |||
328 | bessel_k1_scaled :: Double -> Double | 402 | bessel_k1_scaled :: Double -> Double |
329 | bessel_k1_scaled = gsl_sf_bessel_k1_scaled | 403 | bessel_k1_scaled = gsl_sf_bessel_k1_scaled |
330 | foreign import ccall "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double | 404 | foreign import ccall "gsl_sf_bessel_k1_scaled" gsl_sf_bessel_k1_scaled :: Double -> Double |
405 | |||
331 | bessel_k2_scaled_e :: Double -> (Double,Double) | 406 | bessel_k2_scaled_e :: Double -> (Double,Double) |
332 | bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x | 407 | bessel_k2_scaled_e x = createSFR "bessel_k2_scaled_e" $ gsl_sf_bessel_k2_scaled_e x |
333 | foreign import ccall "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt | 408 | foreign import ccall "gsl_sf_bessel_k2_scaled_e" gsl_sf_bessel_k2_scaled_e :: Double -> Ptr () -> IO CInt |
409 | |||
334 | bessel_k2_scaled :: Double -> Double | 410 | bessel_k2_scaled :: Double -> Double |
335 | bessel_k2_scaled = gsl_sf_bessel_k2_scaled | 411 | bessel_k2_scaled = gsl_sf_bessel_k2_scaled |
336 | foreign import ccall "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double | 412 | foreign import ccall "gsl_sf_bessel_k2_scaled" gsl_sf_bessel_k2_scaled :: Double -> Double |
413 | |||
337 | bessel_kl_scaled_e :: CInt -> Double -> (Double,Double) | 414 | bessel_kl_scaled_e :: CInt -> Double -> (Double,Double) |
338 | bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x | 415 | bessel_kl_scaled_e l x = createSFR "bessel_kl_scaled_e" $ gsl_sf_bessel_kl_scaled_e l x |
339 | foreign import ccall "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 416 | foreign import ccall "gsl_sf_bessel_kl_scaled_e" gsl_sf_bessel_kl_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
417 | |||
340 | bessel_kl_scaled :: CInt -> Double -> Double | 418 | bessel_kl_scaled :: CInt -> Double -> Double |
341 | bessel_kl_scaled = gsl_sf_bessel_kl_scaled | 419 | bessel_kl_scaled = gsl_sf_bessel_kl_scaled |
342 | foreign import ccall "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double | 420 | foreign import ccall "gsl_sf_bessel_kl_scaled" gsl_sf_bessel_kl_scaled :: CInt -> Double -> Double |
421 | |||
343 | bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 422 | bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
344 | bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array | 423 | bessel_kl_scaled_array = gsl_sf_bessel_kl_scaled_array |
345 | foreign import ccall "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt | 424 | foreign import ccall "gsl_sf_bessel_kl_scaled_array" gsl_sf_bessel_kl_scaled_array :: CInt -> Double -> Ptr Double -> CInt |
425 | |||
346 | bessel_Jnu_e :: Double -> Double -> (Double,Double) | 426 | bessel_Jnu_e :: Double -> Double -> (Double,Double) |
347 | bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x | 427 | bessel_Jnu_e nu x = createSFR "bessel_Jnu_e" $ gsl_sf_bessel_Jnu_e nu x |
348 | foreign import ccall "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt | 428 | foreign import ccall "gsl_sf_bessel_Jnu_e" gsl_sf_bessel_Jnu_e :: Double -> Double -> Ptr () -> IO CInt |
429 | |||
349 | bessel_Jnu :: Double -> Double -> Double | 430 | bessel_Jnu :: Double -> Double -> Double |
350 | bessel_Jnu = gsl_sf_bessel_Jnu | 431 | bessel_Jnu = gsl_sf_bessel_Jnu |
351 | foreign import ccall "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double | 432 | foreign import ccall "gsl_sf_bessel_Jnu" gsl_sf_bessel_Jnu :: Double -> Double -> Double |
433 | |||
352 | bessel_Ynu_e :: Double -> Double -> (Double,Double) | 434 | bessel_Ynu_e :: Double -> Double -> (Double,Double) |
353 | bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x | 435 | bessel_Ynu_e nu x = createSFR "bessel_Ynu_e" $ gsl_sf_bessel_Ynu_e nu x |
354 | foreign import ccall "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt | 436 | foreign import ccall "gsl_sf_bessel_Ynu_e" gsl_sf_bessel_Ynu_e :: Double -> Double -> Ptr () -> IO CInt |
437 | |||
355 | bessel_Ynu :: Double -> Double -> Double | 438 | bessel_Ynu :: Double -> Double -> Double |
356 | bessel_Ynu = gsl_sf_bessel_Ynu | 439 | bessel_Ynu = gsl_sf_bessel_Ynu |
357 | foreign import ccall "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double | 440 | foreign import ccall "gsl_sf_bessel_Ynu" gsl_sf_bessel_Ynu :: Double -> Double -> Double |
441 | |||
358 | bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt | 442 | bessel_sequence_Jnu_e :: Double -> Precision -> Size_t -> Ptr Double -> CInt |
359 | bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v | 443 | bessel_sequence_Jnu_e nu mode size v = gsl_sf_bessel_sequence_Jnu_e nu (precCode mode) size v |
360 | foreign import ccall "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt | 444 | foreign import ccall "gsl_sf_bessel_sequence_Jnu_e" gsl_sf_bessel_sequence_Jnu_e :: Double -> Gsl_mode_t -> Size_t -> Ptr Double -> CInt |
445 | |||
361 | bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) | 446 | bessel_Inu_scaled_e :: Double -> Double -> (Double,Double) |
362 | bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x | 447 | bessel_Inu_scaled_e nu x = createSFR "bessel_Inu_scaled_e" $ gsl_sf_bessel_Inu_scaled_e nu x |
363 | foreign import ccall "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt | 448 | foreign import ccall "gsl_sf_bessel_Inu_scaled_e" gsl_sf_bessel_Inu_scaled_e :: Double -> Double -> Ptr () -> IO CInt |
449 | |||
364 | bessel_Inu_scaled :: Double -> Double -> Double | 450 | bessel_Inu_scaled :: Double -> Double -> Double |
365 | bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled | 451 | bessel_Inu_scaled = gsl_sf_bessel_Inu_scaled |
366 | foreign import ccall "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double | 452 | foreign import ccall "gsl_sf_bessel_Inu_scaled" gsl_sf_bessel_Inu_scaled :: Double -> Double -> Double |
453 | |||
367 | bessel_Inu_e :: Double -> Double -> (Double,Double) | 454 | bessel_Inu_e :: Double -> Double -> (Double,Double) |
368 | bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x | 455 | bessel_Inu_e nu x = createSFR "bessel_Inu_e" $ gsl_sf_bessel_Inu_e nu x |
369 | foreign import ccall "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt | 456 | foreign import ccall "gsl_sf_bessel_Inu_e" gsl_sf_bessel_Inu_e :: Double -> Double -> Ptr () -> IO CInt |
457 | |||
370 | bessel_Inu :: Double -> Double -> Double | 458 | bessel_Inu :: Double -> Double -> Double |
371 | bessel_Inu = gsl_sf_bessel_Inu | 459 | bessel_Inu = gsl_sf_bessel_Inu |
372 | foreign import ccall "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double | 460 | foreign import ccall "gsl_sf_bessel_Inu" gsl_sf_bessel_Inu :: Double -> Double -> Double |
461 | |||
373 | bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) | 462 | bessel_Knu_scaled_e :: Double -> Double -> (Double,Double) |
374 | bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x | 463 | bessel_Knu_scaled_e nu x = createSFR "bessel_Knu_scaled_e" $ gsl_sf_bessel_Knu_scaled_e nu x |
375 | foreign import ccall "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt | 464 | foreign import ccall "gsl_sf_bessel_Knu_scaled_e" gsl_sf_bessel_Knu_scaled_e :: Double -> Double -> Ptr () -> IO CInt |
465 | |||
376 | bessel_Knu_scaled :: Double -> Double -> Double | 466 | bessel_Knu_scaled :: Double -> Double -> Double |
377 | bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled | 467 | bessel_Knu_scaled = gsl_sf_bessel_Knu_scaled |
378 | foreign import ccall "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double | 468 | foreign import ccall "gsl_sf_bessel_Knu_scaled" gsl_sf_bessel_Knu_scaled :: Double -> Double -> Double |
469 | |||
379 | bessel_Knu_e :: Double -> Double -> (Double,Double) | 470 | bessel_Knu_e :: Double -> Double -> (Double,Double) |
380 | bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x | 471 | bessel_Knu_e nu x = createSFR "bessel_Knu_e" $ gsl_sf_bessel_Knu_e nu x |
381 | foreign import ccall "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt | 472 | foreign import ccall "gsl_sf_bessel_Knu_e" gsl_sf_bessel_Knu_e :: Double -> Double -> Ptr () -> IO CInt |
473 | |||
382 | bessel_Knu :: Double -> Double -> Double | 474 | bessel_Knu :: Double -> Double -> Double |
383 | bessel_Knu = gsl_sf_bessel_Knu | 475 | bessel_Knu = gsl_sf_bessel_Knu |
384 | foreign import ccall "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double | 476 | foreign import ccall "gsl_sf_bessel_Knu" gsl_sf_bessel_Knu :: Double -> Double -> Double |
477 | |||
385 | bessel_lnKnu_e :: Double -> Double -> (Double,Double) | 478 | bessel_lnKnu_e :: Double -> Double -> (Double,Double) |
386 | bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x | 479 | bessel_lnKnu_e nu x = createSFR "bessel_lnKnu_e" $ gsl_sf_bessel_lnKnu_e nu x |
387 | foreign import ccall "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt | 480 | foreign import ccall "gsl_sf_bessel_lnKnu_e" gsl_sf_bessel_lnKnu_e :: Double -> Double -> Ptr () -> IO CInt |
481 | |||
388 | bessel_lnKnu :: Double -> Double -> Double | 482 | bessel_lnKnu :: Double -> Double -> Double |
389 | bessel_lnKnu = gsl_sf_bessel_lnKnu | 483 | bessel_lnKnu = gsl_sf_bessel_lnKnu |
390 | foreign import ccall "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double | 484 | foreign import ccall "gsl_sf_bessel_lnKnu" gsl_sf_bessel_lnKnu :: Double -> Double -> Double |
485 | |||
391 | bessel_zero_J0_e :: CInt -> (Double,Double) | 486 | bessel_zero_J0_e :: CInt -> (Double,Double) |
392 | bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s | 487 | bessel_zero_J0_e s = createSFR "bessel_zero_J0_e" $ gsl_sf_bessel_zero_J0_e s |
393 | foreign import ccall "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt | 488 | foreign import ccall "gsl_sf_bessel_zero_J0_e" gsl_sf_bessel_zero_J0_e :: CInt -> Ptr () -> IO CInt |
489 | |||
394 | bessel_zero_J0 :: CInt -> Double | 490 | bessel_zero_J0 :: CInt -> Double |
395 | bessel_zero_J0 = gsl_sf_bessel_zero_J0 | 491 | bessel_zero_J0 = gsl_sf_bessel_zero_J0 |
396 | foreign import ccall "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double | 492 | foreign import ccall "gsl_sf_bessel_zero_J0" gsl_sf_bessel_zero_J0 :: CInt -> Double |
493 | |||
397 | bessel_zero_J1_e :: CInt -> (Double,Double) | 494 | bessel_zero_J1_e :: CInt -> (Double,Double) |
398 | bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s | 495 | bessel_zero_J1_e s = createSFR "bessel_zero_J1_e" $ gsl_sf_bessel_zero_J1_e s |
399 | foreign import ccall "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt | 496 | foreign import ccall "gsl_sf_bessel_zero_J1_e" gsl_sf_bessel_zero_J1_e :: CInt -> Ptr () -> IO CInt |
497 | |||
400 | bessel_zero_J1 :: CInt -> Double | 498 | bessel_zero_J1 :: CInt -> Double |
401 | bessel_zero_J1 = gsl_sf_bessel_zero_J1 | 499 | bessel_zero_J1 = gsl_sf_bessel_zero_J1 |
402 | foreign import ccall "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double | 500 | foreign import ccall "gsl_sf_bessel_zero_J1" gsl_sf_bessel_zero_J1 :: CInt -> Double |
501 | |||
403 | bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double) | 502 | bessel_zero_Jnu_e :: Double -> CInt -> (Double,Double) |
404 | bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s | 503 | bessel_zero_Jnu_e nu s = createSFR "bessel_zero_Jnu_e" $ gsl_sf_bessel_zero_Jnu_e nu s |
405 | foreign import ccall "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt | 504 | foreign import ccall "gsl_sf_bessel_zero_Jnu_e" gsl_sf_bessel_zero_Jnu_e :: Double -> CInt -> Ptr () -> IO CInt |
505 | |||
406 | bessel_zero_Jnu :: Double -> CInt -> Double | 506 | bessel_zero_Jnu :: Double -> CInt -> Double |
407 | bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu | 507 | bessel_zero_Jnu = gsl_sf_bessel_zero_Jnu |
408 | foreign import ccall "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double | 508 | foreign import ccall "gsl_sf_bessel_zero_Jnu" gsl_sf_bessel_zero_Jnu :: Double -> CInt -> Double |
diff --git a/lib/Numeric/GSL/Special/Clausen.hs b/lib/Numeric/GSL/Special/Clausen.hs index 0c0b70c..4c9f6de 100644 --- a/lib/Numeric/GSL/Special/Clausen.hs +++ b/lib/Numeric/GSL/Special/Clausen.hs | |||
@@ -20,9 +20,11 @@ module Numeric.GSL.Special.Clausen( | |||
20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
21 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
23 | |||
23 | clausen_e :: Double -> (Double,Double) | 24 | clausen_e :: Double -> (Double,Double) |
24 | clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x | 25 | clausen_e x = createSFR "clausen_e" $ gsl_sf_clausen_e x |
25 | foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt | 26 | foreign import ccall "gsl_sf_clausen_e" gsl_sf_clausen_e :: Double -> Ptr () -> IO CInt |
27 | |||
26 | clausen :: Double -> Double | 28 | clausen :: Double -> Double |
27 | clausen = gsl_sf_clausen | 29 | clausen = gsl_sf_clausen |
28 | foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double | 30 | foreign import ccall "gsl_sf_clausen" gsl_sf_clausen :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Coulomb.hs b/lib/Numeric/GSL/Special/Coulomb.hs index 7d30cd5..519a43a 100644 --- a/lib/Numeric/GSL/Special/Coulomb.hs +++ b/lib/Numeric/GSL/Special/Coulomb.hs | |||
@@ -23,36 +23,47 @@ module Numeric.GSL.Special.Coulomb( | |||
23 | import Foreign(Ptr) | 23 | import Foreign(Ptr) |
24 | import Foreign.C.Types(CInt) | 24 | import Foreign.C.Types(CInt) |
25 | import Numeric.GSL.Special.Internal | 25 | import Numeric.GSL.Special.Internal |
26 | |||
26 | hydrogenicR_1_e :: Double -> Double -> (Double,Double) | 27 | hydrogenicR_1_e :: Double -> Double -> (Double,Double) |
27 | hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r | 28 | hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r |
28 | foreign import ccall "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt | 29 | foreign import ccall "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt |
30 | |||
29 | hydrogenicR_1 :: Double -> Double -> Double | 31 | hydrogenicR_1 :: Double -> Double -> Double |
30 | hydrogenicR_1 = gsl_sf_hydrogenicR_1 | 32 | hydrogenicR_1 = gsl_sf_hydrogenicR_1 |
31 | foreign import ccall "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double | 33 | foreign import ccall "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double |
34 | |||
32 | hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) | 35 | hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) |
33 | hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r | 36 | hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r |
34 | foreign import ccall "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt | 37 | foreign import ccall "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt |
38 | |||
35 | hydrogenicR :: CInt -> CInt -> Double -> Double -> Double | 39 | hydrogenicR :: CInt -> CInt -> Double -> Double -> Double |
36 | hydrogenicR = gsl_sf_hydrogenicR | 40 | hydrogenicR = gsl_sf_hydrogenicR |
37 | foreign import ccall "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double | 41 | foreign import ccall "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double |
42 | |||
38 | coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt | 43 | coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt |
39 | coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e | 44 | coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e |
40 | foreign import ccall "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt | 45 | foreign import ccall "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt |
46 | |||
41 | coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 47 | coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
42 | coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array | 48 | coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array |
43 | foreign import ccall "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 49 | foreign import ccall "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
50 | |||
44 | coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 51 | coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
45 | coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array | 52 | coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array |
46 | foreign import ccall "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 53 | foreign import ccall "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
54 | |||
47 | coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 55 | coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
48 | coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array | 56 | coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array |
49 | foreign import ccall "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt | 57 | foreign import ccall "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt |
58 | |||
50 | coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 59 | coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
51 | coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array | 60 | coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array |
52 | foreign import ccall "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt | 61 | foreign import ccall "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt |
62 | |||
53 | coulomb_CL_e :: Double -> Double -> (Double,Double) | 63 | coulomb_CL_e :: Double -> Double -> (Double,Double) |
54 | coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta | 64 | coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta |
55 | foreign import ccall "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt |
66 | |||
56 | coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt | 67 | coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt |
57 | coulomb_CL_array = gsl_sf_coulomb_CL_array | 68 | coulomb_CL_array = gsl_sf_coulomb_CL_array |
58 | foreign import ccall "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt | 69 | foreign import ccall "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt |
diff --git a/lib/Numeric/GSL/Special/Coupling.hs b/lib/Numeric/GSL/Special/Coupling.hs index 1fb69d9..33d0129 100644 --- a/lib/Numeric/GSL/Special/Coupling.hs +++ b/lib/Numeric/GSL/Special/Coupling.hs | |||
@@ -26,33 +26,43 @@ module Numeric.GSL.Special.Coupling( | |||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | |||
29 | coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 30 | coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
30 | coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc = createSFR "coupling_3j_e" $ gsl_sf_coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc | 31 | coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc = createSFR "coupling_3j_e" $ gsl_sf_coupling_3j_e two_ja two_jb two_jc two_ma two_mb two_mc |
31 | foreign import ccall "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 32 | foreign import ccall "gsl_sf_coupling_3j_e" gsl_sf_coupling_3j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
33 | |||
32 | coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 34 | coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
33 | coupling_3j = gsl_sf_coupling_3j | 35 | coupling_3j = gsl_sf_coupling_3j |
34 | foreign import ccall "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 36 | foreign import ccall "gsl_sf_coupling_3j" gsl_sf_coupling_3j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
37 | |||
35 | coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 38 | coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
36 | coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_e" $ gsl_sf_coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf | 39 | coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_e" $ gsl_sf_coupling_6j_e two_ja two_jb two_jc two_jd two_je two_jf |
37 | foreign import ccall "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 40 | foreign import ccall "gsl_sf_coupling_6j_e" gsl_sf_coupling_6j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
41 | |||
38 | coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 42 | coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
39 | coupling_6j = gsl_sf_coupling_6j | 43 | coupling_6j = gsl_sf_coupling_6j |
40 | foreign import ccall "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 44 | foreign import ccall "gsl_sf_coupling_6j" gsl_sf_coupling_6j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
45 | |||
41 | coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 46 | coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
42 | coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_RacahW_e" $ gsl_sf_coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf | 47 | coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_RacahW_e" $ gsl_sf_coupling_RacahW_e two_ja two_jb two_jc two_jd two_je two_jf |
43 | foreign import ccall "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 48 | foreign import ccall "gsl_sf_coupling_RacahW_e" gsl_sf_coupling_RacahW_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
49 | |||
44 | coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 50 | coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
45 | coupling_RacahW = gsl_sf_coupling_RacahW | 51 | coupling_RacahW = gsl_sf_coupling_RacahW |
46 | foreign import ccall "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 52 | foreign import ccall "gsl_sf_coupling_RacahW" gsl_sf_coupling_RacahW :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
53 | |||
47 | coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 54 | coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
48 | coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji = createSFR "coupling_9j_e" $ gsl_sf_coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji | 55 | coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji = createSFR "coupling_9j_e" $ gsl_sf_coupling_9j_e two_ja two_jb two_jc two_jd two_je two_jf two_jg two_jh two_ji |
49 | foreign import ccall "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 56 | foreign import ccall "gsl_sf_coupling_9j_e" gsl_sf_coupling_9j_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
57 | |||
50 | coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 58 | coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
51 | coupling_9j = gsl_sf_coupling_9j | 59 | coupling_9j = gsl_sf_coupling_9j |
52 | foreign import ccall "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 60 | foreign import ccall "gsl_sf_coupling_9j" gsl_sf_coupling_9j :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
61 | |||
53 | coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) | 62 | coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> (Double,Double) |
54 | coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_INCORRECT_e" $ gsl_sf_coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf | 63 | coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf = createSFR "coupling_6j_INCORRECT_e" $ gsl_sf_coupling_6j_INCORRECT_e two_ja two_jb two_jc two_jd two_je two_jf |
55 | foreign import ccall "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt | 64 | foreign import ccall "gsl_sf_coupling_6j_INCORRECT_e" gsl_sf_coupling_6j_INCORRECT_e :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Ptr () -> IO CInt |
65 | |||
56 | coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 66 | coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
57 | coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT | 67 | coupling_6j_INCORRECT = gsl_sf_coupling_6j_INCORRECT |
58 | foreign import ccall "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double | 68 | foreign import ccall "gsl_sf_coupling_6j_INCORRECT" gsl_sf_coupling_6j_INCORRECT :: CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> Double |
diff --git a/lib/Numeric/GSL/Special/Dawson.hs b/lib/Numeric/GSL/Special/Dawson.hs index 37cc68e..0bddbaf 100644 --- a/lib/Numeric/GSL/Special/Dawson.hs +++ b/lib/Numeric/GSL/Special/Dawson.hs | |||
@@ -20,9 +20,11 @@ module Numeric.GSL.Special.Dawson( | |||
20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
21 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
23 | |||
23 | dawson_e :: Double -> (Double,Double) | 24 | dawson_e :: Double -> (Double,Double) |
24 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x | 25 | dawson_e x = createSFR "dawson_e" $ gsl_sf_dawson_e x |
25 | foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt | 26 | foreign import ccall "gsl_sf_dawson_e" gsl_sf_dawson_e :: Double -> Ptr () -> IO CInt |
27 | |||
26 | dawson :: Double -> Double | 28 | dawson :: Double -> Double |
27 | dawson = gsl_sf_dawson | 29 | dawson = gsl_sf_dawson |
28 | foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double | 30 | foreign import ccall "gsl_sf_dawson" gsl_sf_dawson :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs index c989a82..8a3e655 100644 --- a/lib/Numeric/GSL/Special/Debye.hs +++ b/lib/Numeric/GSL/Special/Debye.hs | |||
@@ -30,39 +30,51 @@ module Numeric.GSL.Special.Debye( | |||
30 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
31 | import Foreign.C.Types(CInt) | 31 | import Foreign.C.Types(CInt) |
32 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
33 | |||
33 | debye_1_e :: Double -> (Double,Double) | 34 | debye_1_e :: Double -> (Double,Double) |
34 | debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x | 35 | debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x |
35 | foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt |
37 | |||
36 | debye_1 :: Double -> Double | 38 | debye_1 :: Double -> Double |
37 | debye_1 = gsl_sf_debye_1 | 39 | debye_1 = gsl_sf_debye_1 |
38 | foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double | 40 | foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double |
41 | |||
39 | debye_2_e :: Double -> (Double,Double) | 42 | debye_2_e :: Double -> (Double,Double) |
40 | debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x | 43 | debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x |
41 | foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt | 44 | foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt |
45 | |||
42 | debye_2 :: Double -> Double | 46 | debye_2 :: Double -> Double |
43 | debye_2 = gsl_sf_debye_2 | 47 | debye_2 = gsl_sf_debye_2 |
44 | foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double | 48 | foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double |
49 | |||
45 | debye_3_e :: Double -> (Double,Double) | 50 | debye_3_e :: Double -> (Double,Double) |
46 | debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x | 51 | debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x |
47 | foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt |
53 | |||
48 | debye_3 :: Double -> Double | 54 | debye_3 :: Double -> Double |
49 | debye_3 = gsl_sf_debye_3 | 55 | debye_3 = gsl_sf_debye_3 |
50 | foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double | 56 | foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double |
57 | |||
51 | debye_4_e :: Double -> (Double,Double) | 58 | debye_4_e :: Double -> (Double,Double) |
52 | debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x | 59 | debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x |
53 | foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt |
61 | |||
54 | debye_4 :: Double -> Double | 62 | debye_4 :: Double -> Double |
55 | debye_4 = gsl_sf_debye_4 | 63 | debye_4 = gsl_sf_debye_4 |
56 | foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double | 64 | foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double |
65 | |||
57 | debye_5_e :: Double -> (Double,Double) | 66 | debye_5_e :: Double -> (Double,Double) |
58 | debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x | 67 | debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x |
59 | foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt | 68 | foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt |
69 | |||
60 | debye_5 :: Double -> Double | 70 | debye_5 :: Double -> Double |
61 | debye_5 = gsl_sf_debye_5 | 71 | debye_5 = gsl_sf_debye_5 |
62 | foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double | 72 | foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double |
73 | |||
63 | debye_6_e :: Double -> (Double,Double) | 74 | debye_6_e :: Double -> (Double,Double) |
64 | debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x | 75 | debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x |
65 | foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt |
77 | |||
66 | debye_6 :: Double -> Double | 78 | debye_6 :: Double -> Double |
67 | debye_6 = gsl_sf_debye_6 | 79 | debye_6 = gsl_sf_debye_6 |
68 | foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double | 80 | foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Dilog.hs b/lib/Numeric/GSL/Special/Dilog.hs index 35bbdcd..23cbf79 100644 --- a/lib/Numeric/GSL/Special/Dilog.hs +++ b/lib/Numeric/GSL/Special/Dilog.hs | |||
@@ -20,18 +20,23 @@ module Numeric.GSL.Special.Dilog( | |||
20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
21 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
23 | |||
23 | dilog_e :: Double -> (Double,Double) | 24 | dilog_e :: Double -> (Double,Double) |
24 | dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x | 25 | dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x |
25 | foreign import ccall "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt | 26 | foreign import ccall "gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr () -> IO CInt |
27 | |||
26 | dilog :: Double -> Double | 28 | dilog :: Double -> Double |
27 | dilog = gsl_sf_dilog | 29 | dilog = gsl_sf_dilog |
28 | foreign import ccall "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double | 30 | foreign import ccall "gsl_sf_dilog" gsl_sf_dilog :: Double -> Double |
31 | |||
29 | complex_dilog_xy_e :: Double -> Double -> Ptr () -> (Double,Double) | 32 | complex_dilog_xy_e :: Double -> Double -> Ptr () -> (Double,Double) |
30 | complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re | 33 | complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re |
31 | foreign import ccall "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 34 | foreign import ccall "gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
35 | |||
32 | complex_dilog_e :: Double -> Double -> Ptr () -> (Double,Double) | 36 | complex_dilog_e :: Double -> Double -> Ptr () -> (Double,Double) |
33 | complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re | 37 | complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re |
34 | foreign import ccall "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 38 | foreign import ccall "gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
39 | |||
35 | complex_spence_xy_e :: Double -> Double -> Ptr () -> (Double,Double) | 40 | complex_spence_xy_e :: Double -> Double -> Ptr () -> (Double,Double) |
36 | complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp | 41 | complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp |
37 | foreign import ccall "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 42 | foreign import ccall "gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
diff --git a/lib/Numeric/GSL/Special/Elementary.hs b/lib/Numeric/GSL/Special/Elementary.hs index e804c05..083a68b 100644 --- a/lib/Numeric/GSL/Special/Elementary.hs +++ b/lib/Numeric/GSL/Special/Elementary.hs | |||
@@ -21,12 +21,15 @@ module Numeric.GSL.Special.Elementary( | |||
21 | import Foreign(Ptr) | 21 | import Foreign(Ptr) |
22 | import Foreign.C.Types(CInt) | 22 | import Foreign.C.Types(CInt) |
23 | import Numeric.GSL.Special.Internal | 23 | import Numeric.GSL.Special.Internal |
24 | |||
24 | multiply_e :: Double -> Double -> (Double,Double) | 25 | multiply_e :: Double -> Double -> (Double,Double) |
25 | multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y | 26 | multiply_e x y = createSFR "multiply_e" $ gsl_sf_multiply_e x y |
26 | foreign import ccall "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt | 27 | foreign import ccall "gsl_sf_multiply_e" gsl_sf_multiply_e :: Double -> Double -> Ptr () -> IO CInt |
28 | |||
27 | multiply :: Double -> Double -> Double | 29 | multiply :: Double -> Double -> Double |
28 | multiply = gsl_sf_multiply | 30 | multiply = gsl_sf_multiply |
29 | foreign import ccall "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double | 31 | foreign import ccall "gsl_sf_multiply" gsl_sf_multiply :: Double -> Double -> Double |
32 | |||
30 | multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) | 33 | multiply_err_e :: Double -> Double -> Double -> Double -> (Double,Double) |
31 | multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy | 34 | multiply_err_e x dx y dy = createSFR "multiply_err_e" $ gsl_sf_multiply_err_e x dx y dy |
32 | foreign import ccall "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 35 | foreign import ccall "gsl_sf_multiply_err_e" gsl_sf_multiply_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
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 |
diff --git a/lib/Numeric/GSL/Special/Erf.hs b/lib/Numeric/GSL/Special/Erf.hs index 5dff3c4..34ade6f 100644 --- a/lib/Numeric/GSL/Special/Erf.hs +++ b/lib/Numeric/GSL/Special/Erf.hs | |||
@@ -30,39 +30,51 @@ module Numeric.GSL.Special.Erf( | |||
30 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
31 | import Foreign.C.Types(CInt) | 31 | import Foreign.C.Types(CInt) |
32 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
33 | |||
33 | erfc_e :: Double -> (Double,Double) | 34 | erfc_e :: Double -> (Double,Double) |
34 | erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x | 35 | erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x |
35 | foreign import ccall "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt |
37 | |||
36 | erfc :: Double -> Double | 38 | erfc :: Double -> Double |
37 | erfc = gsl_sf_erfc | 39 | erfc = gsl_sf_erfc |
38 | foreign import ccall "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double | 40 | foreign import ccall "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double |
41 | |||
39 | log_erfc_e :: Double -> (Double,Double) | 42 | log_erfc_e :: Double -> (Double,Double) |
40 | log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x | 43 | log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x |
41 | foreign import ccall "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt | 44 | foreign import ccall "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt |
45 | |||
42 | log_erfc :: Double -> Double | 46 | log_erfc :: Double -> Double |
43 | log_erfc = gsl_sf_log_erfc | 47 | log_erfc = gsl_sf_log_erfc |
44 | foreign import ccall "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double | 48 | foreign import ccall "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double |
49 | |||
45 | erf_e :: Double -> (Double,Double) | 50 | erf_e :: Double -> (Double,Double) |
46 | erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x | 51 | erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x |
47 | foreign import ccall "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt |
53 | |||
48 | erf :: Double -> Double | 54 | erf :: Double -> Double |
49 | erf = gsl_sf_erf | 55 | erf = gsl_sf_erf |
50 | foreign import ccall "gsl_sf_erf" gsl_sf_erf :: Double -> Double | 56 | foreign import ccall "gsl_sf_erf" gsl_sf_erf :: Double -> Double |
57 | |||
51 | erf_Z_e :: Double -> (Double,Double) | 58 | erf_Z_e :: Double -> (Double,Double) |
52 | erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x | 59 | erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x |
53 | foreign import ccall "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt |
61 | |||
54 | erf_Q_e :: Double -> (Double,Double) | 62 | erf_Q_e :: Double -> (Double,Double) |
55 | erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x | 63 | erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x |
56 | foreign import ccall "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt | 64 | foreign import ccall "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt |
65 | |||
57 | erf_Z :: Double -> Double | 66 | erf_Z :: Double -> Double |
58 | erf_Z = gsl_sf_erf_Z | 67 | erf_Z = gsl_sf_erf_Z |
59 | foreign import ccall "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double | 68 | foreign import ccall "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double |
69 | |||
60 | erf_Q :: Double -> Double | 70 | erf_Q :: Double -> Double |
61 | erf_Q = gsl_sf_erf_Q | 71 | erf_Q = gsl_sf_erf_Q |
62 | foreign import ccall "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double | 72 | foreign import ccall "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double |
73 | |||
63 | hazard_e :: Double -> (Double,Double) | 74 | hazard_e :: Double -> (Double,Double) |
64 | hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x | 75 | hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x |
65 | foreign import ccall "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt |
77 | |||
66 | hazard :: Double -> Double | 78 | hazard :: Double -> Double |
67 | hazard = gsl_sf_hazard | 79 | hazard = gsl_sf_hazard |
68 | foreign import ccall "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double | 80 | foreign import ccall "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Exp.hs b/lib/Numeric/GSL/Special/Exp.hs index fa3a15e..1380590 100644 --- a/lib/Numeric/GSL/Special/Exp.hs +++ b/lib/Numeric/GSL/Special/Exp.hs | |||
@@ -37,60 +37,79 @@ module Numeric.GSL.Special.Exp( | |||
37 | import Foreign(Ptr) | 37 | import Foreign(Ptr) |
38 | import Foreign.C.Types(CInt) | 38 | import Foreign.C.Types(CInt) |
39 | import Numeric.GSL.Special.Internal | 39 | import Numeric.GSL.Special.Internal |
40 | |||
40 | exp_e :: Double -> (Double,Double) | 41 | exp_e :: Double -> (Double,Double) |
41 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x | 42 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x |
42 | foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt | 43 | foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt |
44 | |||
43 | exp :: Double -> Double | 45 | exp :: Double -> Double |
44 | exp = gsl_sf_exp | 46 | exp = gsl_sf_exp |
45 | foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double | 47 | foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double |
48 | |||
46 | exp_e10_e :: Double -> (Double,Int,Double) | 49 | exp_e10_e :: Double -> (Double,Int,Double) |
47 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x | 50 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x |
48 | foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt | 51 | foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt |
52 | |||
49 | exp_mult_e :: Double -> Double -> (Double,Double) | 53 | exp_mult_e :: Double -> Double -> (Double,Double) |
50 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y | 54 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y |
51 | foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt | 55 | foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt |
56 | |||
52 | exp_mult :: Double -> Double -> Double | 57 | exp_mult :: Double -> Double -> Double |
53 | exp_mult = gsl_sf_exp_mult | 58 | exp_mult = gsl_sf_exp_mult |
54 | foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double | 59 | foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double |
60 | |||
55 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) | 61 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) |
56 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y | 62 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y |
57 | foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt | 63 | foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt |
64 | |||
58 | expm1_e :: Double -> (Double,Double) | 65 | expm1_e :: Double -> (Double,Double) |
59 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x | 66 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x |
60 | foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt | 67 | foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt |
68 | |||
61 | expm1 :: Double -> Double | 69 | expm1 :: Double -> Double |
62 | expm1 = gsl_sf_expm1 | 70 | expm1 = gsl_sf_expm1 |
63 | foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double | 71 | foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double |
72 | |||
64 | exprel_e :: Double -> (Double,Double) | 73 | exprel_e :: Double -> (Double,Double) |
65 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x | 74 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x |
66 | foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt | 75 | foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt |
76 | |||
67 | exprel :: Double -> Double | 77 | exprel :: Double -> Double |
68 | exprel = gsl_sf_exprel | 78 | exprel = gsl_sf_exprel |
69 | foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double | 79 | foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double |
80 | |||
70 | exprel_2_e :: Double -> (Double,Double) | 81 | exprel_2_e :: Double -> (Double,Double) |
71 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x | 82 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x |
72 | foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt | 83 | foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt |
84 | |||
73 | exprel_2 :: Double -> Double | 85 | exprel_2 :: Double -> Double |
74 | exprel_2 = gsl_sf_exprel_2 | 86 | exprel_2 = gsl_sf_exprel_2 |
75 | foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double | 87 | foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double |
88 | |||
76 | exprel_n_e :: CInt -> Double -> (Double,Double) | 89 | exprel_n_e :: CInt -> Double -> (Double,Double) |
77 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x | 90 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x |
78 | foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt | 91 | foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt |
92 | |||
79 | exprel_n :: CInt -> Double -> Double | 93 | exprel_n :: CInt -> Double -> Double |
80 | exprel_n = gsl_sf_exprel_n | 94 | exprel_n = gsl_sf_exprel_n |
81 | foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double | 95 | foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double |
96 | |||
82 | exprel_n_CF_e :: Double -> Double -> (Double,Double) | 97 | exprel_n_CF_e :: Double -> Double -> (Double,Double) |
83 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x | 98 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x |
84 | foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt | 99 | foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt |
100 | |||
85 | exp_err_e :: Double -> Double -> (Double,Double) | 101 | exp_err_e :: Double -> Double -> (Double,Double) |
86 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx | 102 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx |
87 | foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt | 103 | foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt |
104 | |||
88 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) | 105 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) |
89 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx | 106 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx |
90 | foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt | 107 | foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt |
108 | |||
91 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) | 109 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) |
92 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy | 110 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy |
93 | foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 111 | foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
112 | |||
94 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) | 113 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) |
95 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy | 114 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy |
96 | foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 115 | foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
diff --git a/lib/Numeric/GSL/Special/Expint.hs b/lib/Numeric/GSL/Special/Expint.hs index 7b8336b..32f2b1a 100644 --- a/lib/Numeric/GSL/Special/Expint.hs +++ b/lib/Numeric/GSL/Special/Expint.hs | |||
@@ -46,87 +46,115 @@ module Numeric.GSL.Special.Expint( | |||
46 | import Foreign(Ptr) | 46 | import Foreign(Ptr) |
47 | import Foreign.C.Types(CInt) | 47 | import Foreign.C.Types(CInt) |
48 | import Numeric.GSL.Special.Internal | 48 | import Numeric.GSL.Special.Internal |
49 | |||
49 | expint_E1_e :: Double -> (Double,Double) | 50 | expint_E1_e :: Double -> (Double,Double) |
50 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x | 51 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x |
51 | foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt |
53 | |||
52 | expint_E1 :: Double -> Double | 54 | expint_E1 :: Double -> Double |
53 | expint_E1 = gsl_sf_expint_E1 | 55 | expint_E1 = gsl_sf_expint_E1 |
54 | foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double | 56 | foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double |
57 | |||
55 | expint_E2_e :: Double -> (Double,Double) | 58 | expint_E2_e :: Double -> (Double,Double) |
56 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x | 59 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x |
57 | foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt |
61 | |||
58 | expint_E2 :: Double -> Double | 62 | expint_E2 :: Double -> Double |
59 | expint_E2 = gsl_sf_expint_E2 | 63 | expint_E2 = gsl_sf_expint_E2 |
60 | foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double | 64 | foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double |
65 | |||
61 | expint_En_e :: CInt -> Double -> (Double,Double) | 66 | expint_En_e :: CInt -> Double -> (Double,Double) |
62 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x | 67 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x |
63 | foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt | 68 | foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt |
69 | |||
64 | expint_En :: CInt -> Double -> Double | 70 | expint_En :: CInt -> Double -> Double |
65 | expint_En = gsl_sf_expint_En | 71 | expint_En = gsl_sf_expint_En |
66 | foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double | 72 | foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double |
73 | |||
67 | expint_E1_scaled_e :: Double -> (Double,Double) | 74 | expint_E1_scaled_e :: Double -> (Double,Double) |
68 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x | 75 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x |
69 | foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt |
77 | |||
70 | expint_E1_scaled :: Double -> Double | 78 | expint_E1_scaled :: Double -> Double |
71 | expint_E1_scaled = gsl_sf_expint_E1_scaled | 79 | expint_E1_scaled = gsl_sf_expint_E1_scaled |
72 | foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double | 80 | foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double |
81 | |||
73 | expint_E2_scaled_e :: Double -> (Double,Double) | 82 | expint_E2_scaled_e :: Double -> (Double,Double) |
74 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x | 83 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x |
75 | foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt | 84 | foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt |
85 | |||
76 | expint_E2_scaled :: Double -> Double | 86 | expint_E2_scaled :: Double -> Double |
77 | expint_E2_scaled = gsl_sf_expint_E2_scaled | 87 | expint_E2_scaled = gsl_sf_expint_E2_scaled |
78 | foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double | 88 | foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double |
89 | |||
79 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) | 90 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) |
80 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x | 91 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x |
81 | foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 92 | foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
93 | |||
82 | expint_En_scaled :: CInt -> Double -> Double | 94 | expint_En_scaled :: CInt -> Double -> Double |
83 | expint_En_scaled = gsl_sf_expint_En_scaled | 95 | expint_En_scaled = gsl_sf_expint_En_scaled |
84 | foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double | 96 | foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double |
97 | |||
85 | expint_Ei_e :: Double -> (Double,Double) | 98 | expint_Ei_e :: Double -> (Double,Double) |
86 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x | 99 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x |
87 | foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt | 100 | foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt |
101 | |||
88 | expint_Ei :: Double -> Double | 102 | expint_Ei :: Double -> Double |
89 | expint_Ei = gsl_sf_expint_Ei | 103 | expint_Ei = gsl_sf_expint_Ei |
90 | foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double | 104 | foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double |
105 | |||
91 | expint_Ei_scaled_e :: Double -> (Double,Double) | 106 | expint_Ei_scaled_e :: Double -> (Double,Double) |
92 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x | 107 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x |
93 | foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt | 108 | foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt |
109 | |||
94 | expint_Ei_scaled :: Double -> Double | 110 | expint_Ei_scaled :: Double -> Double |
95 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled | 111 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled |
96 | foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double | 112 | foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double |
113 | |||
97 | shi_e :: Double -> (Double,Double) | 114 | shi_e :: Double -> (Double,Double) |
98 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x | 115 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x |
99 | foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt | 116 | foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt |
117 | |||
100 | shi :: Double -> Double | 118 | shi :: Double -> Double |
101 | shi = gsl_sf_Shi | 119 | shi = gsl_sf_Shi |
102 | foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double | 120 | foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double |
121 | |||
103 | chi_e :: Double -> (Double,Double) | 122 | chi_e :: Double -> (Double,Double) |
104 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x | 123 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x |
105 | foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt | 124 | foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt |
125 | |||
106 | chi :: Double -> Double | 126 | chi :: Double -> Double |
107 | chi = gsl_sf_Chi | 127 | chi = gsl_sf_Chi |
108 | foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double | 128 | foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double |
129 | |||
109 | expint_3_e :: Double -> (Double,Double) | 130 | expint_3_e :: Double -> (Double,Double) |
110 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x | 131 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x |
111 | foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt | 132 | foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt |
133 | |||
112 | expint_3 :: Double -> Double | 134 | expint_3 :: Double -> Double |
113 | expint_3 = gsl_sf_expint_3 | 135 | expint_3 = gsl_sf_expint_3 |
114 | foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double | 136 | foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double |
137 | |||
115 | si_e :: Double -> (Double,Double) | 138 | si_e :: Double -> (Double,Double) |
116 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x | 139 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x |
117 | foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt | 140 | foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt |
141 | |||
118 | si :: Double -> Double | 142 | si :: Double -> Double |
119 | si = gsl_sf_Si | 143 | si = gsl_sf_Si |
120 | foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double | 144 | foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double |
145 | |||
121 | ci_e :: Double -> (Double,Double) | 146 | ci_e :: Double -> (Double,Double) |
122 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x | 147 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x |
123 | foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt | 148 | foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt |
149 | |||
124 | ci :: Double -> Double | 150 | ci :: Double -> Double |
125 | ci = gsl_sf_Ci | 151 | ci = gsl_sf_Ci |
126 | foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double | 152 | foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double |
153 | |||
127 | atanint_e :: Double -> (Double,Double) | 154 | atanint_e :: Double -> (Double,Double) |
128 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x | 155 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x |
129 | foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt | 156 | foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt |
157 | |||
130 | atanint :: Double -> Double | 158 | atanint :: Double -> Double |
131 | atanint = gsl_sf_atanint | 159 | atanint = gsl_sf_atanint |
132 | foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double | 160 | foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Fermi_dirac.hs b/lib/Numeric/GSL/Special/Fermi_dirac.hs index 3547e52..f6deabe 100644 --- a/lib/Numeric/GSL/Special/Fermi_dirac.hs +++ b/lib/Numeric/GSL/Special/Fermi_dirac.hs | |||
@@ -36,57 +36,75 @@ module Numeric.GSL.Special.Fermi_dirac( | |||
36 | import Foreign(Ptr) | 36 | import Foreign(Ptr) |
37 | import Foreign.C.Types(CInt) | 37 | import Foreign.C.Types(CInt) |
38 | import Numeric.GSL.Special.Internal | 38 | import Numeric.GSL.Special.Internal |
39 | |||
39 | fermi_dirac_m1_e :: Double -> (Double,Double) | 40 | fermi_dirac_m1_e :: Double -> (Double,Double) |
40 | fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x | 41 | fermi_dirac_m1_e x = createSFR "fermi_dirac_m1_e" $ gsl_sf_fermi_dirac_m1_e x |
41 | foreign import ccall "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt | 42 | foreign import ccall "gsl_sf_fermi_dirac_m1_e" gsl_sf_fermi_dirac_m1_e :: Double -> Ptr () -> IO CInt |
43 | |||
42 | fermi_dirac_m1 :: Double -> Double | 44 | fermi_dirac_m1 :: Double -> Double |
43 | fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 | 45 | fermi_dirac_m1 = gsl_sf_fermi_dirac_m1 |
44 | foreign import ccall "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double | 46 | foreign import ccall "gsl_sf_fermi_dirac_m1" gsl_sf_fermi_dirac_m1 :: Double -> Double |
47 | |||
45 | fermi_dirac_0_e :: Double -> (Double,Double) | 48 | fermi_dirac_0_e :: Double -> (Double,Double) |
46 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x | 49 | fermi_dirac_0_e x = createSFR "fermi_dirac_0_e" $ gsl_sf_fermi_dirac_0_e x |
47 | foreign import ccall "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt | 50 | foreign import ccall "gsl_sf_fermi_dirac_0_e" gsl_sf_fermi_dirac_0_e :: Double -> Ptr () -> IO CInt |
51 | |||
48 | fermi_dirac_0 :: Double -> Double | 52 | fermi_dirac_0 :: Double -> Double |
49 | fermi_dirac_0 = gsl_sf_fermi_dirac_0 | 53 | fermi_dirac_0 = gsl_sf_fermi_dirac_0 |
50 | foreign import ccall "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double | 54 | foreign import ccall "gsl_sf_fermi_dirac_0" gsl_sf_fermi_dirac_0 :: Double -> Double |
55 | |||
51 | fermi_dirac_1_e :: Double -> (Double,Double) | 56 | fermi_dirac_1_e :: Double -> (Double,Double) |
52 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x | 57 | fermi_dirac_1_e x = createSFR "fermi_dirac_1_e" $ gsl_sf_fermi_dirac_1_e x |
53 | foreign import ccall "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt | 58 | foreign import ccall "gsl_sf_fermi_dirac_1_e" gsl_sf_fermi_dirac_1_e :: Double -> Ptr () -> IO CInt |
59 | |||
54 | fermi_dirac_1 :: Double -> Double | 60 | fermi_dirac_1 :: Double -> Double |
55 | fermi_dirac_1 = gsl_sf_fermi_dirac_1 | 61 | fermi_dirac_1 = gsl_sf_fermi_dirac_1 |
56 | foreign import ccall "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double | 62 | foreign import ccall "gsl_sf_fermi_dirac_1" gsl_sf_fermi_dirac_1 :: Double -> Double |
63 | |||
57 | fermi_dirac_2_e :: Double -> (Double,Double) | 64 | fermi_dirac_2_e :: Double -> (Double,Double) |
58 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x | 65 | fermi_dirac_2_e x = createSFR "fermi_dirac_2_e" $ gsl_sf_fermi_dirac_2_e x |
59 | foreign import ccall "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt | 66 | foreign import ccall "gsl_sf_fermi_dirac_2_e" gsl_sf_fermi_dirac_2_e :: Double -> Ptr () -> IO CInt |
67 | |||
60 | fermi_dirac_2 :: Double -> Double | 68 | fermi_dirac_2 :: Double -> Double |
61 | fermi_dirac_2 = gsl_sf_fermi_dirac_2 | 69 | fermi_dirac_2 = gsl_sf_fermi_dirac_2 |
62 | foreign import ccall "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double | 70 | foreign import ccall "gsl_sf_fermi_dirac_2" gsl_sf_fermi_dirac_2 :: Double -> Double |
71 | |||
63 | fermi_dirac_int_e :: CInt -> Double -> (Double,Double) | 72 | fermi_dirac_int_e :: CInt -> Double -> (Double,Double) |
64 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x | 73 | fermi_dirac_int_e j x = createSFR "fermi_dirac_int_e" $ gsl_sf_fermi_dirac_int_e j x |
65 | foreign import ccall "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt | 74 | foreign import ccall "gsl_sf_fermi_dirac_int_e" gsl_sf_fermi_dirac_int_e :: CInt -> Double -> Ptr () -> IO CInt |
75 | |||
66 | fermi_dirac_int :: CInt -> Double -> Double | 76 | fermi_dirac_int :: CInt -> Double -> Double |
67 | fermi_dirac_int = gsl_sf_fermi_dirac_int | 77 | fermi_dirac_int = gsl_sf_fermi_dirac_int |
68 | foreign import ccall "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double | 78 | foreign import ccall "gsl_sf_fermi_dirac_int" gsl_sf_fermi_dirac_int :: CInt -> Double -> Double |
79 | |||
69 | fermi_dirac_mhalf_e :: Double -> (Double,Double) | 80 | fermi_dirac_mhalf_e :: Double -> (Double,Double) |
70 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x | 81 | fermi_dirac_mhalf_e x = createSFR "fermi_dirac_mhalf_e" $ gsl_sf_fermi_dirac_mhalf_e x |
71 | foreign import ccall "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt | 82 | foreign import ccall "gsl_sf_fermi_dirac_mhalf_e" gsl_sf_fermi_dirac_mhalf_e :: Double -> Ptr () -> IO CInt |
83 | |||
72 | fermi_dirac_mhalf :: Double -> Double | 84 | fermi_dirac_mhalf :: Double -> Double |
73 | fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf | 85 | fermi_dirac_mhalf = gsl_sf_fermi_dirac_mhalf |
74 | foreign import ccall "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double | 86 | foreign import ccall "gsl_sf_fermi_dirac_mhalf" gsl_sf_fermi_dirac_mhalf :: Double -> Double |
87 | |||
75 | fermi_dirac_half_e :: Double -> (Double,Double) | 88 | fermi_dirac_half_e :: Double -> (Double,Double) |
76 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x | 89 | fermi_dirac_half_e x = createSFR "fermi_dirac_half_e" $ gsl_sf_fermi_dirac_half_e x |
77 | foreign import ccall "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt | 90 | foreign import ccall "gsl_sf_fermi_dirac_half_e" gsl_sf_fermi_dirac_half_e :: Double -> Ptr () -> IO CInt |
91 | |||
78 | fermi_dirac_half :: Double -> Double | 92 | fermi_dirac_half :: Double -> Double |
79 | fermi_dirac_half = gsl_sf_fermi_dirac_half | 93 | fermi_dirac_half = gsl_sf_fermi_dirac_half |
80 | foreign import ccall "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double | 94 | foreign import ccall "gsl_sf_fermi_dirac_half" gsl_sf_fermi_dirac_half :: Double -> Double |
95 | |||
81 | fermi_dirac_3half_e :: Double -> (Double,Double) | 96 | fermi_dirac_3half_e :: Double -> (Double,Double) |
82 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x | 97 | fermi_dirac_3half_e x = createSFR "fermi_dirac_3half_e" $ gsl_sf_fermi_dirac_3half_e x |
83 | foreign import ccall "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt | 98 | foreign import ccall "gsl_sf_fermi_dirac_3half_e" gsl_sf_fermi_dirac_3half_e :: Double -> Ptr () -> IO CInt |
99 | |||
84 | fermi_dirac_3half :: Double -> Double | 100 | fermi_dirac_3half :: Double -> Double |
85 | fermi_dirac_3half = gsl_sf_fermi_dirac_3half | 101 | fermi_dirac_3half = gsl_sf_fermi_dirac_3half |
86 | foreign import ccall "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double | 102 | foreign import ccall "gsl_sf_fermi_dirac_3half" gsl_sf_fermi_dirac_3half :: Double -> Double |
103 | |||
87 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) | 104 | fermi_dirac_inc_0_e :: Double -> Double -> (Double,Double) |
88 | fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b | 105 | fermi_dirac_inc_0_e x b = createSFR "fermi_dirac_inc_0_e" $ gsl_sf_fermi_dirac_inc_0_e x b |
89 | foreign import ccall "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt | 106 | foreign import ccall "gsl_sf_fermi_dirac_inc_0_e" gsl_sf_fermi_dirac_inc_0_e :: Double -> Double -> Ptr () -> IO CInt |
107 | |||
90 | fermi_dirac_inc_0 :: Double -> Double -> Double | 108 | fermi_dirac_inc_0 :: Double -> Double -> Double |
91 | fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 | 109 | fermi_dirac_inc_0 = gsl_sf_fermi_dirac_inc_0 |
92 | foreign import ccall "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double | 110 | foreign import ccall "gsl_sf_fermi_dirac_inc_0" gsl_sf_fermi_dirac_inc_0 :: Double -> Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Gamma.hs b/lib/Numeric/GSL/Special/Gamma.hs index 5cc05f3..1a395ff 100644 --- a/lib/Numeric/GSL/Special/Gamma.hs +++ b/lib/Numeric/GSL/Special/Gamma.hs | |||
@@ -58,135 +58,179 @@ module Numeric.GSL.Special.Gamma( | |||
58 | import Foreign(Ptr) | 58 | import Foreign(Ptr) |
59 | import Foreign.C.Types(CInt) | 59 | import Foreign.C.Types(CInt) |
60 | import Numeric.GSL.Special.Internal | 60 | import Numeric.GSL.Special.Internal |
61 | |||
61 | lngamma_e :: Double -> (Double,Double) | 62 | lngamma_e :: Double -> (Double,Double) |
62 | lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x | 63 | lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x |
63 | foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt | 64 | foreign import ccall "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt |
65 | |||
64 | lngamma :: Double -> Double | 66 | lngamma :: Double -> Double |
65 | lngamma = gsl_sf_lngamma | 67 | lngamma = gsl_sf_lngamma |
66 | foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double | 68 | foreign import ccall "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double |
69 | |||
67 | lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt | 70 | lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt |
68 | lngamma_sgn_e = gsl_sf_lngamma_sgn_e | 71 | lngamma_sgn_e = gsl_sf_lngamma_sgn_e |
69 | foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt | 72 | foreign import ccall "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt |
73 | |||
70 | gamma_e :: Double -> (Double,Double) | 74 | gamma_e :: Double -> (Double,Double) |
71 | gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x | 75 | gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x |
72 | foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt |
77 | |||
73 | gamma :: Double -> Double | 78 | gamma :: Double -> Double |
74 | gamma = gsl_sf_gamma | 79 | gamma = gsl_sf_gamma |
75 | foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double | 80 | foreign import ccall "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double |
81 | |||
76 | gammastar_e :: Double -> (Double,Double) | 82 | gammastar_e :: Double -> (Double,Double) |
77 | gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x | 83 | gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x |
78 | foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt | 84 | foreign import ccall "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt |
85 | |||
79 | gammastar :: Double -> Double | 86 | gammastar :: Double -> Double |
80 | gammastar = gsl_sf_gammastar | 87 | gammastar = gsl_sf_gammastar |
81 | foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double | 88 | foreign import ccall "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double |
89 | |||
82 | gammainv_e :: Double -> (Double,Double) | 90 | gammainv_e :: Double -> (Double,Double) |
83 | gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x | 91 | gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x |
84 | foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt | 92 | foreign import ccall "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt |
93 | |||
85 | gammainv :: Double -> Double | 94 | gammainv :: Double -> Double |
86 | gammainv = gsl_sf_gammainv | 95 | gammainv = gsl_sf_gammainv |
87 | foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double | 96 | foreign import ccall "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double |
97 | |||
88 | lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) | 98 | lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double) |
89 | lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr | 99 | lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr |
90 | foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 100 | foreign import ccall "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
101 | |||
91 | taylorcoeff_e :: CInt -> Double -> (Double,Double) | 102 | taylorcoeff_e :: CInt -> Double -> (Double,Double) |
92 | taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x | 103 | taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x |
93 | foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt | 104 | foreign import ccall "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt |
105 | |||
94 | taylorcoeff :: CInt -> Double -> Double | 106 | taylorcoeff :: CInt -> Double -> Double |
95 | taylorcoeff = gsl_sf_taylorcoeff | 107 | taylorcoeff = gsl_sf_taylorcoeff |
96 | foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double | 108 | foreign import ccall "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double |
109 | |||
97 | fact_e :: CInt -> (Double,Double) | 110 | fact_e :: CInt -> (Double,Double) |
98 | fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n | 111 | fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n |
99 | foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt | 112 | foreign import ccall "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt |
113 | |||
100 | fact :: CInt -> Double | 114 | fact :: CInt -> Double |
101 | fact = gsl_sf_fact | 115 | fact = gsl_sf_fact |
102 | foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double | 116 | foreign import ccall "gsl_sf_fact" gsl_sf_fact :: CInt -> Double |
117 | |||
103 | doublefact_e :: CInt -> (Double,Double) | 118 | doublefact_e :: CInt -> (Double,Double) |
104 | doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n | 119 | doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n |
105 | foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt | 120 | foreign import ccall "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt |
121 | |||
106 | doublefact :: CInt -> Double | 122 | doublefact :: CInt -> Double |
107 | doublefact = gsl_sf_doublefact | 123 | doublefact = gsl_sf_doublefact |
108 | foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double | 124 | foreign import ccall "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double |
125 | |||
109 | lnfact_e :: CInt -> (Double,Double) | 126 | lnfact_e :: CInt -> (Double,Double) |
110 | lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n | 127 | lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n |
111 | foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt | 128 | foreign import ccall "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt |
129 | |||
112 | lnfact :: CInt -> Double | 130 | lnfact :: CInt -> Double |
113 | lnfact = gsl_sf_lnfact | 131 | lnfact = gsl_sf_lnfact |
114 | foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double | 132 | foreign import ccall "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double |
133 | |||
115 | lndoublefact_e :: CInt -> (Double,Double) | 134 | lndoublefact_e :: CInt -> (Double,Double) |
116 | lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n | 135 | lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n |
117 | foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt | 136 | foreign import ccall "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt |
137 | |||
118 | lndoublefact :: CInt -> Double | 138 | lndoublefact :: CInt -> Double |
119 | lndoublefact = gsl_sf_lndoublefact | 139 | lndoublefact = gsl_sf_lndoublefact |
120 | foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double | 140 | foreign import ccall "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double |
141 | |||
121 | lnchoose_e :: CInt -> CInt -> (Double,Double) | 142 | lnchoose_e :: CInt -> CInt -> (Double,Double) |
122 | lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m | 143 | lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m |
123 | foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt | 144 | foreign import ccall "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt |
145 | |||
124 | lnchoose :: CInt -> CInt -> Double | 146 | lnchoose :: CInt -> CInt -> Double |
125 | lnchoose = gsl_sf_lnchoose | 147 | lnchoose = gsl_sf_lnchoose |
126 | foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double | 148 | foreign import ccall "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double |
149 | |||
127 | choose_e :: CInt -> CInt -> (Double,Double) | 150 | choose_e :: CInt -> CInt -> (Double,Double) |
128 | choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m | 151 | choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m |
129 | foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt | 152 | foreign import ccall "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt |
153 | |||
130 | choose :: CInt -> CInt -> Double | 154 | choose :: CInt -> CInt -> Double |
131 | choose = gsl_sf_choose | 155 | choose = gsl_sf_choose |
132 | foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double | 156 | foreign import ccall "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double |
157 | |||
133 | lnpoch_e :: Double -> Double -> (Double,Double) | 158 | lnpoch_e :: Double -> Double -> (Double,Double) |
134 | lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x | 159 | lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x |
135 | foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt | 160 | foreign import ccall "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt |
161 | |||
136 | lnpoch :: Double -> Double -> Double | 162 | lnpoch :: Double -> Double -> Double |
137 | lnpoch = gsl_sf_lnpoch | 163 | lnpoch = gsl_sf_lnpoch |
138 | foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double | 164 | foreign import ccall "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double |
165 | |||
139 | lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 166 | lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
140 | lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e | 167 | lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e |
141 | foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 168 | foreign import ccall "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
169 | |||
142 | poch_e :: Double -> Double -> (Double,Double) | 170 | poch_e :: Double -> Double -> (Double,Double) |
143 | poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x | 171 | poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x |
144 | foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt | 172 | foreign import ccall "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt |
173 | |||
145 | poch :: Double -> Double -> Double | 174 | poch :: Double -> Double -> Double |
146 | poch = gsl_sf_poch | 175 | poch = gsl_sf_poch |
147 | foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double | 176 | foreign import ccall "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double |
177 | |||
148 | pochrel_e :: Double -> Double -> (Double,Double) | 178 | pochrel_e :: Double -> Double -> (Double,Double) |
149 | pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x | 179 | pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x |
150 | foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt | 180 | foreign import ccall "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt |
181 | |||
151 | pochrel :: Double -> Double -> Double | 182 | pochrel :: Double -> Double -> Double |
152 | pochrel = gsl_sf_pochrel | 183 | pochrel = gsl_sf_pochrel |
153 | foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double | 184 | foreign import ccall "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double |
185 | |||
154 | gamma_inc_Q_e :: Double -> Double -> (Double,Double) | 186 | gamma_inc_Q_e :: Double -> Double -> (Double,Double) |
155 | gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x | 187 | gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x |
156 | foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt | 188 | foreign import ccall "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt |
189 | |||
157 | gamma_inc_Q :: Double -> Double -> Double | 190 | gamma_inc_Q :: Double -> Double -> Double |
158 | gamma_inc_Q = gsl_sf_gamma_inc_Q | 191 | gamma_inc_Q = gsl_sf_gamma_inc_Q |
159 | foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double | 192 | foreign import ccall "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double |
193 | |||
160 | gamma_inc_P_e :: Double -> Double -> (Double,Double) | 194 | gamma_inc_P_e :: Double -> Double -> (Double,Double) |
161 | gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x | 195 | gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x |
162 | foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt | 196 | foreign import ccall "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt |
197 | |||
163 | gamma_inc_P :: Double -> Double -> Double | 198 | gamma_inc_P :: Double -> Double -> Double |
164 | gamma_inc_P = gsl_sf_gamma_inc_P | 199 | gamma_inc_P = gsl_sf_gamma_inc_P |
165 | foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double | 200 | foreign import ccall "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double |
201 | |||
166 | gamma_inc_e :: Double -> Double -> (Double,Double) | 202 | gamma_inc_e :: Double -> Double -> (Double,Double) |
167 | gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x | 203 | gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x |
168 | foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt | 204 | foreign import ccall "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt |
205 | |||
169 | gamma_inc :: Double -> Double -> Double | 206 | gamma_inc :: Double -> Double -> Double |
170 | gamma_inc = gsl_sf_gamma_inc | 207 | gamma_inc = gsl_sf_gamma_inc |
171 | foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double | 208 | foreign import ccall "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double |
209 | |||
172 | lnbeta_e :: Double -> Double -> (Double,Double) | 210 | lnbeta_e :: Double -> Double -> (Double,Double) |
173 | lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b | 211 | lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b |
174 | foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt | 212 | foreign import ccall "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt |
213 | |||
175 | lnbeta :: Double -> Double -> Double | 214 | lnbeta :: Double -> Double -> Double |
176 | lnbeta = gsl_sf_lnbeta | 215 | lnbeta = gsl_sf_lnbeta |
177 | foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double | 216 | foreign import ccall "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double |
217 | |||
178 | lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 218 | lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
179 | lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e | 219 | lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e |
180 | foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt | 220 | foreign import ccall "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt |
221 | |||
181 | beta_e :: Double -> Double -> (Double,Double) | 222 | beta_e :: Double -> Double -> (Double,Double) |
182 | beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b | 223 | beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b |
183 | foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt | 224 | foreign import ccall "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt |
225 | |||
184 | beta :: Double -> Double -> Double | 226 | beta :: Double -> Double -> Double |
185 | beta = gsl_sf_beta | 227 | beta = gsl_sf_beta |
186 | foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double | 228 | foreign import ccall "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double |
229 | |||
187 | beta_inc_e :: Double -> Double -> Double -> (Double,Double) | 230 | beta_inc_e :: Double -> Double -> Double -> (Double,Double) |
188 | beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x | 231 | beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x |
189 | foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 232 | foreign import ccall "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
233 | |||
190 | beta_inc :: Double -> Double -> Double -> Double | 234 | beta_inc :: Double -> Double -> Double -> Double |
191 | beta_inc = gsl_sf_beta_inc | 235 | beta_inc = gsl_sf_beta_inc |
192 | foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double | 236 | foreign import ccall "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Gegenbauer.hs b/lib/Numeric/GSL/Special/Gegenbauer.hs index c4e433b..29822b2 100644 --- a/lib/Numeric/GSL/Special/Gegenbauer.hs +++ b/lib/Numeric/GSL/Special/Gegenbauer.hs | |||
@@ -26,30 +26,39 @@ module Numeric.GSL.Special.Gegenbauer( | |||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | |||
29 | gegenpoly_1_e :: Double -> Double -> (Double,Double) | 30 | gegenpoly_1_e :: Double -> Double -> (Double,Double) |
30 | gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x | 31 | gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x |
31 | foreign import ccall "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt | 32 | foreign import ccall "gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr () -> IO CInt |
33 | |||
32 | gegenpoly_2_e :: Double -> Double -> (Double,Double) | 34 | gegenpoly_2_e :: Double -> Double -> (Double,Double) |
33 | gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x | 35 | gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x |
34 | foreign import ccall "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt | 36 | foreign import ccall "gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr () -> IO CInt |
37 | |||
35 | gegenpoly_3_e :: Double -> Double -> (Double,Double) | 38 | gegenpoly_3_e :: Double -> Double -> (Double,Double) |
36 | gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x | 39 | gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x |
37 | foreign import ccall "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt | 40 | foreign import ccall "gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr () -> IO CInt |
41 | |||
38 | gegenpoly_1 :: Double -> Double -> Double | 42 | gegenpoly_1 :: Double -> Double -> Double |
39 | gegenpoly_1 = gsl_sf_gegenpoly_1 | 43 | gegenpoly_1 = gsl_sf_gegenpoly_1 |
40 | foreign import ccall "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double | 44 | foreign import ccall "gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double |
45 | |||
41 | gegenpoly_2 :: Double -> Double -> Double | 46 | gegenpoly_2 :: Double -> Double -> Double |
42 | gegenpoly_2 = gsl_sf_gegenpoly_2 | 47 | gegenpoly_2 = gsl_sf_gegenpoly_2 |
43 | foreign import ccall "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double | 48 | foreign import ccall "gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double |
49 | |||
44 | gegenpoly_3 :: Double -> Double -> Double | 50 | gegenpoly_3 :: Double -> Double -> Double |
45 | gegenpoly_3 = gsl_sf_gegenpoly_3 | 51 | gegenpoly_3 = gsl_sf_gegenpoly_3 |
46 | foreign import ccall "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double | 52 | foreign import ccall "gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double |
53 | |||
47 | gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) | 54 | gegenpoly_n_e :: CInt -> Double -> Double -> (Double,Double) |
48 | gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x | 55 | gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x |
49 | foreign import ccall "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 56 | foreign import ccall "gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
57 | |||
50 | gegenpoly_n :: CInt -> Double -> Double -> Double | 58 | gegenpoly_n :: CInt -> Double -> Double -> Double |
51 | gegenpoly_n = gsl_sf_gegenpoly_n | 59 | gegenpoly_n = gsl_sf_gegenpoly_n |
52 | foreign import ccall "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double | 60 | foreign import ccall "gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: CInt -> Double -> Double -> Double |
61 | |||
53 | gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 62 | gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
54 | gegenpoly_array = gsl_sf_gegenpoly_array | 63 | gegenpoly_array = gsl_sf_gegenpoly_array |
55 | foreign import ccall "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 64 | foreign import ccall "gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
diff --git a/lib/Numeric/GSL/Special/Hyperg.hs b/lib/Numeric/GSL/Special/Hyperg.hs index 42a4b40..492632b 100644 --- a/lib/Numeric/GSL/Special/Hyperg.hs +++ b/lib/Numeric/GSL/Special/Hyperg.hs | |||
@@ -40,69 +40,91 @@ module Numeric.GSL.Special.Hyperg( | |||
40 | import Foreign(Ptr) | 40 | import Foreign(Ptr) |
41 | import Foreign.C.Types(CInt) | 41 | import Foreign.C.Types(CInt) |
42 | import Numeric.GSL.Special.Internal | 42 | import Numeric.GSL.Special.Internal |
43 | |||
43 | hyperg_0F1_e :: Double -> Double -> (Double,Double) | 44 | hyperg_0F1_e :: Double -> Double -> (Double,Double) |
44 | hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x | 45 | hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x |
45 | foreign import ccall "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt | 46 | foreign import ccall "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt |
47 | |||
46 | hyperg_0F1 :: Double -> Double -> Double | 48 | hyperg_0F1 :: Double -> Double -> Double |
47 | hyperg_0F1 = gsl_sf_hyperg_0F1 | 49 | hyperg_0F1 = gsl_sf_hyperg_0F1 |
48 | foreign import ccall "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double | 50 | foreign import ccall "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double |
51 | |||
49 | hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) | 52 | hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) |
50 | hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x | 53 | hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x |
51 | foreign import ccall "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 54 | foreign import ccall "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
55 | |||
52 | hyperg_1F1_int :: CInt -> CInt -> Double -> Double | 56 | hyperg_1F1_int :: CInt -> CInt -> Double -> Double |
53 | hyperg_1F1_int = gsl_sf_hyperg_1F1_int | 57 | hyperg_1F1_int = gsl_sf_hyperg_1F1_int |
54 | foreign import ccall "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double | 58 | foreign import ccall "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double |
59 | |||
55 | hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) | 60 | hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) |
56 | hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x | 61 | hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x |
57 | foreign import ccall "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 62 | foreign import ccall "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
63 | |||
58 | hyperg_1F1 :: Double -> Double -> Double -> Double | 64 | hyperg_1F1 :: Double -> Double -> Double -> Double |
59 | hyperg_1F1 = gsl_sf_hyperg_1F1 | 65 | hyperg_1F1 = gsl_sf_hyperg_1F1 |
60 | foreign import ccall "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double | 66 | foreign import ccall "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double |
67 | |||
61 | hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) | 68 | hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) |
62 | hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x | 69 | hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x |
63 | foreign import ccall "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 70 | foreign import ccall "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
71 | |||
64 | hyperg_U_int :: CInt -> CInt -> Double -> Double | 72 | hyperg_U_int :: CInt -> CInt -> Double -> Double |
65 | hyperg_U_int = gsl_sf_hyperg_U_int | 73 | hyperg_U_int = gsl_sf_hyperg_U_int |
66 | foreign import ccall "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double | 74 | foreign import ccall "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double |
75 | |||
67 | hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) | 76 | hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) |
68 | hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x | 77 | hyperg_U_int_e10_e m n x = createSFR_E10 "hyperg_U_int_e10_e" $ gsl_sf_hyperg_U_int_e10_e m n x |
69 | foreign import ccall "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 78 | foreign import ccall "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
79 | |||
70 | hyperg_U_e :: Double -> Double -> Double -> (Double,Double) | 80 | hyperg_U_e :: Double -> Double -> Double -> (Double,Double) |
71 | hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x | 81 | hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x |
72 | foreign import ccall "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 82 | foreign import ccall "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
83 | |||
73 | hyperg_U :: Double -> Double -> Double -> Double | 84 | hyperg_U :: Double -> Double -> Double -> Double |
74 | hyperg_U = gsl_sf_hyperg_U | 85 | hyperg_U = gsl_sf_hyperg_U |
75 | foreign import ccall "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double | 86 | foreign import ccall "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double |
87 | |||
76 | hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) | 88 | hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) |
77 | hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x | 89 | hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x |
78 | foreign import ccall "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 90 | foreign import ccall "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
91 | |||
79 | hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) | 92 | hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) |
80 | hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x | 93 | hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x |
81 | foreign import ccall "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 94 | foreign import ccall "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
95 | |||
82 | hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | 96 | hyperg_2F1 :: Double -> Double -> Double -> Double -> Double |
83 | hyperg_2F1 = gsl_sf_hyperg_2F1 | 97 | hyperg_2F1 = gsl_sf_hyperg_2F1 |
84 | foreign import ccall "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | 98 | foreign import ccall "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double |
99 | |||
85 | hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) | 100 | hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) |
86 | hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x | 101 | hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x |
87 | foreign import ccall "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 102 | foreign import ccall "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
103 | |||
88 | hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | 104 | hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double |
89 | hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj | 105 | hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj |
90 | foreign import ccall "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | 106 | foreign import ccall "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double |
107 | |||
91 | hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | 108 | hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) |
92 | hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x | 109 | hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x |
93 | foreign import ccall "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 110 | foreign import ccall "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
111 | |||
94 | hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | 112 | hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double |
95 | hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm | 113 | hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm |
96 | foreign import ccall "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | 114 | foreign import ccall "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double |
115 | |||
97 | hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | 116 | hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) |
98 | hyperg_2F1_conj_renorm_e aR aI c x = createSFR "hyperg_2F1_conj_renorm_e" $ gsl_sf_hyperg_2F1_conj_renorm_e aR aI c x | 117 | hyperg_2F1_conj_renorm_e aR aI c x = createSFR "hyperg_2F1_conj_renorm_e" $ gsl_sf_hyperg_2F1_conj_renorm_e aR aI c x |
99 | foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 118 | foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
119 | |||
100 | hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | 120 | hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double |
101 | hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm | 121 | hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm |
102 | foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | 122 | foreign import ccall "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double |
123 | |||
103 | hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) | 124 | hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) |
104 | hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x | 125 | hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x |
105 | foreign import ccall "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt | 126 | foreign import ccall "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt |
127 | |||
106 | hyperg_2F0 :: Double -> Double -> Double -> Double | 128 | hyperg_2F0 :: Double -> Double -> Double -> Double |
107 | hyperg_2F0 = gsl_sf_hyperg_2F0 | 129 | hyperg_2F0 = gsl_sf_hyperg_2F0 |
108 | foreign import ccall "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double | 130 | foreign import ccall "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Laguerre.hs b/lib/Numeric/GSL/Special/Laguerre.hs index 3e4c486..b763441 100644 --- a/lib/Numeric/GSL/Special/Laguerre.hs +++ b/lib/Numeric/GSL/Special/Laguerre.hs | |||
@@ -26,27 +26,35 @@ module Numeric.GSL.Special.Laguerre( | |||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | |||
29 | laguerre_1_e :: Double -> Double -> (Double,Double) | 30 | laguerre_1_e :: Double -> Double -> (Double,Double) |
30 | laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x | 31 | laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x |
31 | foreign import ccall "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt | 32 | foreign import ccall "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt |
33 | |||
32 | laguerre_2_e :: Double -> Double -> (Double,Double) | 34 | laguerre_2_e :: Double -> Double -> (Double,Double) |
33 | laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x | 35 | laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x |
34 | foreign import ccall "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt | 36 | foreign import ccall "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt |
37 | |||
35 | laguerre_3_e :: Double -> Double -> (Double,Double) | 38 | laguerre_3_e :: Double -> Double -> (Double,Double) |
36 | laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x | 39 | laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x |
37 | foreign import ccall "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt | 40 | foreign import ccall "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt |
41 | |||
38 | laguerre_1 :: Double -> Double -> Double | 42 | laguerre_1 :: Double -> Double -> Double |
39 | laguerre_1 = gsl_sf_laguerre_1 | 43 | laguerre_1 = gsl_sf_laguerre_1 |
40 | foreign import ccall "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double | 44 | foreign import ccall "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double |
45 | |||
41 | laguerre_2 :: Double -> Double -> Double | 46 | laguerre_2 :: Double -> Double -> Double |
42 | laguerre_2 = gsl_sf_laguerre_2 | 47 | laguerre_2 = gsl_sf_laguerre_2 |
43 | foreign import ccall "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double | 48 | foreign import ccall "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double |
49 | |||
44 | laguerre_3 :: Double -> Double -> Double | 50 | laguerre_3 :: Double -> Double -> Double |
45 | laguerre_3 = gsl_sf_laguerre_3 | 51 | laguerre_3 = gsl_sf_laguerre_3 |
46 | foreign import ccall "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double | 52 | foreign import ccall "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double |
53 | |||
47 | laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) | 54 | laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) |
48 | laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x | 55 | laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x |
49 | foreign import ccall "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 56 | foreign import ccall "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
57 | |||
50 | laguerre_n :: CInt -> Double -> Double -> Double | 58 | laguerre_n :: CInt -> Double -> Double -> Double |
51 | laguerre_n = gsl_sf_laguerre_n | 59 | laguerre_n = gsl_sf_laguerre_n |
52 | foreign import ccall "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double | 60 | foreign import ccall "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Lambert.hs b/lib/Numeric/GSL/Special/Lambert.hs index 7bc820c..06af09c 100644 --- a/lib/Numeric/GSL/Special/Lambert.hs +++ b/lib/Numeric/GSL/Special/Lambert.hs | |||
@@ -22,15 +22,19 @@ module Numeric.GSL.Special.Lambert( | |||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 23 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
25 | |||
25 | lambert_W0_e :: Double -> (Double,Double) | 26 | lambert_W0_e :: Double -> (Double,Double) |
26 | lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x | 27 | lambert_W0_e x = createSFR "lambert_W0_e" $ gsl_sf_lambert_W0_e x |
27 | foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt | 28 | foreign import ccall "gsl_sf_lambert_W0_e" gsl_sf_lambert_W0_e :: Double -> Ptr () -> IO CInt |
29 | |||
28 | lambert_W0 :: Double -> Double | 30 | lambert_W0 :: Double -> Double |
29 | lambert_W0 = gsl_sf_lambert_W0 | 31 | lambert_W0 = gsl_sf_lambert_W0 |
30 | foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double | 32 | foreign import ccall "gsl_sf_lambert_W0" gsl_sf_lambert_W0 :: Double -> Double |
33 | |||
31 | lambert_Wm1_e :: Double -> (Double,Double) | 34 | lambert_Wm1_e :: Double -> (Double,Double) |
32 | lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x | 35 | lambert_Wm1_e x = createSFR "lambert_Wm1_e" $ gsl_sf_lambert_Wm1_e x |
33 | foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall "gsl_sf_lambert_Wm1_e" gsl_sf_lambert_Wm1_e :: Double -> Ptr () -> IO CInt |
37 | |||
34 | lambert_Wm1 :: Double -> Double | 38 | lambert_Wm1 :: Double -> Double |
35 | lambert_Wm1 = gsl_sf_lambert_Wm1 | 39 | lambert_Wm1 = gsl_sf_lambert_Wm1 |
36 | foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double | 40 | foreign import ccall "gsl_sf_lambert_Wm1" gsl_sf_lambert_Wm1 :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Legendre.hs b/lib/Numeric/GSL/Special/Legendre.hs index c2526b9..5a74773 100644 --- a/lib/Numeric/GSL/Special/Legendre.hs +++ b/lib/Numeric/GSL/Special/Legendre.hs | |||
@@ -55,135 +55,179 @@ module Numeric.GSL.Special.Legendre( | |||
55 | import Foreign(Ptr) | 55 | import Foreign(Ptr) |
56 | import Foreign.C.Types(CInt) | 56 | import Foreign.C.Types(CInt) |
57 | import Numeric.GSL.Special.Internal | 57 | import Numeric.GSL.Special.Internal |
58 | |||
58 | legendre_Pl_e :: CInt -> Double -> (Double,Double) | 59 | legendre_Pl_e :: CInt -> Double -> (Double,Double) |
59 | legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x | 60 | legendre_Pl_e l x = createSFR "legendre_Pl_e" $ gsl_sf_legendre_Pl_e l x |
60 | foreign import ccall "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt | 61 | foreign import ccall "gsl_sf_legendre_Pl_e" gsl_sf_legendre_Pl_e :: CInt -> Double -> Ptr () -> IO CInt |
62 | |||
61 | legendre_Pl :: CInt -> Double -> Double | 63 | legendre_Pl :: CInt -> Double -> Double |
62 | legendre_Pl = gsl_sf_legendre_Pl | 64 | legendre_Pl = gsl_sf_legendre_Pl |
63 | foreign import ccall "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double | 65 | foreign import ccall "gsl_sf_legendre_Pl" gsl_sf_legendre_Pl :: CInt -> Double -> Double |
66 | |||
64 | legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | 67 | legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt |
65 | legendre_Pl_array = gsl_sf_legendre_Pl_array | 68 | legendre_Pl_array = gsl_sf_legendre_Pl_array |
66 | foreign import ccall "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt | 69 | foreign import ccall "gsl_sf_legendre_Pl_array" gsl_sf_legendre_Pl_array :: CInt -> Double -> Ptr Double -> CInt |
70 | |||
67 | legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 71 | legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
68 | legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array | 72 | legendre_Pl_deriv_array = gsl_sf_legendre_Pl_deriv_array |
69 | foreign import ccall "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 73 | foreign import ccall "gsl_sf_legendre_Pl_deriv_array" gsl_sf_legendre_Pl_deriv_array :: CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
74 | |||
70 | legendre_P1_e :: Double -> (Double,Double) | 75 | legendre_P1_e :: Double -> (Double,Double) |
71 | legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x | 76 | legendre_P1_e x = createSFR "legendre_P1_e" $ gsl_sf_legendre_P1_e x |
72 | foreign import ccall "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt | 77 | foreign import ccall "gsl_sf_legendre_P1_e" gsl_sf_legendre_P1_e :: Double -> Ptr () -> IO CInt |
78 | |||
73 | legendre_P2_e :: Double -> (Double,Double) | 79 | legendre_P2_e :: Double -> (Double,Double) |
74 | legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x | 80 | legendre_P2_e x = createSFR "legendre_P2_e" $ gsl_sf_legendre_P2_e x |
75 | foreign import ccall "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt | 81 | foreign import ccall "gsl_sf_legendre_P2_e" gsl_sf_legendre_P2_e :: Double -> Ptr () -> IO CInt |
82 | |||
76 | legendre_P3_e :: Double -> (Double,Double) | 83 | legendre_P3_e :: Double -> (Double,Double) |
77 | legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x | 84 | legendre_P3_e x = createSFR "legendre_P3_e" $ gsl_sf_legendre_P3_e x |
78 | foreign import ccall "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt | 85 | foreign import ccall "gsl_sf_legendre_P3_e" gsl_sf_legendre_P3_e :: Double -> Ptr () -> IO CInt |
86 | |||
79 | legendre_P1 :: Double -> Double | 87 | legendre_P1 :: Double -> Double |
80 | legendre_P1 = gsl_sf_legendre_P1 | 88 | legendre_P1 = gsl_sf_legendre_P1 |
81 | foreign import ccall "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double | 89 | foreign import ccall "gsl_sf_legendre_P1" gsl_sf_legendre_P1 :: Double -> Double |
90 | |||
82 | legendre_P2 :: Double -> Double | 91 | legendre_P2 :: Double -> Double |
83 | legendre_P2 = gsl_sf_legendre_P2 | 92 | legendre_P2 = gsl_sf_legendre_P2 |
84 | foreign import ccall "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double | 93 | foreign import ccall "gsl_sf_legendre_P2" gsl_sf_legendre_P2 :: Double -> Double |
94 | |||
85 | legendre_P3 :: Double -> Double | 95 | legendre_P3 :: Double -> Double |
86 | legendre_P3 = gsl_sf_legendre_P3 | 96 | legendre_P3 = gsl_sf_legendre_P3 |
87 | foreign import ccall "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double | 97 | foreign import ccall "gsl_sf_legendre_P3" gsl_sf_legendre_P3 :: Double -> Double |
98 | |||
88 | legendre_Q0_e :: Double -> (Double,Double) | 99 | legendre_Q0_e :: Double -> (Double,Double) |
89 | legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x | 100 | legendre_Q0_e x = createSFR "legendre_Q0_e" $ gsl_sf_legendre_Q0_e x |
90 | foreign import ccall "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt | 101 | foreign import ccall "gsl_sf_legendre_Q0_e" gsl_sf_legendre_Q0_e :: Double -> Ptr () -> IO CInt |
102 | |||
91 | legendre_Q0 :: Double -> Double | 103 | legendre_Q0 :: Double -> Double |
92 | legendre_Q0 = gsl_sf_legendre_Q0 | 104 | legendre_Q0 = gsl_sf_legendre_Q0 |
93 | foreign import ccall "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double | 105 | foreign import ccall "gsl_sf_legendre_Q0" gsl_sf_legendre_Q0 :: Double -> Double |
106 | |||
94 | legendre_Q1_e :: Double -> (Double,Double) | 107 | legendre_Q1_e :: Double -> (Double,Double) |
95 | legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x | 108 | legendre_Q1_e x = createSFR "legendre_Q1_e" $ gsl_sf_legendre_Q1_e x |
96 | foreign import ccall "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt | 109 | foreign import ccall "gsl_sf_legendre_Q1_e" gsl_sf_legendre_Q1_e :: Double -> Ptr () -> IO CInt |
110 | |||
97 | legendre_Q1 :: Double -> Double | 111 | legendre_Q1 :: Double -> Double |
98 | legendre_Q1 = gsl_sf_legendre_Q1 | 112 | legendre_Q1 = gsl_sf_legendre_Q1 |
99 | foreign import ccall "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double | 113 | foreign import ccall "gsl_sf_legendre_Q1" gsl_sf_legendre_Q1 :: Double -> Double |
114 | |||
100 | legendre_Ql_e :: CInt -> Double -> (Double,Double) | 115 | legendre_Ql_e :: CInt -> Double -> (Double,Double) |
101 | legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x | 116 | legendre_Ql_e l x = createSFR "legendre_Ql_e" $ gsl_sf_legendre_Ql_e l x |
102 | foreign import ccall "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt | 117 | foreign import ccall "gsl_sf_legendre_Ql_e" gsl_sf_legendre_Ql_e :: CInt -> Double -> Ptr () -> IO CInt |
118 | |||
103 | legendre_Ql :: CInt -> Double -> Double | 119 | legendre_Ql :: CInt -> Double -> Double |
104 | legendre_Ql = gsl_sf_legendre_Ql | 120 | legendre_Ql = gsl_sf_legendre_Ql |
105 | foreign import ccall "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double | 121 | foreign import ccall "gsl_sf_legendre_Ql" gsl_sf_legendre_Ql :: CInt -> Double -> Double |
122 | |||
106 | legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) | 123 | legendre_Plm_e :: CInt -> CInt -> Double -> (Double,Double) |
107 | legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x | 124 | legendre_Plm_e l m x = createSFR "legendre_Plm_e" $ gsl_sf_legendre_Plm_e l m x |
108 | foreign import ccall "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 125 | foreign import ccall "gsl_sf_legendre_Plm_e" gsl_sf_legendre_Plm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
126 | |||
109 | legendre_Plm :: CInt -> CInt -> Double -> Double | 127 | legendre_Plm :: CInt -> CInt -> Double -> Double |
110 | legendre_Plm = gsl_sf_legendre_Plm | 128 | legendre_Plm = gsl_sf_legendre_Plm |
111 | foreign import ccall "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double | 129 | foreign import ccall "gsl_sf_legendre_Plm" gsl_sf_legendre_Plm :: CInt -> CInt -> Double -> Double |
130 | |||
112 | legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 131 | legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
113 | legendre_Plm_array = gsl_sf_legendre_Plm_array | 132 | legendre_Plm_array = gsl_sf_legendre_Plm_array |
114 | foreign import ccall "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 133 | foreign import ccall "gsl_sf_legendre_Plm_array" gsl_sf_legendre_Plm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
134 | |||
115 | legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 135 | legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
116 | legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array | 136 | legendre_Plm_deriv_array = gsl_sf_legendre_Plm_deriv_array |
117 | foreign import ccall "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 137 | foreign import ccall "gsl_sf_legendre_Plm_deriv_array" gsl_sf_legendre_Plm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
138 | |||
118 | legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) | 139 | legendre_sphPlm_e :: CInt -> CInt -> Double -> (Double,Double) |
119 | legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x | 140 | legendre_sphPlm_e l m x = createSFR "legendre_sphPlm_e" $ gsl_sf_legendre_sphPlm_e l m x |
120 | foreign import ccall "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | 141 | foreign import ccall "gsl_sf_legendre_sphPlm_e" gsl_sf_legendre_sphPlm_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt |
142 | |||
121 | legendre_sphPlm :: CInt -> CInt -> Double -> Double | 143 | legendre_sphPlm :: CInt -> CInt -> Double -> Double |
122 | legendre_sphPlm = gsl_sf_legendre_sphPlm | 144 | legendre_sphPlm = gsl_sf_legendre_sphPlm |
123 | foreign import ccall "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double | 145 | foreign import ccall "gsl_sf_legendre_sphPlm" gsl_sf_legendre_sphPlm :: CInt -> CInt -> Double -> Double |
146 | |||
124 | legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 147 | legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
125 | legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array | 148 | legendre_sphPlm_array = gsl_sf_legendre_sphPlm_array |
126 | foreign import ccall "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt | 149 | foreign import ccall "gsl_sf_legendre_sphPlm_array" gsl_sf_legendre_sphPlm_array :: CInt -> CInt -> Double -> Ptr Double -> CInt |
150 | |||
127 | legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 151 | legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
128 | legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array | 152 | legendre_sphPlm_deriv_array = gsl_sf_legendre_sphPlm_deriv_array |
129 | foreign import ccall "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt | 153 | foreign import ccall "gsl_sf_legendre_sphPlm_deriv_array" gsl_sf_legendre_sphPlm_deriv_array :: CInt -> CInt -> Double -> Ptr Double -> Ptr Double -> CInt |
154 | |||
130 | legendre_array_size :: CInt -> CInt -> CInt | 155 | legendre_array_size :: CInt -> CInt -> CInt |
131 | legendre_array_size = gsl_sf_legendre_array_size | 156 | legendre_array_size = gsl_sf_legendre_array_size |
132 | foreign import ccall "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt | 157 | foreign import ccall "gsl_sf_legendre_array_size" gsl_sf_legendre_array_size :: CInt -> CInt -> CInt |
158 | |||
133 | conicalP_half_e :: Double -> Double -> (Double,Double) | 159 | conicalP_half_e :: Double -> Double -> (Double,Double) |
134 | conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x | 160 | conicalP_half_e lambda x = createSFR "conicalP_half_e" $ gsl_sf_conicalP_half_e lambda x |
135 | foreign import ccall "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt | 161 | foreign import ccall "gsl_sf_conicalP_half_e" gsl_sf_conicalP_half_e :: Double -> Double -> Ptr () -> IO CInt |
162 | |||
136 | conicalP_half :: Double -> Double -> Double | 163 | conicalP_half :: Double -> Double -> Double |
137 | conicalP_half = gsl_sf_conicalP_half | 164 | conicalP_half = gsl_sf_conicalP_half |
138 | foreign import ccall "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double | 165 | foreign import ccall "gsl_sf_conicalP_half" gsl_sf_conicalP_half :: Double -> Double -> Double |
166 | |||
139 | conicalP_mhalf_e :: Double -> Double -> (Double,Double) | 167 | conicalP_mhalf_e :: Double -> Double -> (Double,Double) |
140 | conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x | 168 | conicalP_mhalf_e lambda x = createSFR "conicalP_mhalf_e" $ gsl_sf_conicalP_mhalf_e lambda x |
141 | foreign import ccall "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt | 169 | foreign import ccall "gsl_sf_conicalP_mhalf_e" gsl_sf_conicalP_mhalf_e :: Double -> Double -> Ptr () -> IO CInt |
170 | |||
142 | conicalP_mhalf :: Double -> Double -> Double | 171 | conicalP_mhalf :: Double -> Double -> Double |
143 | conicalP_mhalf = gsl_sf_conicalP_mhalf | 172 | conicalP_mhalf = gsl_sf_conicalP_mhalf |
144 | foreign import ccall "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double | 173 | foreign import ccall "gsl_sf_conicalP_mhalf" gsl_sf_conicalP_mhalf :: Double -> Double -> Double |
174 | |||
145 | conicalP_0_e :: Double -> Double -> (Double,Double) | 175 | conicalP_0_e :: Double -> Double -> (Double,Double) |
146 | conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x | 176 | conicalP_0_e lambda x = createSFR "conicalP_0_e" $ gsl_sf_conicalP_0_e lambda x |
147 | foreign import ccall "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt | 177 | foreign import ccall "gsl_sf_conicalP_0_e" gsl_sf_conicalP_0_e :: Double -> Double -> Ptr () -> IO CInt |
178 | |||
148 | conicalP_0 :: Double -> Double -> Double | 179 | conicalP_0 :: Double -> Double -> Double |
149 | conicalP_0 = gsl_sf_conicalP_0 | 180 | conicalP_0 = gsl_sf_conicalP_0 |
150 | foreign import ccall "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double | 181 | foreign import ccall "gsl_sf_conicalP_0" gsl_sf_conicalP_0 :: Double -> Double -> Double |
182 | |||
151 | conicalP_1_e :: Double -> Double -> (Double,Double) | 183 | conicalP_1_e :: Double -> Double -> (Double,Double) |
152 | conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x | 184 | conicalP_1_e lambda x = createSFR "conicalP_1_e" $ gsl_sf_conicalP_1_e lambda x |
153 | foreign import ccall "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt | 185 | foreign import ccall "gsl_sf_conicalP_1_e" gsl_sf_conicalP_1_e :: Double -> Double -> Ptr () -> IO CInt |
186 | |||
154 | conicalP_1 :: Double -> Double -> Double | 187 | conicalP_1 :: Double -> Double -> Double |
155 | conicalP_1 = gsl_sf_conicalP_1 | 188 | conicalP_1 = gsl_sf_conicalP_1 |
156 | foreign import ccall "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double | 189 | foreign import ccall "gsl_sf_conicalP_1" gsl_sf_conicalP_1 :: Double -> Double -> Double |
190 | |||
157 | conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) | 191 | conicalP_sph_reg_e :: CInt -> Double -> Double -> (Double,Double) |
158 | conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x | 192 | conicalP_sph_reg_e l lambda x = createSFR "conicalP_sph_reg_e" $ gsl_sf_conicalP_sph_reg_e l lambda x |
159 | foreign import ccall "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 193 | foreign import ccall "gsl_sf_conicalP_sph_reg_e" gsl_sf_conicalP_sph_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
194 | |||
160 | conicalP_sph_reg :: CInt -> Double -> Double -> Double | 195 | conicalP_sph_reg :: CInt -> Double -> Double -> Double |
161 | conicalP_sph_reg = gsl_sf_conicalP_sph_reg | 196 | conicalP_sph_reg = gsl_sf_conicalP_sph_reg |
162 | foreign import ccall "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double | 197 | foreign import ccall "gsl_sf_conicalP_sph_reg" gsl_sf_conicalP_sph_reg :: CInt -> Double -> Double -> Double |
198 | |||
163 | conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) | 199 | conicalP_cyl_reg_e :: CInt -> Double -> Double -> (Double,Double) |
164 | conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x | 200 | conicalP_cyl_reg_e m lambda x = createSFR "conicalP_cyl_reg_e" $ gsl_sf_conicalP_cyl_reg_e m lambda x |
165 | foreign import ccall "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 201 | foreign import ccall "gsl_sf_conicalP_cyl_reg_e" gsl_sf_conicalP_cyl_reg_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
202 | |||
166 | conicalP_cyl_reg :: CInt -> Double -> Double -> Double | 203 | conicalP_cyl_reg :: CInt -> Double -> Double -> Double |
167 | conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg | 204 | conicalP_cyl_reg = gsl_sf_conicalP_cyl_reg |
168 | foreign import ccall "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double | 205 | foreign import ccall "gsl_sf_conicalP_cyl_reg" gsl_sf_conicalP_cyl_reg :: CInt -> Double -> Double -> Double |
206 | |||
169 | legendre_H3d_0_e :: Double -> Double -> (Double,Double) | 207 | legendre_H3d_0_e :: Double -> Double -> (Double,Double) |
170 | legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta | 208 | legendre_H3d_0_e lambda eta = createSFR "legendre_H3d_0_e" $ gsl_sf_legendre_H3d_0_e lambda eta |
171 | foreign import ccall "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt | 209 | foreign import ccall "gsl_sf_legendre_H3d_0_e" gsl_sf_legendre_H3d_0_e :: Double -> Double -> Ptr () -> IO CInt |
210 | |||
172 | legendre_H3d_0 :: Double -> Double -> Double | 211 | legendre_H3d_0 :: Double -> Double -> Double |
173 | legendre_H3d_0 = gsl_sf_legendre_H3d_0 | 212 | legendre_H3d_0 = gsl_sf_legendre_H3d_0 |
174 | foreign import ccall "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double | 213 | foreign import ccall "gsl_sf_legendre_H3d_0" gsl_sf_legendre_H3d_0 :: Double -> Double -> Double |
214 | |||
175 | legendre_H3d_1_e :: Double -> Double -> (Double,Double) | 215 | legendre_H3d_1_e :: Double -> Double -> (Double,Double) |
176 | legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta | 216 | legendre_H3d_1_e lambda eta = createSFR "legendre_H3d_1_e" $ gsl_sf_legendre_H3d_1_e lambda eta |
177 | foreign import ccall "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt | 217 | foreign import ccall "gsl_sf_legendre_H3d_1_e" gsl_sf_legendre_H3d_1_e :: Double -> Double -> Ptr () -> IO CInt |
218 | |||
178 | legendre_H3d_1 :: Double -> Double -> Double | 219 | legendre_H3d_1 :: Double -> Double -> Double |
179 | legendre_H3d_1 = gsl_sf_legendre_H3d_1 | 220 | legendre_H3d_1 = gsl_sf_legendre_H3d_1 |
180 | foreign import ccall "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double | 221 | foreign import ccall "gsl_sf_legendre_H3d_1" gsl_sf_legendre_H3d_1 :: Double -> Double -> Double |
222 | |||
181 | legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) | 223 | legendre_H3d_e :: CInt -> Double -> Double -> (Double,Double) |
182 | legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta | 224 | legendre_H3d_e l lambda eta = createSFR "legendre_H3d_e" $ gsl_sf_legendre_H3d_e l lambda eta |
183 | foreign import ccall "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt | 225 | foreign import ccall "gsl_sf_legendre_H3d_e" gsl_sf_legendre_H3d_e :: CInt -> Double -> Double -> Ptr () -> IO CInt |
226 | |||
184 | legendre_H3d :: CInt -> Double -> Double -> Double | 227 | legendre_H3d :: CInt -> Double -> Double -> Double |
185 | legendre_H3d = gsl_sf_legendre_H3d | 228 | legendre_H3d = gsl_sf_legendre_H3d |
186 | foreign import ccall "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double | 229 | foreign import ccall "gsl_sf_legendre_H3d" gsl_sf_legendre_H3d :: CInt -> Double -> Double -> Double |
230 | |||
187 | legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 231 | legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
188 | legendre_H3d_array = gsl_sf_legendre_H3d_array | 232 | legendre_H3d_array = gsl_sf_legendre_H3d_array |
189 | foreign import ccall "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt | 233 | foreign import ccall "gsl_sf_legendre_H3d_array" gsl_sf_legendre_H3d_array :: CInt -> Double -> Double -> Ptr Double -> CInt |
diff --git a/lib/Numeric/GSL/Special/Log.hs b/lib/Numeric/GSL/Special/Log.hs index 665b74b..ad8adaf 100644 --- a/lib/Numeric/GSL/Special/Log.hs +++ b/lib/Numeric/GSL/Special/Log.hs | |||
@@ -26,30 +26,39 @@ module Numeric.GSL.Special.Log( | |||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | |||
29 | log_e :: Double -> (Double,Double) | 30 | log_e :: Double -> (Double,Double) |
30 | log_e x = createSFR "log_e" $ gsl_sf_log_e x | 31 | log_e x = createSFR "log_e" $ gsl_sf_log_e x |
31 | foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt | 32 | foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt |
33 | |||
32 | log :: Double -> Double | 34 | log :: Double -> Double |
33 | log = gsl_sf_log | 35 | log = gsl_sf_log |
34 | foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double | 36 | foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double |
37 | |||
35 | log_abs_e :: Double -> (Double,Double) | 38 | log_abs_e :: Double -> (Double,Double) |
36 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x | 39 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x |
37 | foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt | 40 | foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt |
41 | |||
38 | log_abs :: Double -> Double | 42 | log_abs :: Double -> Double |
39 | log_abs = gsl_sf_log_abs | 43 | log_abs = gsl_sf_log_abs |
40 | foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | 44 | foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double |
45 | |||
41 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) | 46 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) |
42 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr | 47 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr |
43 | foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 48 | foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
49 | |||
44 | log_1plusx_e :: Double -> (Double,Double) | 50 | log_1plusx_e :: Double -> (Double,Double) |
45 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x | 51 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x |
46 | foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt |
53 | |||
47 | log_1plusx :: Double -> Double | 54 | log_1plusx :: Double -> Double |
48 | log_1plusx = gsl_sf_log_1plusx | 55 | log_1plusx = gsl_sf_log_1plusx |
49 | foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double | 56 | foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double |
57 | |||
50 | log_1plusx_mx_e :: Double -> (Double,Double) | 58 | log_1plusx_mx_e :: Double -> (Double,Double) |
51 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x | 59 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x |
52 | foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt |
61 | |||
53 | log_1plusx_mx :: Double -> Double | 62 | log_1plusx_mx :: Double -> Double |
54 | log_1plusx_mx = gsl_sf_log_1plusx_mx | 63 | log_1plusx_mx = gsl_sf_log_1plusx_mx |
55 | foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double | 64 | foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Pow_int.hs b/lib/Numeric/GSL/Special/Pow_int.hs index d6c77b2..d98bd57 100644 --- a/lib/Numeric/GSL/Special/Pow_int.hs +++ b/lib/Numeric/GSL/Special/Pow_int.hs | |||
@@ -20,9 +20,11 @@ module Numeric.GSL.Special.Pow_int( | |||
20 | import Foreign(Ptr) | 20 | import Foreign(Ptr) |
21 | import Foreign.C.Types(CInt) | 21 | import Foreign.C.Types(CInt) |
22 | import Numeric.GSL.Special.Internal | 22 | import Numeric.GSL.Special.Internal |
23 | |||
23 | pow_int_e :: Double -> CInt -> (Double,Double) | 24 | pow_int_e :: Double -> CInt -> (Double,Double) |
24 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n | 25 | pow_int_e x n = createSFR "pow_int_e" $ gsl_sf_pow_int_e x n |
25 | foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt | 26 | foreign import ccall "gsl_sf_pow_int_e" gsl_sf_pow_int_e :: Double -> CInt -> Ptr () -> IO CInt |
27 | |||
26 | pow_int :: Double -> CInt -> Double | 28 | pow_int :: Double -> CInt -> Double |
27 | pow_int = gsl_sf_pow_int | 29 | pow_int = gsl_sf_pow_int |
28 | foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double | 30 | foreign import ccall "gsl_sf_pow_int" gsl_sf_pow_int :: Double -> CInt -> Double |
diff --git a/lib/Numeric/GSL/Special/Psi.hs b/lib/Numeric/GSL/Special/Psi.hs index 871365c..06c1da0 100644 --- a/lib/Numeric/GSL/Special/Psi.hs +++ b/lib/Numeric/GSL/Special/Psi.hs | |||
@@ -30,42 +30,55 @@ module Numeric.GSL.Special.Psi( | |||
30 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
31 | import Foreign.C.Types(CInt) | 31 | import Foreign.C.Types(CInt) |
32 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
33 | |||
33 | psi_int_e :: CInt -> (Double,Double) | 34 | psi_int_e :: CInt -> (Double,Double) |
34 | psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n | 35 | psi_int_e n = createSFR "psi_int_e" $ gsl_sf_psi_int_e n |
35 | foreign import ccall "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt | 36 | foreign import ccall "gsl_sf_psi_int_e" gsl_sf_psi_int_e :: CInt -> Ptr () -> IO CInt |
37 | |||
36 | psi_int :: CInt -> Double | 38 | psi_int :: CInt -> Double |
37 | psi_int = gsl_sf_psi_int | 39 | psi_int = gsl_sf_psi_int |
38 | foreign import ccall "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double | 40 | foreign import ccall "gsl_sf_psi_int" gsl_sf_psi_int :: CInt -> Double |
41 | |||
39 | psi_e :: Double -> (Double,Double) | 42 | psi_e :: Double -> (Double,Double) |
40 | psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x | 43 | psi_e x = createSFR "psi_e" $ gsl_sf_psi_e x |
41 | foreign import ccall "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt | 44 | foreign import ccall "gsl_sf_psi_e" gsl_sf_psi_e :: Double -> Ptr () -> IO CInt |
45 | |||
42 | psi :: Double -> Double | 46 | psi :: Double -> Double |
43 | psi = gsl_sf_psi | 47 | psi = gsl_sf_psi |
44 | foreign import ccall "gsl_sf_psi" gsl_sf_psi :: Double -> Double | 48 | foreign import ccall "gsl_sf_psi" gsl_sf_psi :: Double -> Double |
49 | |||
45 | psi_1piy_e :: Double -> (Double,Double) | 50 | psi_1piy_e :: Double -> (Double,Double) |
46 | psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y | 51 | psi_1piy_e y = createSFR "psi_1piy_e" $ gsl_sf_psi_1piy_e y |
47 | foreign import ccall "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_psi_1piy_e" gsl_sf_psi_1piy_e :: Double -> Ptr () -> IO CInt |
53 | |||
48 | psi_1piy :: Double -> Double | 54 | psi_1piy :: Double -> Double |
49 | psi_1piy = gsl_sf_psi_1piy | 55 | psi_1piy = gsl_sf_psi_1piy |
50 | foreign import ccall "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double | 56 | foreign import ccall "gsl_sf_psi_1piy" gsl_sf_psi_1piy :: Double -> Double |
57 | |||
51 | complex_psi_e :: Double -> Double -> Ptr () -> (Double,Double) | 58 | complex_psi_e :: Double -> Double -> Ptr () -> (Double,Double) |
52 | complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re | 59 | complex_psi_e x y result_re = createSFR "complex_psi_e" $ gsl_sf_complex_psi_e x y result_re |
53 | foreign import ccall "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_complex_psi_e" gsl_sf_complex_psi_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
61 | |||
54 | psi_1_int_e :: CInt -> (Double,Double) | 62 | psi_1_int_e :: CInt -> (Double,Double) |
55 | psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n | 63 | psi_1_int_e n = createSFR "psi_1_int_e" $ gsl_sf_psi_1_int_e n |
56 | foreign import ccall "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt | 64 | foreign import ccall "gsl_sf_psi_1_int_e" gsl_sf_psi_1_int_e :: CInt -> Ptr () -> IO CInt |
65 | |||
57 | psi_1_int :: CInt -> Double | 66 | psi_1_int :: CInt -> Double |
58 | psi_1_int = gsl_sf_psi_1_int | 67 | psi_1_int = gsl_sf_psi_1_int |
59 | foreign import ccall "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double | 68 | foreign import ccall "gsl_sf_psi_1_int" gsl_sf_psi_1_int :: CInt -> Double |
69 | |||
60 | psi_1_e :: Double -> (Double,Double) | 70 | psi_1_e :: Double -> (Double,Double) |
61 | psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x | 71 | psi_1_e x = createSFR "psi_1_e" $ gsl_sf_psi_1_e x |
62 | foreign import ccall "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt | 72 | foreign import ccall "gsl_sf_psi_1_e" gsl_sf_psi_1_e :: Double -> Ptr () -> IO CInt |
73 | |||
63 | psi_1 :: Double -> Double | 74 | psi_1 :: Double -> Double |
64 | psi_1 = gsl_sf_psi_1 | 75 | psi_1 = gsl_sf_psi_1 |
65 | foreign import ccall "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double | 76 | foreign import ccall "gsl_sf_psi_1" gsl_sf_psi_1 :: Double -> Double |
77 | |||
66 | psi_n_e :: CInt -> Double -> (Double,Double) | 78 | psi_n_e :: CInt -> Double -> (Double,Double) |
67 | psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x | 79 | psi_n_e n x = createSFR "psi_n_e" $ gsl_sf_psi_n_e n x |
68 | foreign import ccall "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt | 80 | foreign import ccall "gsl_sf_psi_n_e" gsl_sf_psi_n_e :: CInt -> Double -> Ptr () -> IO CInt |
81 | |||
69 | psi_n :: CInt -> Double -> Double | 82 | psi_n :: CInt -> Double -> Double |
70 | psi_n = gsl_sf_psi_n | 83 | psi_n = gsl_sf_psi_n |
71 | foreign import ccall "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double | 84 | foreign import ccall "gsl_sf_psi_n" gsl_sf_psi_n :: CInt -> Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Synchrotron.hs b/lib/Numeric/GSL/Special/Synchrotron.hs index 6103a8a..48381e4 100644 --- a/lib/Numeric/GSL/Special/Synchrotron.hs +++ b/lib/Numeric/GSL/Special/Synchrotron.hs | |||
@@ -22,15 +22,19 @@ module Numeric.GSL.Special.Synchrotron( | |||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 23 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
25 | |||
25 | synchrotron_1_e :: Double -> (Double,Double) | 26 | synchrotron_1_e :: Double -> (Double,Double) |
26 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x | 27 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x |
27 | foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt | 28 | foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt |
29 | |||
28 | synchrotron_1 :: Double -> Double | 30 | synchrotron_1 :: Double -> Double |
29 | synchrotron_1 = gsl_sf_synchrotron_1 | 31 | synchrotron_1 = gsl_sf_synchrotron_1 |
30 | foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double | 32 | foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double |
33 | |||
31 | synchrotron_2_e :: Double -> (Double,Double) | 34 | synchrotron_2_e :: Double -> (Double,Double) |
32 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x | 35 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x |
33 | foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt |
37 | |||
34 | synchrotron_2 :: Double -> Double | 38 | synchrotron_2 :: Double -> Double |
35 | synchrotron_2 = gsl_sf_synchrotron_2 | 39 | synchrotron_2 = gsl_sf_synchrotron_2 |
36 | foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double | 40 | foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Transport.hs b/lib/Numeric/GSL/Special/Transport.hs index 3bdf1cf..e8076d0 100644 --- a/lib/Numeric/GSL/Special/Transport.hs +++ b/lib/Numeric/GSL/Special/Transport.hs | |||
@@ -26,27 +26,35 @@ module Numeric.GSL.Special.Transport( | |||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | |||
29 | transport_2_e :: Double -> (Double,Double) | 30 | transport_2_e :: Double -> (Double,Double) |
30 | transport_2_e x = createSFR "transport_2_e" $ gsl_sf_transport_2_e x | 31 | transport_2_e x = createSFR "transport_2_e" $ gsl_sf_transport_2_e x |
31 | foreign import ccall "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt | 32 | foreign import ccall "gsl_sf_transport_2_e" gsl_sf_transport_2_e :: Double -> Ptr () -> IO CInt |
33 | |||
32 | transport_2 :: Double -> Double | 34 | transport_2 :: Double -> Double |
33 | transport_2 = gsl_sf_transport_2 | 35 | transport_2 = gsl_sf_transport_2 |
34 | foreign import ccall "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double | 36 | foreign import ccall "gsl_sf_transport_2" gsl_sf_transport_2 :: Double -> Double |
37 | |||
35 | transport_3_e :: Double -> (Double,Double) | 38 | transport_3_e :: Double -> (Double,Double) |
36 | transport_3_e x = createSFR "transport_3_e" $ gsl_sf_transport_3_e x | 39 | transport_3_e x = createSFR "transport_3_e" $ gsl_sf_transport_3_e x |
37 | foreign import ccall "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt | 40 | foreign import ccall "gsl_sf_transport_3_e" gsl_sf_transport_3_e :: Double -> Ptr () -> IO CInt |
41 | |||
38 | transport_3 :: Double -> Double | 42 | transport_3 :: Double -> Double |
39 | transport_3 = gsl_sf_transport_3 | 43 | transport_3 = gsl_sf_transport_3 |
40 | foreign import ccall "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double | 44 | foreign import ccall "gsl_sf_transport_3" gsl_sf_transport_3 :: Double -> Double |
45 | |||
41 | transport_4_e :: Double -> (Double,Double) | 46 | transport_4_e :: Double -> (Double,Double) |
42 | transport_4_e x = createSFR "transport_4_e" $ gsl_sf_transport_4_e x | 47 | transport_4_e x = createSFR "transport_4_e" $ gsl_sf_transport_4_e x |
43 | foreign import ccall "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt | 48 | foreign import ccall "gsl_sf_transport_4_e" gsl_sf_transport_4_e :: Double -> Ptr () -> IO CInt |
49 | |||
44 | transport_4 :: Double -> Double | 50 | transport_4 :: Double -> Double |
45 | transport_4 = gsl_sf_transport_4 | 51 | transport_4 = gsl_sf_transport_4 |
46 | foreign import ccall "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double | 52 | foreign import ccall "gsl_sf_transport_4" gsl_sf_transport_4 :: Double -> Double |
53 | |||
47 | transport_5_e :: Double -> (Double,Double) | 54 | transport_5_e :: Double -> (Double,Double) |
48 | transport_5_e x = createSFR "transport_5_e" $ gsl_sf_transport_5_e x | 55 | transport_5_e x = createSFR "transport_5_e" $ gsl_sf_transport_5_e x |
49 | foreign import ccall "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt | 56 | foreign import ccall "gsl_sf_transport_5_e" gsl_sf_transport_5_e :: Double -> Ptr () -> IO CInt |
57 | |||
50 | transport_5 :: Double -> Double | 58 | transport_5 :: Double -> Double |
51 | transport_5 = gsl_sf_transport_5 | 59 | transport_5 = gsl_sf_transport_5 |
52 | foreign import ccall "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double | 60 | foreign import ccall "gsl_sf_transport_5" gsl_sf_transport_5 :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs index f670070..33e598c 100644 --- a/lib/Numeric/GSL/Special/Trig.hs +++ b/lib/Numeric/GSL/Special/Trig.hs | |||
@@ -36,78 +36,103 @@ module Numeric.GSL.Special.Trig( | |||
36 | import Foreign(Ptr) | 36 | import Foreign(Ptr) |
37 | import Foreign.C.Types(CInt) | 37 | import Foreign.C.Types(CInt) |
38 | import Numeric.GSL.Special.Internal | 38 | import Numeric.GSL.Special.Internal |
39 | |||
39 | sin_e :: Double -> (Double,Double) | 40 | sin_e :: Double -> (Double,Double) |
40 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x | 41 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x |
41 | foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt | 42 | foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt |
43 | |||
42 | sin :: Double -> Double | 44 | sin :: Double -> Double |
43 | sin = gsl_sf_sin | 45 | sin = gsl_sf_sin |
44 | foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double | 46 | foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double |
47 | |||
45 | cos_e :: Double -> (Double,Double) | 48 | cos_e :: Double -> (Double,Double) |
46 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x | 49 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x |
47 | foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt | 50 | foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt |
51 | |||
48 | cos :: Double -> Double | 52 | cos :: Double -> Double |
49 | cos = gsl_sf_cos | 53 | cos = gsl_sf_cos |
50 | foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double | 54 | foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double |
55 | |||
51 | hypot_e :: Double -> Double -> (Double,Double) | 56 | hypot_e :: Double -> Double -> (Double,Double) |
52 | hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y | 57 | hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y |
53 | foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt | 58 | foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt |
59 | |||
54 | hypot :: Double -> Double -> Double | 60 | hypot :: Double -> Double -> Double |
55 | hypot = gsl_sf_hypot | 61 | hypot = gsl_sf_hypot |
56 | foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double | 62 | foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double |
63 | |||
57 | complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) | 64 | complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) |
58 | complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr | 65 | complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr |
59 | foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 66 | foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
67 | |||
60 | complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) | 68 | complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) |
61 | complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr | 69 | complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr |
62 | foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 70 | foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
71 | |||
63 | complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) | 72 | complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) |
64 | complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr | 73 | complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr |
65 | foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 74 | foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
75 | |||
66 | sinc_e :: Double -> (Double,Double) | 76 | sinc_e :: Double -> (Double,Double) |
67 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x | 77 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x |
68 | foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt | 78 | foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt |
79 | |||
69 | sinc :: Double -> Double | 80 | sinc :: Double -> Double |
70 | sinc = gsl_sf_sinc | 81 | sinc = gsl_sf_sinc |
71 | foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double | 82 | foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double |
83 | |||
72 | lnsinh_e :: Double -> (Double,Double) | 84 | lnsinh_e :: Double -> (Double,Double) |
73 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x | 85 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x |
74 | foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt | 86 | foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt |
87 | |||
75 | lnsinh :: Double -> Double | 88 | lnsinh :: Double -> Double |
76 | lnsinh = gsl_sf_lnsinh | 89 | lnsinh = gsl_sf_lnsinh |
77 | foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double | 90 | foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double |
91 | |||
78 | lncosh_e :: Double -> (Double,Double) | 92 | lncosh_e :: Double -> (Double,Double) |
79 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x | 93 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x |
80 | foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt | 94 | foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt |
95 | |||
81 | lncosh :: Double -> Double | 96 | lncosh :: Double -> Double |
82 | lncosh = gsl_sf_lncosh | 97 | lncosh = gsl_sf_lncosh |
83 | foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double | 98 | foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double |
99 | |||
84 | polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) | 100 | polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) |
85 | polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x | 101 | polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x |
86 | foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 102 | foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
103 | |||
87 | rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) | 104 | rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) |
88 | rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r | 105 | rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r |
89 | foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 106 | foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
107 | |||
90 | sin_err_e :: Double -> Double -> (Double,Double) | 108 | sin_err_e :: Double -> Double -> (Double,Double) |
91 | sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx | 109 | sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx |
92 | foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt | 110 | foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt |
111 | |||
93 | cos_err_e :: Double -> Double -> (Double,Double) | 112 | cos_err_e :: Double -> Double -> (Double,Double) |
94 | cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx | 113 | cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx |
95 | foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt | 114 | foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt |
115 | |||
96 | angle_restrict_symm_e :: Ptr Double -> CInt | 116 | angle_restrict_symm_e :: Ptr Double -> CInt |
97 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e | 117 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e |
98 | foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt | 118 | foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt |
119 | |||
99 | angle_restrict_symm :: Double -> Double | 120 | angle_restrict_symm :: Double -> Double |
100 | angle_restrict_symm = gsl_sf_angle_restrict_symm | 121 | angle_restrict_symm = gsl_sf_angle_restrict_symm |
101 | foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double | 122 | foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double |
123 | |||
102 | angle_restrict_pos_e :: Ptr Double -> CInt | 124 | angle_restrict_pos_e :: Ptr Double -> CInt |
103 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e | 125 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e |
104 | foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt | 126 | foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt |
127 | |||
105 | angle_restrict_pos :: Double -> Double | 128 | angle_restrict_pos :: Double -> Double |
106 | angle_restrict_pos = gsl_sf_angle_restrict_pos | 129 | angle_restrict_pos = gsl_sf_angle_restrict_pos |
107 | foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double | 130 | foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double |
131 | |||
108 | angle_restrict_symm_err_e :: Double -> (Double,Double) | 132 | angle_restrict_symm_err_e :: Double -> (Double,Double) |
109 | angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta | 133 | angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta |
110 | foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt | 134 | foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt |
135 | |||
111 | angle_restrict_pos_err_e :: Double -> (Double,Double) | 136 | angle_restrict_pos_err_e :: Double -> (Double,Double) |
112 | angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta | 137 | angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta |
113 | foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt | 138 | foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt |
diff --git a/lib/Numeric/GSL/Special/Zeta.hs b/lib/Numeric/GSL/Special/Zeta.hs index 45c0f48..96b8170 100644 --- a/lib/Numeric/GSL/Special/Zeta.hs +++ b/lib/Numeric/GSL/Special/Zeta.hs | |||
@@ -32,45 +32,59 @@ module Numeric.GSL.Special.Zeta( | |||
32 | import Foreign(Ptr) | 32 | import Foreign(Ptr) |
33 | import Foreign.C.Types(CInt) | 33 | import Foreign.C.Types(CInt) |
34 | import Numeric.GSL.Special.Internal | 34 | import Numeric.GSL.Special.Internal |
35 | |||
35 | zeta_int_e :: CInt -> (Double,Double) | 36 | zeta_int_e :: CInt -> (Double,Double) |
36 | zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n | 37 | zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n |
37 | foreign import ccall "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt | 38 | foreign import ccall "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt |
39 | |||
38 | zeta_int :: CInt -> Double | 40 | zeta_int :: CInt -> Double |
39 | zeta_int = gsl_sf_zeta_int | 41 | zeta_int = gsl_sf_zeta_int |
40 | foreign import ccall "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double | 42 | foreign import ccall "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double |
43 | |||
41 | zeta_e :: Double -> (Double,Double) | 44 | zeta_e :: Double -> (Double,Double) |
42 | zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s | 45 | zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s |
43 | foreign import ccall "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt | 46 | foreign import ccall "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt |
47 | |||
44 | zeta :: Double -> Double | 48 | zeta :: Double -> Double |
45 | zeta = gsl_sf_zeta | 49 | zeta = gsl_sf_zeta |
46 | foreign import ccall "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double | 50 | foreign import ccall "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double |
51 | |||
47 | zetam1_e :: Double -> (Double,Double) | 52 | zetam1_e :: Double -> (Double,Double) |
48 | zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s | 53 | zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s |
49 | foreign import ccall "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt | 54 | foreign import ccall "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt |
55 | |||
50 | zetam1 :: Double -> Double | 56 | zetam1 :: Double -> Double |
51 | zetam1 = gsl_sf_zetam1 | 57 | zetam1 = gsl_sf_zetam1 |
52 | foreign import ccall "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double | 58 | foreign import ccall "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double |
59 | |||
53 | zetam1_int_e :: CInt -> (Double,Double) | 60 | zetam1_int_e :: CInt -> (Double,Double) |
54 | zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s | 61 | zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s |
55 | foreign import ccall "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt | 62 | foreign import ccall "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt |
63 | |||
56 | zetam1_int :: CInt -> Double | 64 | zetam1_int :: CInt -> Double |
57 | zetam1_int = gsl_sf_zetam1_int | 65 | zetam1_int = gsl_sf_zetam1_int |
58 | foreign import ccall "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double | 66 | foreign import ccall "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double |
67 | |||
59 | hzeta_e :: Double -> Double -> (Double,Double) | 68 | hzeta_e :: Double -> Double -> (Double,Double) |
60 | hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q | 69 | hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q |
61 | foreign import ccall "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt | 70 | foreign import ccall "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt |
71 | |||
62 | hzeta :: Double -> Double -> Double | 72 | hzeta :: Double -> Double -> Double |
63 | hzeta = gsl_sf_hzeta | 73 | hzeta = gsl_sf_hzeta |
64 | foreign import ccall "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double | 74 | foreign import ccall "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double |
75 | |||
65 | eta_int_e :: CInt -> (Double,Double) | 76 | eta_int_e :: CInt -> (Double,Double) |
66 | eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n | 77 | eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n |
67 | foreign import ccall "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt | 78 | foreign import ccall "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt |
79 | |||
68 | eta_int :: CInt -> Double | 80 | eta_int :: CInt -> Double |
69 | eta_int = gsl_sf_eta_int | 81 | eta_int = gsl_sf_eta_int |
70 | foreign import ccall "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double | 82 | foreign import ccall "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double |
83 | |||
71 | eta_e :: Double -> (Double,Double) | 84 | eta_e :: Double -> (Double,Double) |
72 | eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s | 85 | eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s |
73 | foreign import ccall "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt | 86 | foreign import ccall "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt |
87 | |||
74 | eta :: Double -> Double | 88 | eta :: Double -> Double |
75 | eta = gsl_sf_eta | 89 | eta = gsl_sf_eta |
76 | foreign import ccall "gsl_sf_eta" gsl_sf_eta :: Double -> Double | 90 | foreign import ccall "gsl_sf_eta" gsl_sf_eta :: Double -> Double |
diff --git a/lib/Numeric/GSL/Special/auto.hs b/lib/Numeric/GSL/Special/auto.hs index 6727399..011272c 100644 --- a/lib/Numeric/GSL/Special/auto.hs +++ b/lib/Numeric/GSL/Special/auto.hs | |||
@@ -198,10 +198,10 @@ showHt (Pointer t) = "Ptr "++ht t | |||
198 | showHa (t,a) = showHt t | 198 | showHa (t,a) = showHt t |
199 | 199 | ||
200 | showFull hc h@(Header t n args) = -- "\n-- | wrapper for "++showC h | 200 | showFull hc h@(Header t n args) = -- "\n-- | wrapper for "++showC h |
201 | -- ++"\n--\n-- "++google n ++"\n" | 201 | -- ++"\n--\n-- "++google n ++"\n"++ |
202 | -- ++ "\n" ++ | 202 | -- ++ "\n" ++ |
203 | boiler h ++ "\n" ++ | 203 | "\n" ++ boiler h ++ |
204 | showH hc h | 204 | "\n" ++ showH hc h |
205 | 205 | ||
206 | fixmd1 = rep ("Gsl_mode_t","Precision") | 206 | fixmd1 = rep ("Gsl_mode_t","Precision") |
207 | fixmd2 = rep ("mode"," (precCode mode)") | 207 | fixmd2 = rep ("mode"," (precCode mode)") |