diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-10-20 07:19:06 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-10-20 07:19:06 +0000 |
commit | 7cfba6b4eb311590986a888255cd1dc594bd7264 (patch) | |
tree | b01b83260b9d959cd8b32fe4021553bb1aadc8d4 /packages/special/lib/Numeric/GSL/Special/Log.hs | |
parent | ceb049de0898a2cc58fac8191a049e65bad7a2f6 (diff) |
mkComplex_e and other complex special functions
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Log.hs')
-rw-r--r-- | packages/special/lib/Numeric/GSL/Special/Log.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Log.hs b/packages/special/lib/Numeric/GSL/Special/Log.hs index a57b67a..7f3f9d6 100644 --- a/packages/special/lib/Numeric/GSL/Special/Log.hs +++ b/packages/special/lib/Numeric/GSL/Special/Log.hs | |||
@@ -17,6 +17,7 @@ module Numeric.GSL.Special.Log( | |||
17 | , Numeric.GSL.Special.Log.log | 17 | , Numeric.GSL.Special.Log.log |
18 | , log_abs_e | 18 | , log_abs_e |
19 | , log_abs | 19 | , log_abs |
20 | , complex_log_e | ||
20 | , log_1plusx_e | 21 | , log_1plusx_e |
21 | , log_1plusx | 22 | , log_1plusx |
22 | , log_1plusx_mx_e | 23 | , log_1plusx_mx_e |
@@ -43,8 +44,8 @@ log_abs :: Double -> Double | |||
43 | log_abs = gsl_sf_log_abs | 44 | log_abs = gsl_sf_log_abs |
44 | foreign import ccall SAFE_CHEAP "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double | 45 | foreign import ccall SAFE_CHEAP "gsl_sf_log_abs" gsl_sf_log_abs :: Double -> Double |
45 | 46 | ||
46 | complex_log_e :: Double -> Double -> Ptr () -> (Double,Double) | 47 | complex_log_e :: Double -> Double -> ((Double,Double),(Double,Double)) |
47 | complex_log_e zr zi lnr = createSFR "complex_log_e" $ gsl_sf_complex_log_e zr zi lnr | 48 | complex_log_e zr zi = create2SFR "complex_log_e" $ gsl_sf_complex_log_e zr zi |
48 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 49 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_log_e" gsl_sf_complex_log_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
49 | 50 | ||
50 | log_1plusx_e :: Double -> (Double,Double) | 51 | log_1plusx_e :: Double -> (Double,Double) |