summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Log.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2009-06-19 07:37:05 +0000
committerAlberto Ruiz <aruiz@um.es>2009-06-19 07:37:05 +0000
commita9722cf16fe322985c998ab290cf03213b539e49 (patch)
treefc06b55ff719a7908eae23748bacfe140ce5374f /lib/Numeric/GSL/Special/Log.hs
parentf589b9e673c3aef62834b3e2e88d96226bb7c24f (diff)
minor changes
Diffstat (limited to 'lib/Numeric/GSL/Special/Log.hs')
-rw-r--r--lib/Numeric/GSL/Special/Log.hs9
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(
26import Foreign(Ptr) 26import Foreign(Ptr)
27import Foreign.C.Types(CInt) 27import Foreign.C.Types(CInt)
28import Numeric.GSL.Special.Internal 28import Numeric.GSL.Special.Internal
29
29log_e :: Double -> (Double,Double) 30log_e :: Double -> (Double,Double)
30log_e x = createSFR "log_e" $ gsl_sf_log_e x 31log_e x = createSFR "log_e" $ gsl_sf_log_e x
31foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt 32foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt
33
32log :: Double -> Double 34log :: Double -> Double
33log = gsl_sf_log 35log = gsl_sf_log
34foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double 36foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double
37
35log_abs_e :: Double -> (Double,Double) 38log_abs_e :: Double -> (Double,Double)
36log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x 39log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x
37foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt 40foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt
41
38log_abs :: Double -> Double 42log_abs :: Double -> Double
39log_abs = gsl_sf_log_abs 43log_abs = gsl_sf_log_abs
40foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double 44foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double
45
41complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) 46complex_log_e :: Double -> Double -> Ptr () -> (Double,Double)
42complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr 47complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr
43foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 48foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
49
44log_1plusx_e :: Double -> (Double,Double) 50log_1plusx_e :: Double -> (Double,Double)
45log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x 51log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x
46foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt 52foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt
53
47log_1plusx :: Double -> Double 54log_1plusx :: Double -> Double
48log_1plusx = gsl_sf_log_1plusx 55log_1plusx = gsl_sf_log_1plusx
49foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double 56foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double
57
50log_1plusx_mx_e :: Double -> (Double,Double) 58log_1plusx_mx_e :: Double -> (Double,Double)
51log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x 59log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x
52foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt 60foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt
61
53log_1plusx_mx :: Double -> Double 62log_1plusx_mx :: Double -> Double
54log_1plusx_mx = gsl_sf_log_1plusx_mx 63log_1plusx_mx = gsl_sf_log_1plusx_mx
55foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double 64foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double