diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-06-19 07:37:05 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-06-19 07:37:05 +0000 |
commit | a9722cf16fe322985c998ab290cf03213b539e49 (patch) | |
tree | fc06b55ff719a7908eae23748bacfe140ce5374f /lib/Numeric/GSL/Special/Airy.hs | |
parent | f589b9e673c3aef62834b3e2e88d96226bb7c24f (diff) |
minor changes
Diffstat (limited to 'lib/Numeric/GSL/Special/Airy.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Airy.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Airy.hs b/lib/Numeric/GSL/Special/Airy.hs index 0477039..2f20c6f 100644 --- a/lib/Numeric/GSL/Special/Airy.hs +++ b/lib/Numeric/GSL/Special/Airy.hs | |||
@@ -43,75 +43,99 @@ module Numeric.GSL.Special.Airy( | |||
43 | import Foreign(Ptr) | 43 | import Foreign(Ptr) |
44 | import Foreign.C.Types(CInt) | 44 | import Foreign.C.Types(CInt) |
45 | import Numeric.GSL.Special.Internal | 45 | import Numeric.GSL.Special.Internal |
46 | |||
46 | airy_Ai_e :: Double -> Precision -> (Double,Double) | 47 | airy_Ai_e :: Double -> Precision -> (Double,Double) |
47 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) | 48 | airy_Ai_e x mode = createSFR "airy_Ai_e" $ gsl_sf_airy_Ai_e x (precCode mode) |
48 | foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 49 | foreign import ccall "gsl_sf_airy_Ai_e" gsl_sf_airy_Ai_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
50 | |||
49 | airy_Ai :: Double -> Precision -> Double | 51 | airy_Ai :: Double -> Precision -> Double |
50 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) | 52 | airy_Ai x mode = gsl_sf_airy_Ai x (precCode mode) |
51 | foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double | 53 | foreign import ccall "gsl_sf_airy_Ai" gsl_sf_airy_Ai :: Double -> Gsl_mode_t -> Double |
54 | |||
52 | airy_Bi_e :: Double -> Precision -> (Double,Double) | 55 | airy_Bi_e :: Double -> Precision -> (Double,Double) |
53 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) | 56 | airy_Bi_e x mode = createSFR "airy_Bi_e" $ gsl_sf_airy_Bi_e x (precCode mode) |
54 | foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 57 | foreign import ccall "gsl_sf_airy_Bi_e" gsl_sf_airy_Bi_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
58 | |||
55 | airy_Bi :: Double -> Precision -> Double | 59 | airy_Bi :: Double -> Precision -> Double |
56 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) | 60 | airy_Bi x mode = gsl_sf_airy_Bi x (precCode mode) |
57 | foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double | 61 | foreign import ccall "gsl_sf_airy_Bi" gsl_sf_airy_Bi :: Double -> Gsl_mode_t -> Double |
62 | |||
58 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) | 63 | airy_Ai_scaled_e :: Double -> Precision -> (Double,Double) |
59 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) | 64 | airy_Ai_scaled_e x mode = createSFR "airy_Ai_scaled_e" $ gsl_sf_airy_Ai_scaled_e x (precCode mode) |
60 | foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_airy_Ai_scaled_e" gsl_sf_airy_Ai_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
66 | |||
61 | airy_Ai_scaled :: Double -> Precision -> Double | 67 | airy_Ai_scaled :: Double -> Precision -> Double |
62 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) | 68 | airy_Ai_scaled x mode = gsl_sf_airy_Ai_scaled x (precCode mode) |
63 | foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double | 69 | foreign import ccall "gsl_sf_airy_Ai_scaled" gsl_sf_airy_Ai_scaled :: Double -> Gsl_mode_t -> Double |
70 | |||
64 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) | 71 | airy_Bi_scaled_e :: Double -> Precision -> (Double,Double) |
65 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) | 72 | airy_Bi_scaled_e x mode = createSFR "airy_Bi_scaled_e" $ gsl_sf_airy_Bi_scaled_e x (precCode mode) |
66 | foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 73 | foreign import ccall "gsl_sf_airy_Bi_scaled_e" gsl_sf_airy_Bi_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
74 | |||
67 | airy_Bi_scaled :: Double -> Precision -> Double | 75 | airy_Bi_scaled :: Double -> Precision -> Double |
68 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) | 76 | airy_Bi_scaled x mode = gsl_sf_airy_Bi_scaled x (precCode mode) |
69 | foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double | 77 | foreign import ccall "gsl_sf_airy_Bi_scaled" gsl_sf_airy_Bi_scaled :: Double -> Gsl_mode_t -> Double |
78 | |||
70 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) | 79 | airy_Ai_deriv_e :: Double -> Precision -> (Double,Double) |
71 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) | 80 | airy_Ai_deriv_e x mode = createSFR "airy_Ai_deriv_e" $ gsl_sf_airy_Ai_deriv_e x (precCode mode) |
72 | foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 81 | foreign import ccall "gsl_sf_airy_Ai_deriv_e" gsl_sf_airy_Ai_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
82 | |||
73 | airy_Ai_deriv :: Double -> Precision -> Double | 83 | airy_Ai_deriv :: Double -> Precision -> Double |
74 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) | 84 | airy_Ai_deriv x mode = gsl_sf_airy_Ai_deriv x (precCode mode) |
75 | foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double | 85 | foreign import ccall "gsl_sf_airy_Ai_deriv" gsl_sf_airy_Ai_deriv :: Double -> Gsl_mode_t -> Double |
86 | |||
76 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) | 87 | airy_Bi_deriv_e :: Double -> Precision -> (Double,Double) |
77 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) | 88 | airy_Bi_deriv_e x mode = createSFR "airy_Bi_deriv_e" $ gsl_sf_airy_Bi_deriv_e x (precCode mode) |
78 | foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 89 | foreign import ccall "gsl_sf_airy_Bi_deriv_e" gsl_sf_airy_Bi_deriv_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
90 | |||
79 | airy_Bi_deriv :: Double -> Precision -> Double | 91 | airy_Bi_deriv :: Double -> Precision -> Double |
80 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) | 92 | airy_Bi_deriv x mode = gsl_sf_airy_Bi_deriv x (precCode mode) |
81 | foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double | 93 | foreign import ccall "gsl_sf_airy_Bi_deriv" gsl_sf_airy_Bi_deriv :: Double -> Gsl_mode_t -> Double |
94 | |||
82 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) | 95 | airy_Ai_deriv_scaled_e :: Double -> Precision -> (Double,Double) |
83 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) | 96 | airy_Ai_deriv_scaled_e x mode = createSFR "airy_Ai_deriv_scaled_e" $ gsl_sf_airy_Ai_deriv_scaled_e x (precCode mode) |
84 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 97 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled_e" gsl_sf_airy_Ai_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
98 | |||
85 | airy_Ai_deriv_scaled :: Double -> Precision -> Double | 99 | airy_Ai_deriv_scaled :: Double -> Precision -> Double |
86 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) | 100 | airy_Ai_deriv_scaled x mode = gsl_sf_airy_Ai_deriv_scaled x (precCode mode) |
87 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double | 101 | foreign import ccall "gsl_sf_airy_Ai_deriv_scaled" gsl_sf_airy_Ai_deriv_scaled :: Double -> Gsl_mode_t -> Double |
102 | |||
88 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) | 103 | airy_Bi_deriv_scaled_e :: Double -> Precision -> (Double,Double) |
89 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) | 104 | airy_Bi_deriv_scaled_e x mode = createSFR "airy_Bi_deriv_scaled_e" $ gsl_sf_airy_Bi_deriv_scaled_e x (precCode mode) |
90 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 105 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled_e" gsl_sf_airy_Bi_deriv_scaled_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
106 | |||
91 | airy_Bi_deriv_scaled :: Double -> Precision -> Double | 107 | airy_Bi_deriv_scaled :: Double -> Precision -> Double |
92 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) | 108 | airy_Bi_deriv_scaled x mode = gsl_sf_airy_Bi_deriv_scaled x (precCode mode) |
93 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double | 109 | foreign import ccall "gsl_sf_airy_Bi_deriv_scaled" gsl_sf_airy_Bi_deriv_scaled :: Double -> Gsl_mode_t -> Double |
110 | |||
94 | airy_zero_Ai_e :: CInt -> (Double,Double) | 111 | airy_zero_Ai_e :: CInt -> (Double,Double) |
95 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s | 112 | airy_zero_Ai_e s = createSFR "airy_zero_Ai_e" $ gsl_sf_airy_zero_Ai_e s |
96 | foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt | 113 | foreign import ccall "gsl_sf_airy_zero_Ai_e" gsl_sf_airy_zero_Ai_e :: CInt -> Ptr () -> IO CInt |
114 | |||
97 | airy_zero_Ai :: CInt -> Double | 115 | airy_zero_Ai :: CInt -> Double |
98 | airy_zero_Ai = gsl_sf_airy_zero_Ai | 116 | airy_zero_Ai = gsl_sf_airy_zero_Ai |
99 | foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double | 117 | foreign import ccall "gsl_sf_airy_zero_Ai" gsl_sf_airy_zero_Ai :: CInt -> Double |
118 | |||
100 | airy_zero_Bi_e :: CInt -> (Double,Double) | 119 | airy_zero_Bi_e :: CInt -> (Double,Double) |
101 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s | 120 | airy_zero_Bi_e s = createSFR "airy_zero_Bi_e" $ gsl_sf_airy_zero_Bi_e s |
102 | foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt | 121 | foreign import ccall "gsl_sf_airy_zero_Bi_e" gsl_sf_airy_zero_Bi_e :: CInt -> Ptr () -> IO CInt |
122 | |||
103 | airy_zero_Bi :: CInt -> Double | 123 | airy_zero_Bi :: CInt -> Double |
104 | airy_zero_Bi = gsl_sf_airy_zero_Bi | 124 | airy_zero_Bi = gsl_sf_airy_zero_Bi |
105 | foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double | 125 | foreign import ccall "gsl_sf_airy_zero_Bi" gsl_sf_airy_zero_Bi :: CInt -> Double |
126 | |||
106 | airy_zero_Ai_deriv_e :: CInt -> (Double,Double) | 127 | airy_zero_Ai_deriv_e :: CInt -> (Double,Double) |
107 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s | 128 | airy_zero_Ai_deriv_e s = createSFR "airy_zero_Ai_deriv_e" $ gsl_sf_airy_zero_Ai_deriv_e s |
108 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt | 129 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv_e" gsl_sf_airy_zero_Ai_deriv_e :: CInt -> Ptr () -> IO CInt |
130 | |||
109 | airy_zero_Ai_deriv :: CInt -> Double | 131 | airy_zero_Ai_deriv :: CInt -> Double |
110 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv | 132 | airy_zero_Ai_deriv = gsl_sf_airy_zero_Ai_deriv |
111 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double | 133 | foreign import ccall "gsl_sf_airy_zero_Ai_deriv" gsl_sf_airy_zero_Ai_deriv :: CInt -> Double |
134 | |||
112 | airy_zero_Bi_deriv_e :: CInt -> (Double,Double) | 135 | airy_zero_Bi_deriv_e :: CInt -> (Double,Double) |
113 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s | 136 | airy_zero_Bi_deriv_e s = createSFR "airy_zero_Bi_deriv_e" $ gsl_sf_airy_zero_Bi_deriv_e s |
114 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt | 137 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv_e" gsl_sf_airy_zero_Bi_deriv_e :: CInt -> Ptr () -> IO CInt |
138 | |||
115 | airy_zero_Bi_deriv :: CInt -> Double | 139 | airy_zero_Bi_deriv :: CInt -> Double |
116 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv | 140 | airy_zero_Bi_deriv = gsl_sf_airy_zero_Bi_deriv |
117 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double | 141 | foreign import ccall "gsl_sf_airy_zero_Bi_deriv" gsl_sf_airy_zero_Bi_deriv :: CInt -> Double |