diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-06-17 12:27:17 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-06-17 12:27:17 +0000 |
commit | e58f1e0e94407983fa18cd535cf76427019f1519 (patch) | |
tree | 4ffffdb92fd78e2233485895fb288111af0bf386 /lib/Numeric/GSL/Special/Log.hs | |
parent | 45e0e90ffdedd3c1fbe3da750018c65a1535cf75 (diff) |
added special transport and elljac
Diffstat (limited to 'lib/Numeric/GSL/Special/Log.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Log.hs | 60 |
1 files changed, 11 insertions, 49 deletions
diff --git a/lib/Numeric/GSL/Special/Log.hs b/lib/Numeric/GSL/Special/Log.hs index 370c5bd..665b74b 100644 --- a/lib/Numeric/GSL/Special/Log.hs +++ b/lib/Numeric/GSL/Special/Log.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Log | 3 | -- Module : Numeric.GSL.Special.Log |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | -- Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | -- License : GPL |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) |
7 | Stability : provisional | 7 | -- Stability : provisional |
8 | Portability : uses ffi | 8 | -- Portability : uses ffi |
9 | 9 | -- | |
10 | Wrappers for selected functions described at: | 10 | -- Wrappers for selected functions described at: |
11 | 11 | -- | |
12 | <http://www.google.com/search?q=gsl_sf_log.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_log.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Log( | 15 | module Numeric.GSL.Special.Log( |
@@ -28,66 +26,30 @@ module Numeric.GSL.Special.Log( | |||
28 | import Foreign(Ptr) | 26 | import Foreign(Ptr) |
29 | import Foreign.C.Types(CInt) | 27 | import Foreign.C.Types(CInt) |
30 | import Numeric.GSL.Special.Internal | 28 | import Numeric.GSL.Special.Internal |
31 | |||
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> | ||
35 | log_e :: Double -> (Double,Double) | 29 | log_e :: Double -> (Double,Double) |
36 | log_e x = createSFR "log_e" $ gsl_sf_log_e x | 30 | log_e x = createSFR "log_e" $ gsl_sf_log_e x |
37 | foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt | 31 | foreign import ccall "gsl_sf_log_e" gsl_sf_log_e :: Double -> Ptr () -> IO CInt |
38 | |||
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> | ||
42 | log :: Double -> Double | 32 | log :: Double -> Double |
43 | log = gsl_sf_log | 33 | log = gsl_sf_log |
44 | foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double | 34 | foreign import ccall "gsl_sf_log" gsl_sf_log :: Double -> Double |
45 | |||
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> | ||
49 | log_abs_e :: Double -> (Double,Double) | 35 | log_abs_e :: Double -> (Double,Double) |
50 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x | 36 | log_abs_e x = createSFR "log_abs_e" $ gsl_sf_log_abs_e x |
51 | foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt | 37 | foreign import ccall "gsl_sf_log_abs_e" gsl_sf_log_abs_e :: Double -> Ptr () -> IO CInt |
52 | |||
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> | ||
56 | log_abs :: Double -> Double | 38 | log_abs :: Double -> Double |
57 | log_abs = gsl_sf_log_abs | 39 | log_abs = gsl_sf_log_abs |
58 | foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | 40 | foreign import ccall "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double |
59 | |||
60 | -- | wrapper for int gsl_sf_complex_log_e(double zr,double zi,gsl_sf_result* lnr,gsl_sf_result* theta); | ||
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) | 41 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) |
64 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr | 42 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr |
65 | foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 43 | foreign import ccall "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
66 | |||
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> | ||
70 | log_1plusx_e :: Double -> (Double,Double) | 44 | log_1plusx_e :: Double -> (Double,Double) |
71 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x | 45 | log_1plusx_e x = createSFR "log_1plusx_e" $ gsl_sf_log_1plusx_e x |
72 | foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt | 46 | foreign import ccall "gsl_sf_log_1plusx_e" gsl_sf_log_1plusx_e :: Double -> Ptr () -> IO CInt |
73 | |||
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> | ||
77 | log_1plusx :: Double -> Double | 47 | log_1plusx :: Double -> Double |
78 | log_1plusx = gsl_sf_log_1plusx | 48 | log_1plusx = gsl_sf_log_1plusx |
79 | foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double | 49 | foreign import ccall "gsl_sf_log_1plusx" gsl_sf_log_1plusx :: Double -> Double |
80 | |||
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> | ||
84 | log_1plusx_mx_e :: Double -> (Double,Double) | 50 | log_1plusx_mx_e :: Double -> (Double,Double) |
85 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x | 51 | log_1plusx_mx_e x = createSFR "log_1plusx_mx_e" $ gsl_sf_log_1plusx_mx_e x |
86 | foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_log_1plusx_mx_e" gsl_sf_log_1plusx_mx_e :: Double -> Ptr () -> IO CInt |
87 | |||
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> | ||
91 | log_1plusx_mx :: Double -> Double | 53 | log_1plusx_mx :: Double -> Double |
92 | log_1plusx_mx = gsl_sf_log_1plusx_mx | 54 | log_1plusx_mx = gsl_sf_log_1plusx_mx |
93 | foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double | 55 | foreign import ccall "gsl_sf_log_1plusx_mx" gsl_sf_log_1plusx_mx :: Double -> Double |