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/Log.hs | |
parent | f589b9e673c3aef62834b3e2e88d96226bb7c24f (diff) |
minor changes
Diffstat (limited to 'lib/Numeric/GSL/Special/Log.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Log.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Log.hs b/lib/Numeric/GSL/Special/Log.hs index 665b74b..ad8adaf 100644 --- a/lib/Numeric/GSL/Special/Log.hs +++ b/lib/Numeric/GSL/Special/Log.hs | |||
@@ -26,30 +26,39 @@ module Numeric.GSL.Special.Log( | |||
26 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
27 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
28 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
29 | |||
29 | log_e :: Double -> (Double,Double) | 30 | log_e :: Double -> (Double,Double) |
30 | log_e x = createSFR "log_e" $ gsl_sf_log_e x | 31 | log_e x = createSFR "log_e" $ gsl_sf_log_e x |
31 | foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt | 32 | foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt |
33 | |||
32 | log :: Double -> Double | 34 | log :: Double -> Double |
33 | log = gsl_sf_log | 35 | log = gsl_sf_log |
34 | foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double | 36 | foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double |
37 | |||
35 | log_abs_e :: Double -> (Double,Double) | 38 | log_abs_e :: Double -> (Double,Double) |
36 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x | 39 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x |
37 | foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt | 40 | foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt |
41 | |||
38 | log_abs :: Double -> Double | 42 | log_abs :: Double -> Double |
39 | log_abs = gsl_sf_log_abs | 43 | log_abs = gsl_sf_log_abs |
40 | foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | 44 | foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double |
45 | |||
41 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) | 46 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) |
42 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr | 47 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr |
43 | foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 48 | foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
49 | |||
44 | log_1plusx_e :: Double -> (Double,Double) | 50 | log_1plusx_e :: Double -> (Double,Double) |
45 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x | 51 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x |
46 | foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt |
53 | |||
47 | log_1plusx :: Double -> Double | 54 | log_1plusx :: Double -> Double |
48 | log_1plusx = gsl_sf_log_1plusx | 55 | log_1plusx = gsl_sf_log_1plusx |
49 | foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double | 56 | foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double |
57 | |||
50 | log_1plusx_mx_e :: Double -> (Double,Double) | 58 | log_1plusx_mx_e :: Double -> (Double,Double) |
51 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x | 59 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x |
52 | foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt |
61 | |||
53 | log_1plusx_mx :: Double -> Double | 62 | log_1plusx_mx :: Double -> Double |
54 | log_1plusx_mx = gsl_sf_log_1plusx_mx | 63 | log_1plusx_mx = gsl_sf_log_1plusx_mx |
55 | foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double | 64 | foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double |