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