diff options
Diffstat (limited to 'lib/GSL/Special/Airy.hs')
-rw-r--r-- | lib/GSL/Special/Airy.hs | 166 |
1 files changed, 0 insertions, 166 deletions
diff --git a/lib/GSL/Special/Airy.hs b/lib/GSL/Special/Airy.hs deleted file mode 100644 index 872f7c5..0000000 --- a/lib/GSL/Special/Airy.hs +++ /dev/null | |||
@@ -1,166 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Airy | ||
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.gnu.org/software/gsl/manual/html_node/Airy-Functions-and-Derivatives.html> | ||
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | ||
16 | |||
17 | module GSL.Special.Airy( | ||
18 | Precision (..) | ||
19 | , airy_Ai_e | ||
20 | , airy_Ai | ||
21 | , airy_Bi_e | ||
22 | , airy_Bi | ||
23 | , airy_Ai_scaled_e | ||
24 | , airy_Ai_scaled | ||
25 | , airy_Bi_scaled_e | ||
26 | , airy_Bi_scaled | ||
27 | , airy_Ai_deriv_e | ||
28 | , airy_Ai_deriv | ||
29 | , airy_Bi_deriv_e | ||
30 | , airy_Bi_deriv | ||
31 | , airy_Ai_deriv_scaled_e | ||
32 | , airy_Ai_deriv_scaled | ||
33 | , airy_Bi_deriv_scaled_e | ||
34 | , airy_Bi_deriv_scaled | ||
35 | , airy_zero_Ai_e | ||
36 | , airy_zero_Ai | ||
37 | , airy_zero_Bi_e | ||
38 | , airy_zero_Bi | ||
39 | , airy_zero_Ai_deriv_e | ||
40 | , airy_zero_Ai_deriv | ||
41 | , airy_zero_Bi_deriv_e | ||
42 | , airy_zero_Bi_deriv | ||
43 | ) where | ||
44 | |||
45 | import Foreign(Ptr) | ||
46 | import GSL.Special.Internal | ||
47 | |||
48 | -- | wrapper for int gsl_sf_airy_Ai_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
49 | airy_Ai_e :: Double -> Precision -> (Double,Double) | ||
50 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) | ||
51 | foreign import ccall "airy.h gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
52 | |||
53 | -- | wrapper for double gsl_sf_airy_Ai(double x,gsl_mode_t mode); | ||
54 | airy_Ai :: Double -> Precision -> Double | ||
55 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) | ||
56 | foreign import ccall "airy.h gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double | ||
57 | |||
58 | -- | wrapper for int gsl_sf_airy_Bi_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
59 | airy_Bi_e :: Double -> Precision -> (Double,Double) | ||
60 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) | ||
61 | foreign import ccall "airy.h gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
62 | |||
63 | -- | wrapper for double gsl_sf_airy_Bi(double x,gsl_mode_t mode); | ||
64 | airy_Bi :: Double -> Precision -> Double | ||
65 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) | ||
66 | foreign import ccall "airy.h gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double | ||
67 | |||
68 | -- | wrapper for int gsl_sf_airy_Ai_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
69 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) | ||
70 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) | ||
71 | foreign import ccall "airy.h gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
72 | |||
73 | -- | wrapper for double gsl_sf_airy_Ai_scaled(double x,gsl_mode_t mode); | ||
74 | airy_Ai_scaled :: Double -> Precision -> Double | ||
75 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) | ||
76 | foreign import ccall "airy.h gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double | ||
77 | |||
78 | -- | wrapper for int gsl_sf_airy_Bi_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
79 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) | ||
80 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) | ||
81 | foreign import ccall "airy.h gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
82 | |||
83 | -- | wrapper for double gsl_sf_airy_Bi_scaled(double x,gsl_mode_t mode); | ||
84 | airy_Bi_scaled :: Double -> Precision -> Double | ||
85 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) | ||
86 | foreign import ccall "airy.h gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double | ||
87 | |||
88 | -- | wrapper for int gsl_sf_airy_Ai_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
89 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) | ||
90 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) | ||
91 | foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
92 | |||
93 | -- | wrapper for double gsl_sf_airy_Ai_deriv(double x,gsl_mode_t mode); | ||
94 | airy_Ai_deriv :: Double -> Precision -> Double | ||
95 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) | ||
96 | foreign import ccall "airy.h gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double | ||
97 | |||
98 | -- | wrapper for int gsl_sf_airy_Bi_deriv_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
99 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) | ||
100 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) | ||
101 | foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
102 | |||
103 | -- | wrapper for double gsl_sf_airy_Bi_deriv(double x,gsl_mode_t mode); | ||
104 | airy_Bi_deriv :: Double -> Precision -> Double | ||
105 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) | ||
106 | foreign import ccall "airy.h gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double | ||
107 | |||
108 | -- | wrapper for int gsl_sf_airy_Ai_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
109 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) | ||
110 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) | ||
111 | foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
112 | |||
113 | -- | wrapper for double gsl_sf_airy_Ai_deriv_scaled(double x,gsl_mode_t mode); | ||
114 | airy_Ai_deriv_scaled :: Double -> Precision -> Double | ||
115 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) | ||
116 | foreign import ccall "airy.h gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double | ||
117 | |||
118 | -- | wrapper for int gsl_sf_airy_Bi_deriv_scaled_e(double x,gsl_mode_t mode,gsl_sf_result* result); | ||
119 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) | ||
120 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) | ||
121 | foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr Double -> IO(Int) | ||
122 | |||
123 | -- | wrapper for double gsl_sf_airy_Bi_deriv_scaled(double x,gsl_mode_t mode); | ||
124 | airy_Bi_deriv_scaled :: Double -> Precision -> Double | ||
125 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) | ||
126 | foreign import ccall "airy.h gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double | ||
127 | |||
128 | -- | wrapper for int gsl_sf_airy_zero_Ai_e(int s,gsl_sf_result* result); | ||
129 | airy_zero_Ai_e :: Int -> (Double,Double) | ||
130 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s | ||
131 | foreign import ccall "airy.h gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: Int -> Ptr Double -> IO(Int) | ||
132 | |||
133 | -- | wrapper for double gsl_sf_airy_zero_Ai(int s); | ||
134 | airy_zero_Ai :: Int -> Double | ||
135 | airy_zero_Ai = gsl_sf_airy_zero_Ai | ||
136 | foreign import ccall "airy.h gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: Int -> Double | ||
137 | |||
138 | -- | wrapper for int gsl_sf_airy_zero_Bi_e(int s,gsl_sf_result* result); | ||
139 | airy_zero_Bi_e :: Int -> (Double,Double) | ||
140 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s | ||
141 | foreign import ccall "airy.h gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: Int -> Ptr Double -> IO(Int) | ||
142 | |||
143 | -- | wrapper for double gsl_sf_airy_zero_Bi(int s); | ||
144 | airy_zero_Bi :: Int -> Double | ||
145 | airy_zero_Bi = gsl_sf_airy_zero_Bi | ||
146 | foreign import ccall "airy.h gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: Int -> Double | ||
147 | |||
148 | -- | wrapper for int gsl_sf_airy_zero_Ai_deriv_e(int s,gsl_sf_result* result); | ||
149 | airy_zero_Ai_deriv_e :: Int -> (Double,Double) | ||
150 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s | ||
151 | foreign import ccall "airy.h gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: Int -> Ptr Double -> IO(Int) | ||
152 | |||
153 | -- | wrapper for double gsl_sf_airy_zero_Ai_deriv(int s); | ||
154 | airy_zero_Ai_deriv :: Int -> Double | ||
155 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv | ||
156 | foreign import ccall "airy.h gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: Int -> Double | ||
157 | |||
158 | -- | wrapper for int gsl_sf_airy_zero_Bi_deriv_e(int s,gsl_sf_result* result); | ||
159 | airy_zero_Bi_deriv_e :: Int -> (Double,Double) | ||
160 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s | ||
161 | foreign import ccall "airy.h gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: Int -> Ptr Double -> IO(Int) | ||
162 | |||
163 | -- | wrapper for double gsl_sf_airy_zero_Bi_deriv(int s); | ||
164 | airy_zero_Bi_deriv :: Int -> Double | ||
165 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv | ||
166 | foreign import ccall "airy.h gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: Int -> Double | ||