diff options
author | Alberto Ruiz <aruiz@um.es> | 2007-07-29 15:43:21 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2007-07-29 15:43:21 +0000 |
commit | b9db4d25d87cd4ab0f493413db92fb41b7eacda9 (patch) | |
tree | a447fe6f7e16b3768e912064a033ce257040720e /lib/GSL/Special/Hyperg.hs | |
parent | b1b908c10ad7a393200651b4b23fc0b26efbc1b9 (diff) |
more automatic wrappers for simple special functions
Diffstat (limited to 'lib/GSL/Special/Hyperg.hs')
-rw-r--r-- | lib/GSL/Special/Hyperg.hs | 151 |
1 files changed, 151 insertions, 0 deletions
diff --git a/lib/GSL/Special/Hyperg.hs b/lib/GSL/Special/Hyperg.hs new file mode 100644 index 0000000..c84c32c --- /dev/null +++ b/lib/GSL/Special/Hyperg.hs | |||
@@ -0,0 +1,151 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Hyperg | ||
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 | |||
11 | |||
12 | -} | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module 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 GSL.Special.Internal | ||
42 | |||
43 | -- | wrapper for int gsl_sf_hyperg_0F1_e(double c,double x,gsl_sf_result* result); | ||
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 "hyperg.h gsl_sf_hyperg_0F1_e" gsl_sf_hyperg_0F1_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
47 | |||
48 | -- | wrapper for double gsl_sf_hyperg_0F1(double c,double x); | ||
49 | hyperg_0F1 :: Double -> Double -> Double | ||
50 | hyperg_0F1 = gsl_sf_hyperg_0F1 | ||
51 | foreign import ccall "hyperg.h gsl_sf_hyperg_0F1" gsl_sf_hyperg_0F1 :: Double -> Double -> Double | ||
52 | |||
53 | -- | wrapper for int gsl_sf_hyperg_1F1_int_e(int m,int n,double x,gsl_sf_result* result); | ||
54 | hyperg_1F1_int_e :: Int -> Int -> Double -> (Double,Double) | ||
55 | hyperg_1F1_int_e m n x = createSFR "hyperg_1F1_int_e" $ gsl_sf_hyperg_1F1_int_e m n x | ||
56 | foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_int_e" gsl_sf_hyperg_1F1_int_e :: Int -> Int -> Double -> Ptr Double -> IO(Int) | ||
57 | |||
58 | -- | wrapper for double gsl_sf_hyperg_1F1_int(int m,int n,double x); | ||
59 | hyperg_1F1_int :: Int -> Int -> Double -> Double | ||
60 | hyperg_1F1_int = gsl_sf_hyperg_1F1_int | ||
61 | foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_int" gsl_sf_hyperg_1F1_int :: Int -> Int -> Double -> Double | ||
62 | |||
63 | -- | wrapper for int gsl_sf_hyperg_1F1_e(double a,double b,double x,gsl_sf_result* result); | ||
64 | hyperg_1F1_e :: Double -> Double -> Double -> (Double,Double) | ||
65 | hyperg_1F1_e a b x = createSFR "hyperg_1F1_e" $ gsl_sf_hyperg_1F1_e a b x | ||
66 | foreign import ccall "hyperg.h gsl_sf_hyperg_1F1_e" gsl_sf_hyperg_1F1_e :: Double -> Double -> Double -> Ptr Double -> IO(Int) | ||
67 | |||
68 | -- | wrapper for double gsl_sf_hyperg_1F1(double a,double b,double x); | ||
69 | hyperg_1F1 :: Double -> Double -> Double -> Double | ||
70 | hyperg_1F1 = gsl_sf_hyperg_1F1 | ||
71 | foreign import ccall "hyperg.h gsl_sf_hyperg_1F1" gsl_sf_hyperg_1F1 :: Double -> Double -> Double -> Double | ||
72 | |||
73 | -- | wrapper for int gsl_sf_hyperg_U_int_e(int m,int n,double x,gsl_sf_result* result); | ||
74 | hyperg_U_int_e :: Int -> Int -> Double -> (Double,Double) | ||
75 | hyperg_U_int_e m n x = createSFR "hyperg_U_int_e" $ gsl_sf_hyperg_U_int_e m n x | ||
76 | foreign import ccall "hyperg.h gsl_sf_hyperg_U_int_e" gsl_sf_hyperg_U_int_e :: Int -> Int -> Double -> Ptr Double -> IO(Int) | ||
77 | |||
78 | -- | wrapper for double gsl_sf_hyperg_U_int(int m,int n,double x); | ||
79 | hyperg_U_int :: Int -> Int -> Double -> Double | ||
80 | hyperg_U_int = gsl_sf_hyperg_U_int | ||
81 | foreign import ccall "hyperg.h gsl_sf_hyperg_U_int" gsl_sf_hyperg_U_int :: Int -> Int -> Double -> Double | ||
82 | |||
83 | -- | wrapper for int gsl_sf_hyperg_U_int_e10_e(int m,int n,double x,gsl_sf_result_e10* result); | ||
84 | hyperg_U_int_e10_e :: Int -> Int -> Double -> (Double,Int,Double) | ||
85 | 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 | ||
86 | foreign import ccall "hyperg.h gsl_sf_hyperg_U_int_e10_e" gsl_sf_hyperg_U_int_e10_e :: Int -> Int -> Double -> Ptr () -> IO(Int) | ||
87 | |||
88 | -- | wrapper for int gsl_sf_hyperg_U_e(double a,double b,double x,gsl_sf_result* result); | ||
89 | hyperg_U_e :: Double -> Double -> Double -> (Double,Double) | ||
90 | hyperg_U_e a b x = createSFR "hyperg_U_e" $ gsl_sf_hyperg_U_e a b x | ||
91 | foreign import ccall "hyperg.h gsl_sf_hyperg_U_e" gsl_sf_hyperg_U_e :: Double -> Double -> Double -> Ptr Double -> IO(Int) | ||
92 | |||
93 | -- | wrapper for double gsl_sf_hyperg_U(double a,double b,double x); | ||
94 | hyperg_U :: Double -> Double -> Double -> Double | ||
95 | hyperg_U = gsl_sf_hyperg_U | ||
96 | foreign import ccall "hyperg.h gsl_sf_hyperg_U" gsl_sf_hyperg_U :: Double -> Double -> Double -> Double | ||
97 | |||
98 | -- | wrapper for int gsl_sf_hyperg_U_e10_e(double a,double b,double x,gsl_sf_result_e10* result); | ||
99 | hyperg_U_e10_e :: Double -> Double -> Double -> (Double,Int,Double) | ||
100 | hyperg_U_e10_e a b x = createSFR_E10 "hyperg_U_e10_e" $ gsl_sf_hyperg_U_e10_e a b x | ||
101 | foreign import ccall "hyperg.h gsl_sf_hyperg_U_e10_e" gsl_sf_hyperg_U_e10_e :: Double -> Double -> Double -> Ptr () -> IO(Int) | ||
102 | |||
103 | -- | wrapper for int gsl_sf_hyperg_2F1_e(double a,double b,double c,double x,gsl_sf_result* result); | ||
104 | hyperg_2F1_e :: Double -> Double -> Double -> Double -> (Double,Double) | ||
105 | hyperg_2F1_e a b c x = createSFR "hyperg_2F1_e" $ gsl_sf_hyperg_2F1_e a b c x | ||
106 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_e" gsl_sf_hyperg_2F1_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) | ||
107 | |||
108 | -- | wrapper for double gsl_sf_hyperg_2F1(double a,double b,double c,double x); | ||
109 | hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | ||
110 | hyperg_2F1 = gsl_sf_hyperg_2F1 | ||
111 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F1" gsl_sf_hyperg_2F1 :: Double -> Double -> Double -> Double -> Double | ||
112 | |||
113 | -- | wrapper for int gsl_sf_hyperg_2F1_conj_e(double aR,double aI,double c,double x,gsl_sf_result* result); | ||
114 | hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> (Double,Double) | ||
115 | hyperg_2F1_conj_e aR aI c x = createSFR "hyperg_2F1_conj_e" $ gsl_sf_hyperg_2F1_conj_e aR aI c x | ||
116 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_e" gsl_sf_hyperg_2F1_conj_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) | ||
117 | |||
118 | -- | wrapper for double gsl_sf_hyperg_2F1_conj(double aR,double aI,double c,double x); | ||
119 | hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | ||
120 | hyperg_2F1_conj = gsl_sf_hyperg_2F1_conj | ||
121 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj" gsl_sf_hyperg_2F1_conj :: Double -> Double -> Double -> Double -> Double | ||
122 | |||
123 | -- | wrapper for int gsl_sf_hyperg_2F1_renorm_e(double a,double b,double c,double x,gsl_sf_result* result); | ||
124 | hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | ||
125 | hyperg_2F1_renorm_e a b c x = createSFR "hyperg_2F1_renorm_e" $ gsl_sf_hyperg_2F1_renorm_e a b c x | ||
126 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_renorm_e" gsl_sf_hyperg_2F1_renorm_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) | ||
127 | |||
128 | -- | wrapper for double gsl_sf_hyperg_2F1_renorm(double a,double b,double c,double x); | ||
129 | hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | ||
130 | hyperg_2F1_renorm = gsl_sf_hyperg_2F1_renorm | ||
131 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_renorm" gsl_sf_hyperg_2F1_renorm :: Double -> Double -> Double -> Double -> Double | ||
132 | |||
133 | -- | wrapper for int gsl_sf_hyperg_2F1_conj_renorm_e(double aR,double aI,double c,double x,gsl_sf_result* result); | ||
134 | hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> (Double,Double) | ||
135 | 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 | ||
136 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_renorm_e" gsl_sf_hyperg_2F1_conj_renorm_e :: Double -> Double -> Double -> Double -> Ptr Double -> IO(Int) | ||
137 | |||
138 | -- | wrapper for double gsl_sf_hyperg_2F1_conj_renorm(double aR,double aI,double c,double x); | ||
139 | hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | ||
140 | hyperg_2F1_conj_renorm = gsl_sf_hyperg_2F1_conj_renorm | ||
141 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F1_conj_renorm" gsl_sf_hyperg_2F1_conj_renorm :: Double -> Double -> Double -> Double -> Double | ||
142 | |||
143 | -- | wrapper for int gsl_sf_hyperg_2F0_e(double a,double b,double x,gsl_sf_result* result); | ||
144 | hyperg_2F0_e :: Double -> Double -> Double -> (Double,Double) | ||
145 | hyperg_2F0_e a b x = createSFR "hyperg_2F0_e" $ gsl_sf_hyperg_2F0_e a b x | ||
146 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F0_e" gsl_sf_hyperg_2F0_e :: Double -> Double -> Double -> Ptr Double -> IO(Int) | ||
147 | |||
148 | -- | wrapper for double gsl_sf_hyperg_2F0(double a,double b,double x); | ||
149 | hyperg_2F0 :: Double -> Double -> Double -> Double | ||
150 | hyperg_2F0 = gsl_sf_hyperg_2F0 | ||
151 | foreign import ccall "hyperg.h gsl_sf_hyperg_2F0" gsl_sf_hyperg_2F0 :: Double -> Double -> Double -> Double | ||