summaryrefslogtreecommitdiff
path: root/lib/GSL/Special/Log.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/GSL/Special/Log.hs')
-rw-r--r--lib/GSL/Special/Log.hs74
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{- |
3Module : GSL.Special.Log
4Copyright : (c) Alberto Ruiz 2006
5License : GPL-style
6Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional
8Portability : uses ffi
9
10Wrappers 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
17module 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
28import Foreign(Ptr)
29import GSL.Special.Internal
30
31-- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result);
32log_e :: Double -> (Double,Double)
33log_e x = createSFR "log_e" $ gsl_sf_log_e x
34foreign 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);
37log :: Double -> Double
38log = gsl_sf_log
39foreign 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);
42log_abs_e :: Double -> (Double,Double)
43log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x
44foreign 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);
47log_abs :: Double -> Double
48log_abs = gsl_sf_log_abs
49foreign 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);
52complex_log_e :: Double -> Double -> Ptr Double -> (Double,Double)
53complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr
54foreign 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);
57log_1plusx_e :: Double -> (Double,Double)
58log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x
59foreign 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);
62log_1plusx :: Double -> Double
63log_1plusx = gsl_sf_log_1plusx
64foreign 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);
67log_1plusx_mx_e :: Double -> (Double,Double)
68log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x
69foreign 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);
72log_1plusx_mx :: Double -> Double
73log_1plusx_mx = gsl_sf_log_1plusx_mx
74foreign import ccall "log.h gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double