diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-05-16 17:40:44 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-05-16 17:40:44 +0000 |
commit | ead458786713d4b66933938b304886f629179613 (patch) | |
tree | 2d3a70b649d8d291ee55d4ec5c17807d05575287 /lib/Numeric/GSL/Special/Exp.hs | |
parent | 1412579714611555ae6263aed1bd8ffe71fa5961 (diff) |
headers removed in GSL Special functions
Diffstat (limited to 'lib/Numeric/GSL/Special/Exp.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Exp.hs | 44 |
1 files changed, 26 insertions, 18 deletions
diff --git a/lib/Numeric/GSL/Special/Exp.hs b/lib/Numeric/GSL/Special/Exp.hs index 52ec6df..9a407e7 100644 --- a/lib/Numeric/GSL/Special/Exp.hs +++ b/lib/Numeric/GSL/Special/Exp.hs | |||
@@ -29,6 +29,7 @@ module Numeric.GSL.Special.Exp( | |||
29 | , exprel_2 | 29 | , exprel_2 |
30 | , exprel_n_e | 30 | , exprel_n_e |
31 | , exprel_n | 31 | , exprel_n |
32 | , exprel_n_CF_e | ||
32 | , exp_err_e | 33 | , exp_err_e |
33 | , exp_err_e10_e | 34 | , exp_err_e10_e |
34 | , exp_mult_err_e | 35 | , exp_mult_err_e |
@@ -44,123 +45,130 @@ import Numeric.GSL.Special.Internal | |||
44 | -- <http://www.google.com/search?q=gsl_sf_exp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 45 | -- <http://www.google.com/search?q=gsl_sf_exp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
45 | exp_e :: Double -> (Double,Double) | 46 | exp_e :: Double -> (Double,Double) |
46 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x | 47 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x |
47 | foreign import ccall "exp.h gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt | 48 | foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt |
48 | 49 | ||
49 | -- | wrapper for double gsl_sf_exp(double x); | 50 | -- | wrapper for double gsl_sf_exp(double x); |
50 | -- | 51 | -- |
51 | -- <http://www.google.com/search?q=gsl_sf_exp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 52 | -- <http://www.google.com/search?q=gsl_sf_exp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
52 | exp :: Double -> Double | 53 | exp :: Double -> Double |
53 | exp = gsl_sf_exp | 54 | exp = gsl_sf_exp |
54 | foreign import ccall "exp.h gsl_sf_exp" gsl_sf_exp :: Double -> Double | 55 | foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double |
55 | 56 | ||
56 | -- | wrapper for int gsl_sf_exp_e10_e(double x,gsl_sf_result_e10* result); | 57 | -- | wrapper for int gsl_sf_exp_e10_e(double x,gsl_sf_result_e10* result); |
57 | -- | 58 | -- |
58 | -- <http://www.google.com/search?q=gsl_sf_exp_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 59 | -- <http://www.google.com/search?q=gsl_sf_exp_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
59 | exp_e10_e :: Double -> (Double,Int,Double) | 60 | exp_e10_e :: Double -> (Double,Int,Double) |
60 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x | 61 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x |
61 | foreign import ccall "exp.h gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt | 62 | foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt |
62 | 63 | ||
63 | -- | wrapper for int gsl_sf_exp_mult_e(double x,double y,gsl_sf_result* result); | 64 | -- | wrapper for int gsl_sf_exp_mult_e(double x,double y,gsl_sf_result* result); |
64 | -- | 65 | -- |
65 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 66 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
66 | exp_mult_e :: Double -> Double -> (Double,Double) | 67 | exp_mult_e :: Double -> Double -> (Double,Double) |
67 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y | 68 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y |
68 | foreign import ccall "exp.h gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt | 69 | foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt |
69 | 70 | ||
70 | -- | wrapper for double gsl_sf_exp_mult(double x,double y); | 71 | -- | wrapper for double gsl_sf_exp_mult(double x,double y); |
71 | -- | 72 | -- |
72 | -- <http://www.google.com/search?q=gsl_sf_exp_mult&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 73 | -- <http://www.google.com/search?q=gsl_sf_exp_mult&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
73 | exp_mult :: Double -> Double -> Double | 74 | exp_mult :: Double -> Double -> Double |
74 | exp_mult = gsl_sf_exp_mult | 75 | exp_mult = gsl_sf_exp_mult |
75 | foreign import ccall "exp.h gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double | 76 | foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double |
76 | 77 | ||
77 | -- | wrapper for int gsl_sf_exp_mult_e10_e(double x,double y,gsl_sf_result_e10* result); | 78 | -- | wrapper for int gsl_sf_exp_mult_e10_e(double x,double y,gsl_sf_result_e10* result); |
78 | -- | 79 | -- |
79 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 80 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
80 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) | 81 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) |
81 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y | 82 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y |
82 | foreign import ccall "exp.h gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt | 83 | foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt |
83 | 84 | ||
84 | -- | wrapper for int gsl_sf_expm1_e(double x,gsl_sf_result* result); | 85 | -- | wrapper for int gsl_sf_expm1_e(double x,gsl_sf_result* result); |
85 | -- | 86 | -- |
86 | -- <http://www.google.com/search?q=gsl_sf_expm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 87 | -- <http://www.google.com/search?q=gsl_sf_expm1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
87 | expm1_e :: Double -> (Double,Double) | 88 | expm1_e :: Double -> (Double,Double) |
88 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x | 89 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x |
89 | foreign import ccall "exp.h gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt | 90 | foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt |
90 | 91 | ||
91 | -- | wrapper for double gsl_sf_expm1(double x); | 92 | -- | wrapper for double gsl_sf_expm1(double x); |
92 | -- | 93 | -- |
93 | -- <http://www.google.com/search?q=gsl_sf_expm1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 94 | -- <http://www.google.com/search?q=gsl_sf_expm1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
94 | expm1 :: Double -> Double | 95 | expm1 :: Double -> Double |
95 | expm1 = gsl_sf_expm1 | 96 | expm1 = gsl_sf_expm1 |
96 | foreign import ccall "exp.h gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double | 97 | foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double |
97 | 98 | ||
98 | -- | wrapper for int gsl_sf_exprel_e(double x,gsl_sf_result* result); | 99 | -- | wrapper for int gsl_sf_exprel_e(double x,gsl_sf_result* result); |
99 | -- | 100 | -- |
100 | -- <http://www.google.com/search?q=gsl_sf_exprel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 101 | -- <http://www.google.com/search?q=gsl_sf_exprel_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
101 | exprel_e :: Double -> (Double,Double) | 102 | exprel_e :: Double -> (Double,Double) |
102 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x | 103 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x |
103 | foreign import ccall "exp.h gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt | 104 | foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt |
104 | 105 | ||
105 | -- | wrapper for double gsl_sf_exprel(double x); | 106 | -- | wrapper for double gsl_sf_exprel(double x); |
106 | -- | 107 | -- |
107 | -- <http://www.google.com/search?q=gsl_sf_exprel&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 108 | -- <http://www.google.com/search?q=gsl_sf_exprel&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
108 | exprel :: Double -> Double | 109 | exprel :: Double -> Double |
109 | exprel = gsl_sf_exprel | 110 | exprel = gsl_sf_exprel |
110 | foreign import ccall "exp.h gsl_sf_exprel" gsl_sf_exprel :: Double -> Double | 111 | foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double |
111 | 112 | ||
112 | -- | wrapper for int gsl_sf_exprel_2_e(double x,gsl_sf_result* result); | 113 | -- | wrapper for int gsl_sf_exprel_2_e(double x,gsl_sf_result* result); |
113 | -- | 114 | -- |
114 | -- <http://www.google.com/search?q=gsl_sf_exprel_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 115 | -- <http://www.google.com/search?q=gsl_sf_exprel_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
115 | exprel_2_e :: Double -> (Double,Double) | 116 | exprel_2_e :: Double -> (Double,Double) |
116 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x | 117 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x |
117 | foreign import ccall "exp.h gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt | 118 | foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt |
118 | 119 | ||
119 | -- | wrapper for double gsl_sf_exprel_2(double x); | 120 | -- | wrapper for double gsl_sf_exprel_2(double x); |
120 | -- | 121 | -- |
121 | -- <http://www.google.com/search?q=gsl_sf_exprel_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 122 | -- <http://www.google.com/search?q=gsl_sf_exprel_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
122 | exprel_2 :: Double -> Double | 123 | exprel_2 :: Double -> Double |
123 | exprel_2 = gsl_sf_exprel_2 | 124 | exprel_2 = gsl_sf_exprel_2 |
124 | foreign import ccall "exp.h gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double | 125 | foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double |
125 | 126 | ||
126 | -- | wrapper for int gsl_sf_exprel_n_e(int n,double x,gsl_sf_result* result); | 127 | -- | wrapper for int gsl_sf_exprel_n_e(int n,double x,gsl_sf_result* result); |
127 | -- | 128 | -- |
128 | -- <http://www.google.com/search?q=gsl_sf_exprel_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 129 | -- <http://www.google.com/search?q=gsl_sf_exprel_n_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
129 | exprel_n_e :: CInt -> Double -> (Double,Double) | 130 | exprel_n_e :: CInt -> Double -> (Double,Double) |
130 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x | 131 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x |
131 | foreign import ccall "exp.h gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt | 132 | foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt |
132 | 133 | ||
133 | -- | wrapper for double gsl_sf_exprel_n(int n,double x); | 134 | -- | wrapper for double gsl_sf_exprel_n(int n,double x); |
134 | -- | 135 | -- |
135 | -- <http://www.google.com/search?q=gsl_sf_exprel_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 136 | -- <http://www.google.com/search?q=gsl_sf_exprel_n&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
136 | exprel_n :: CInt -> Double -> Double | 137 | exprel_n :: CInt -> Double -> Double |
137 | exprel_n = gsl_sf_exprel_n | 138 | exprel_n = gsl_sf_exprel_n |
138 | foreign import ccall "exp.h gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double | 139 | foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double |
140 | |||
141 | -- | wrapper for int gsl_sf_exprel_n_CF_e(double n,double x,gsl_sf_result* result); | ||
142 | -- | ||
143 | -- <http://www.google.com/search?q=gsl_sf_exprel_n_CF_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
144 | exprel_n_CF_e :: Double -> Double -> (Double,Double) | ||
145 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x | ||
146 | foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt | ||
139 | 147 | ||
140 | -- | wrapper for int gsl_sf_exp_err_e(double x,double dx,gsl_sf_result* result); | 148 | -- | wrapper for int gsl_sf_exp_err_e(double x,double dx,gsl_sf_result* result); |
141 | -- | 149 | -- |
142 | -- <http://www.google.com/search?q=gsl_sf_exp_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 150 | -- <http://www.google.com/search?q=gsl_sf_exp_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
143 | exp_err_e :: Double -> Double -> (Double,Double) | 151 | exp_err_e :: Double -> Double -> (Double,Double) |
144 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx | 152 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx |
145 | foreign import ccall "exp.h gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt | 153 | foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt |
146 | 154 | ||
147 | -- | wrapper for int gsl_sf_exp_err_e10_e(double x,double dx,gsl_sf_result_e10* result); | 155 | -- | wrapper for int gsl_sf_exp_err_e10_e(double x,double dx,gsl_sf_result_e10* result); |
148 | -- | 156 | -- |
149 | -- <http://www.google.com/search?q=gsl_sf_exp_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 157 | -- <http://www.google.com/search?q=gsl_sf_exp_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
150 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) | 158 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) |
151 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx | 159 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx |
152 | foreign import ccall "exp.h gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt | 160 | foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt |
153 | 161 | ||
154 | -- | wrapper for int gsl_sf_exp_mult_err_e(double x,double dx,double y,double dy,gsl_sf_result* result); | 162 | -- | wrapper for int gsl_sf_exp_mult_err_e(double x,double dx,double y,double dy,gsl_sf_result* result); |
155 | -- | 163 | -- |
156 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 164 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
157 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) | 165 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) |
158 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy | 166 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy |
159 | foreign import ccall "exp.h gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 167 | foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
160 | 168 | ||
161 | -- | wrapper for int gsl_sf_exp_mult_err_e10_e(double x,double dx,double y,double dy,gsl_sf_result_e10* result); | 169 | -- | wrapper for int gsl_sf_exp_mult_err_e10_e(double x,double dx,double y,double dy,gsl_sf_result_e10* result); |
162 | -- | 170 | -- |
163 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 171 | -- <http://www.google.com/search?q=gsl_sf_exp_mult_err_e10_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
164 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) | 172 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) |
165 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy | 173 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy |
166 | foreign import ccall "exp.h gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 174 | foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |