diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-02-24 13:23:42 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-02-24 13:23:42 +0000 |
commit | 54bcc1fc1e0f9676cb10f627f412eeeea34b5d2c (patch) | |
tree | 3983a0046ce08a2390c5a495aae60fd419c58986 /lib/Numeric/GSL/Special/Hyperg.hs | |
parent | aae45de54aca92c5f0f013e46c6d6f65508d76f5 (diff) |
created package hmatrix-special
Diffstat (limited to 'lib/Numeric/GSL/Special/Hyperg.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Hyperg.hs | 130 |
1 files changed, 0 insertions, 130 deletions
diff --git a/lib/Numeric/GSL/Special/Hyperg.hs b/lib/Numeric/GSL/Special/Hyperg.hs deleted file mode 100644 index b5425f1..0000000 --- a/lib/Numeric/GSL/Special/Hyperg.hs +++ /dev/null | |||
@@ -1,130 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | -- | | ||
3 | -- Module : Numeric.GSL.Special.Hyperg | ||
4 | -- Copyright : (c) Alberto Ruiz 2006 | ||
5 | -- License : GPL | ||
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_hyperg.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module Numeric.GSL.Special.Hyperg( | ||
16 | hyperg_0F1_e | ||
17 | , hyperg_0F1 | ||
18 | , hyperg_1F1_int_e | ||
19 | , hyperg_1F1_int | ||
20 | , hyperg_1F1_e | ||
21 | , hyperg_1F1 | ||
22 | , hyperg_U_int_e | ||
23 | , hyperg_U_int | ||
24 | , hyperg_U_int_e10_e | ||
25 | , hyperg_U_e | ||
26 | , hyperg_U | ||
27 | , hyperg_U_e10_e | ||
28 | , hyperg_2F1_e | ||
29 | , hyperg_2F1 | ||
30 | , hyperg_2F1_conj_e | ||
31 | , hyperg_2F1_conj | ||
32 | , hyperg_2F1_renorm_e | ||
33 | , hyperg_2F1_renorm | ||
34 | , hyperg_2F1_conj_renorm_e | ||
35 | , hyperg_2F1_conj_renorm | ||
36 | , hyperg_2F0_e | ||
37 | , hyperg_2F0 | ||
38 | ) where | ||
39 | |||
40 | import Foreign(Ptr) | ||
41 | import Foreign.C.Types(CInt) | ||
42 | import Numeric.GSL.Special.Internal | ||
43 | |||
44 | hyperg_0F1_e :: Double -> Double -> (Double,Double) | ||
45 | hyperg_0F1_e c x = createSFR "hyperg_0F1_e" $ gsl_sf_hyperg_0F1_e c x | ||
46 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr () -> IO CInt | ||
47 | |||
48 | hyperg_0F1 :: Double -> Double -> Double | ||
49 | hyperg_0F1 = gsl_sf_hyperg_0F1 | ||
50 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double | ||
51 | |||
52 | hyperg_1F1_int_e :: CInt -> CInt -> Double -> (Double,Double) | ||
53 | hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x | ||
54 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | ||
55 | |||
56 | hyperg_1F1_int :: CInt -> CInt -> Double -> Double | ||
57 | hyperg_1F1_int = gsl_sf_hyperg_1F1_int | ||
58 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: CInt -> CInt -> Double -> Double | ||
59 | |||
60 | hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) | ||
61 | hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x | ||
62 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr () -> IO CInt | ||
63 | |||
64 | hyperg_1F1 :: Double -> Double -> Double -> Double | ||
65 | hyperg_1F1 = gsl_sf_hyperg_1F1 | ||
66 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double | ||
67 | |||
68 | hyperg_U_int_e :: CInt -> CInt -> Double -> (Double,Double) | ||
69 | hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x | ||
70 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | ||
71 | |||
72 | hyperg_U_int :: CInt -> CInt -> Double -> Double | ||
73 | hyperg_U_int = gsl_sf_hyperg_U_int | ||
74 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: CInt -> CInt -> Double -> Double | ||
75 | |||
76 | hyperg_U_int_e10_e :: CInt -> CInt -> Double -> (Double,Int,Double) | ||
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 | ||
78 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: CInt -> CInt -> Double -> Ptr () -> IO CInt | ||
79 | |||
80 | hyperg_U_e :: Double -> Double -> Double -> (Double,Double) | ||
81 | hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x | ||
82 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr () -> IO CInt | ||
83 | |||
84 | hyperg_U :: Double -> Double -> Double -> Double | ||
85 | hyperg_U = gsl_sf_hyperg_U | ||
86 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double | ||
87 | |||
88 | hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) | ||
89 | hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x | ||
90 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO CInt | ||
91 | |||
92 | hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) | ||
93 | hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x | ||
94 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | ||
95 | |||
96 | hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | ||
97 | hyperg_2F1 = gsl_sf_hyperg_2F1 | ||
98 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | ||
99 | |||
100 | hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) | ||
101 | hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x | ||
102 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | ||
103 | |||
104 | hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | ||
105 | hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj | ||
106 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | ||
107 | |||
108 | hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | ||
109 | hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x | ||
110 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | ||
111 | |||
112 | hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | ||
113 | hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm | ||
114 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | ||
115 | |||
116 | hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | ||
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 | ||
118 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | ||
119 | |||
120 | hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | ||
121 | hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm | ||
122 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | ||
123 | |||
124 | hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) | ||
125 | hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x | ||
126 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr () -> IO CInt | ||
127 | |||
128 | hyperg_2F0 :: Double -> Double -> Double -> Double | ||
129 | hyperg_2F0 = gsl_sf_hyperg_2F0 | ||
130 | foreign import ccall SAFE_CHEAP "gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double | ||