diff options
author | Alberto Ruiz <aruiz@um.es> | 2007-10-01 15:04:16 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2007-10-01 15:04:16 +0000 |
commit | c99b8fd6e3f8a2fb365ec12baf838f864b118ece (patch) | |
tree | 11b5b8515861fe88d547253ae10c2182d5fadaf2 /lib/GSL/Special/Log.hs | |
parent | 768f08d4134a066d773d56a9c03ae688e3850352 (diff) |
LinearAlgebra and GSL moved to Numeric
Diffstat (limited to 'lib/GSL/Special/Log.hs')
-rw-r--r-- | lib/GSL/Special/Log.hs | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/lib/GSL/Special/Log.hs b/lib/GSL/Special/Log.hs deleted file mode 100644 index 0d62e99..0000000 --- a/lib/GSL/Special/Log.hs +++ /dev/null | |||
@@ -1,74 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Log | ||
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/Logarithm-and-Related-Functions.html> | ||
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | ||
16 | |||
17 | module GSL.Special.Log( | ||
18 | log_e | ||
19 | , GSL.Special.Log.log | ||
20 | , log_abs_e | ||
21 | , log_abs | ||
22 | , log_1plusx_e | ||
23 | , log_1plusx | ||
24 | , log_1plusx_mx_e | ||
25 | , log_1plusx_mx | ||
26 | ) where | ||
27 | |||
28 | import Foreign(Ptr) | ||
29 | import GSL.Special.Internal | ||
30 | |||
31 | -- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result); | ||
32 | log_e :: Double -> (Double,Double) | ||
33 | log_e x = createSFR "log_e" $ gsl_sf_log_e x | ||
34 | foreign import ccall "log.h gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr Double -> IO(Int) | ||
35 | |||
36 | -- | wrapper for double gsl_sf_log(double x); | ||
37 | log :: Double -> Double | ||
38 | log = gsl_sf_log | ||
39 | foreign import ccall "log.h gsl_sf_log" gsl_sf_log :: Double -> Double | ||
40 | |||
41 | -- | wrapper for int gsl_sf_log_abs_e(double x,gsl_sf_result* result); | ||
42 | log_abs_e :: Double -> (Double,Double) | ||
43 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x | ||
44 | foreign import ccall "log.h gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr Double -> IO(Int) | ||
45 | |||
46 | -- | wrapper for double gsl_sf_log_abs(double x); | ||
47 | log_abs :: Double -> Double | ||
48 | log_abs = gsl_sf_log_abs | ||
49 | foreign import ccall "log.h gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | ||
50 | |||
51 | -- | wrapper for int gsl_sf_complex_log_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* theta); | ||
52 | complex_log_e :: Double -> Double -> Ptr Double -> (Double,Double) | ||
53 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr | ||
54 | foreign import ccall "log.h gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) | ||
55 | |||
56 | -- | wrapper for int gsl_sf_log_1plusx_e(double x,gsl_sf_result* result); | ||
57 | log_1plusx_e :: Double -> (Double,Double) | ||
58 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x | ||
59 | foreign import ccall "log.h gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr Double -> IO(Int) | ||
60 | |||
61 | -- | wrapper for double gsl_sf_log_1plusx(double x); | ||
62 | log_1plusx :: Double -> Double | ||
63 | log_1plusx = gsl_sf_log_1plusx | ||
64 | foreign import ccall "log.h gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double | ||
65 | |||
66 | -- | wrapper for int gsl_sf_log_1plusx_mx_e(double x,gsl_sf_result* result); | ||
67 | log_1plusx_mx_e :: Double -> (Double,Double) | ||
68 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x | ||
69 | foreign import ccall "log.h gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr Double -> IO(Int) | ||
70 | |||
71 | -- | wrapper for double gsl_sf_log_1plusx_mx(double x); | ||
72 | log_1plusx_mx :: Double -> Double | ||
73 | log_1plusx_mx = gsl_sf_log_1plusx_mx | ||
74 | foreign import ccall "log.h gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double | ||