diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Log.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Log.hs | 33 |
1 files changed, 26 insertions, 7 deletions
diff --git a/lib/Numeric/GSL/Special/Log.hs b/lib/Numeric/GSL/Special/Log.hs index e9c345b..fabbe76 100644 --- a/lib/Numeric/GSL/Special/Log.hs +++ b/lib/Numeric/GSL/Special/Log.hs | |||
@@ -9,7 +9,7 @@ Portability : uses ffi | |||
9 | 9 | ||
10 | Wrappers for selected functions described at: | 10 | Wrappers for selected functions described at: |
11 | 11 | ||
12 | <http://www.gnu.org/software/gsl/manual/html_node/Logarithm-and-Related-Functions.html> | 12 | <http://www.google.com/search?q=gsl_sf_log.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | 13 | ||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
@@ -26,49 +26,68 @@ module Numeric.GSL.Special.Log( | |||
26 | ) where | 26 | ) where |
27 | 27 | ||
28 | import Foreign(Ptr) | 28 | import Foreign(Ptr) |
29 | import Foreign.C.Types(CInt) | ||
29 | import Numeric.GSL.Special.Internal | 30 | import Numeric.GSL.Special.Internal |
30 | 31 | ||
31 | -- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result); | 32 | -- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result); |
33 | -- | ||
34 | -- <http://www.google.com/search?q=gsl_sf_log_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
32 | log_e :: Double -> (Double,Double) | 35 | log_e :: Double -> (Double,Double) |
33 | log_e x = createSFR "log_e" $ gsl_sf_log_e x | 36 | 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) | 37 | foreign import ccall "log.h gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt |
35 | 38 | ||
36 | -- | wrapper for double gsl_sf_log(double x); | 39 | -- | wrapper for double gsl_sf_log(double x); |
40 | -- | ||
41 | -- <http://www.google.com/search?q=gsl_sf_log&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
37 | log :: Double -> Double | 42 | log :: Double -> Double |
38 | log = gsl_sf_log | 43 | log = gsl_sf_log |
39 | foreign import ccall "log.h gsl_sf_log" gsl_sf_log :: Double -> Double | 44 | foreign import ccall "log.h gsl_sf_log" gsl_sf_log :: Double -> Double |
40 | 45 | ||
41 | -- | wrapper for int gsl_sf_log_abs_e(double x,gsl_sf_result* result); | 46 | -- | wrapper for int gsl_sf_log_abs_e(double x,gsl_sf_result* result); |
47 | -- | ||
48 | -- <http://www.google.com/search?q=gsl_sf_log_abs_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
42 | log_abs_e :: Double -> (Double,Double) | 49 | log_abs_e :: Double -> (Double,Double) |
43 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x | 50 | 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) | 51 | foreign import ccall "log.h gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt |
45 | 52 | ||
46 | -- | wrapper for double gsl_sf_log_abs(double x); | 53 | -- | wrapper for double gsl_sf_log_abs(double x); |
54 | -- | ||
55 | -- <http://www.google.com/search?q=gsl_sf_log_abs&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
47 | log_abs :: Double -> Double | 56 | log_abs :: Double -> Double |
48 | log_abs = gsl_sf_log_abs | 57 | log_abs = gsl_sf_log_abs |
49 | foreign import ccall "log.h gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | 58 | foreign import ccall "log.h gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double |
50 | 59 | ||
51 | -- | wrapper for int gsl_sf_complex_log_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* theta); | 60 | -- | 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) | 61 | -- |
62 | -- <http://www.google.com/search?q=gsl_sf_complex_log_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
63 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) | ||
53 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr | 64 | 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) | 65 | foreign import ccall "log.h gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
55 | 66 | ||
56 | -- | wrapper for int gsl_sf_log_1plusx_e(double x,gsl_sf_result* result); | 67 | -- | wrapper for int gsl_sf_log_1plusx_e(double x,gsl_sf_result* result); |
68 | -- | ||
69 | -- <http://www.google.com/search?q=gsl_sf_log_1plusx_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
57 | log_1plusx_e :: Double -> (Double,Double) | 70 | log_1plusx_e :: Double -> (Double,Double) |
58 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x | 71 | 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) | 72 | foreign import ccall "log.h gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt |
60 | 73 | ||
61 | -- | wrapper for double gsl_sf_log_1plusx(double x); | 74 | -- | wrapper for double gsl_sf_log_1plusx(double x); |
75 | -- | ||
76 | -- <http://www.google.com/search?q=gsl_sf_log_1plusx&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
62 | log_1plusx :: Double -> Double | 77 | log_1plusx :: Double -> Double |
63 | log_1plusx = gsl_sf_log_1plusx | 78 | log_1plusx = gsl_sf_log_1plusx |
64 | foreign import ccall "log.h gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double | 79 | foreign import ccall "log.h gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double |
65 | 80 | ||
66 | -- | wrapper for int gsl_sf_log_1plusx_mx_e(double x,gsl_sf_result* result); | 81 | -- | wrapper for int gsl_sf_log_1plusx_mx_e(double x,gsl_sf_result* result); |
82 | -- | ||
83 | -- <http://www.google.com/search?q=gsl_sf_log_1plusx_mx_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | log_1plusx_mx_e :: Double -> (Double,Double) | 84 | 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 | 85 | 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) | 86 | foreign import ccall "log.h gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt |
70 | 87 | ||
71 | -- | wrapper for double gsl_sf_log_1plusx_mx(double x); | 88 | -- | wrapper for double gsl_sf_log_1plusx_mx(double x); |
89 | -- | ||
90 | -- <http://www.google.com/search?q=gsl_sf_log_1plusx_mx&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
72 | log_1plusx_mx :: Double -> Double | 91 | log_1plusx_mx :: Double -> Double |
73 | log_1plusx_mx = gsl_sf_log_1plusx_mx | 92 | 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 | 93 | foreign import ccall "log.h gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double |