diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Zeta.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Zeta.hs | 133 |
1 files changed, 133 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Zeta.hs b/lib/Numeric/GSL/Special/Zeta.hs new file mode 100644 index 0000000..48c8ff1 --- /dev/null +++ b/lib/Numeric/GSL/Special/Zeta.hs | |||
@@ -0,0 +1,133 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : Numeric.GSL.Special.Zeta | ||
4 | Copyright : (c) Alberto Ruiz 2006 | ||
5 | License : GPL-style | ||
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | Stability : provisional | ||
8 | Portability : uses ffi | ||
9 | |||
10 | Wrappers for selected functions described at: | ||
11 | |||
12 | <http://www.google.com/search?q=gsl_sf_zeta.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | ||
16 | |||
17 | module Numeric.GSL.Special.Zeta( | ||
18 | zeta_int_e | ||
19 | , zeta_int | ||
20 | , zeta_e | ||
21 | , zeta | ||
22 | , zetam1_e | ||
23 | , zetam1 | ||
24 | , zetam1_int_e | ||
25 | , zetam1_int | ||
26 | , hzeta_e | ||
27 | , hzeta | ||
28 | , eta_int_e | ||
29 | , eta_int | ||
30 | , eta_e | ||
31 | , eta | ||
32 | ) where | ||
33 | |||
34 | import Foreign(Ptr) | ||
35 | import Numeric.GSL.Special.Internal | ||
36 | |||
37 | -- | wrapper for int gsl_sf_zeta_int_e(int n,gsl_sf_result* result); | ||
38 | -- | ||
39 | -- <http://www.google.com/search?q=gsl_sf_zeta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
40 | zeta_int_e :: Int -> (Double,Double) | ||
41 | zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n | ||
42 | foreign import ccall "zeta.h gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: Int -> Ptr Double -> IO(Int) | ||
43 | |||
44 | -- | wrapper for double gsl_sf_zeta_int(int n); | ||
45 | -- | ||
46 | -- <http://www.google.com/search?q=gsl_sf_zeta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
47 | zeta_int :: Int -> Double | ||
48 | zeta_int = gsl_sf_zeta_int | ||
49 | foreign import ccall "zeta.h gsl_sf_zeta_int" gsl_sf_zeta_int :: Int -> Double | ||
50 | |||
51 | -- | wrapper for int gsl_sf_zeta_e(double s,gsl_sf_result* result); | ||
52 | -- | ||
53 | -- <http://www.google.com/search?q=gsl_sf_zeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
54 | zeta_e :: Double -> (Double,Double) | ||
55 | zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s | ||
56 | foreign import ccall "zeta.h gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr Double -> IO(Int) | ||
57 | |||
58 | -- | wrapper for double gsl_sf_zeta(double s); | ||
59 | -- | ||
60 | -- <http://www.google.com/search?q=gsl_sf_zeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
61 | zeta :: Double -> Double | ||
62 | zeta = gsl_sf_zeta | ||
63 | foreign import ccall "zeta.h gsl_sf_zeta" gsl_sf_zeta :: Double -> Double | ||
64 | |||
65 | -- | wrapper for int gsl_sf_zetam1_e(double s,gsl_sf_result* result); | ||
66 | -- | ||
67 | -- <http://www.google.com/search?q=gsl_sf_zetam1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
68 | zetam1_e :: Double -> (Double,Double) | ||
69 | zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s | ||
70 | foreign import ccall "zeta.h gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr Double -> IO(Int) | ||
71 | |||
72 | -- | wrapper for double gsl_sf_zetam1(double s); | ||
73 | -- | ||
74 | -- <http://www.google.com/search?q=gsl_sf_zetam1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
75 | zetam1 :: Double -> Double | ||
76 | zetam1 = gsl_sf_zetam1 | ||
77 | foreign import ccall "zeta.h gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double | ||
78 | |||
79 | -- | wrapper for int gsl_sf_zetam1_int_e(int s,gsl_sf_result* result); | ||
80 | -- | ||
81 | -- <http://www.google.com/search?q=gsl_sf_zetam1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
82 | zetam1_int_e :: Int -> (Double,Double) | ||
83 | zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s | ||
84 | foreign import ccall "zeta.h gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: Int -> Ptr Double -> IO(Int) | ||
85 | |||
86 | -- | wrapper for double gsl_sf_zetam1_int(int s); | ||
87 | -- | ||
88 | -- <http://www.google.com/search?q=gsl_sf_zetam1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
89 | zetam1_int :: Int -> Double | ||
90 | zetam1_int = gsl_sf_zetam1_int | ||
91 | foreign import ccall "zeta.h gsl_sf_zetam1_int" gsl_sf_zetam1_int :: Int -> Double | ||
92 | |||
93 | -- | wrapper for int gsl_sf_hzeta_e(double s,double q,gsl_sf_result* result); | ||
94 | -- | ||
95 | -- <http://www.google.com/search?q=gsl_sf_hzeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
96 | hzeta_e :: Double -> Double -> (Double,Double) | ||
97 | hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q | ||
98 | foreign import ccall "zeta.h gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
99 | |||
100 | -- | wrapper for double gsl_sf_hzeta(double s,double q); | ||
101 | -- | ||
102 | -- <http://www.google.com/search?q=gsl_sf_hzeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
103 | hzeta :: Double -> Double -> Double | ||
104 | hzeta = gsl_sf_hzeta | ||
105 | foreign import ccall "zeta.h gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double | ||
106 | |||
107 | -- | wrapper for int gsl_sf_eta_int_e(int n,gsl_sf_result* result); | ||
108 | -- | ||
109 | -- <http://www.google.com/search?q=gsl_sf_eta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
110 | eta_int_e :: Int -> (Double,Double) | ||
111 | eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n | ||
112 | foreign import ccall "zeta.h gsl_sf_eta_int_e" gsl_sf_eta_int_e :: Int -> Ptr Double -> IO(Int) | ||
113 | |||
114 | -- | wrapper for double gsl_sf_eta_int(int n); | ||
115 | -- | ||
116 | -- <http://www.google.com/search?q=gsl_sf_eta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
117 | eta_int :: Int -> Double | ||
118 | eta_int = gsl_sf_eta_int | ||
119 | foreign import ccall "zeta.h gsl_sf_eta_int" gsl_sf_eta_int :: Int -> Double | ||
120 | |||
121 | -- | wrapper for int gsl_sf_eta_e(double s,gsl_sf_result* result); | ||
122 | -- | ||
123 | -- <http://www.google.com/search?q=gsl_sf_eta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
124 | eta_e :: Double -> (Double,Double) | ||
125 | eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s | ||
126 | foreign import ccall "zeta.h gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr Double -> IO(Int) | ||
127 | |||
128 | -- | wrapper for double gsl_sf_eta(double s); | ||
129 | -- | ||
130 | -- <http://www.google.com/search?q=gsl_sf_eta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
131 | eta :: Double -> Double | ||
132 | eta = gsl_sf_eta | ||
133 | foreign import ccall "zeta.h gsl_sf_eta" gsl_sf_eta :: Double -> Double | ||