diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Zeta.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Zeta.hs | 14 |
1 files changed, 14 insertions, 0 deletions
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 |