diff options
Diffstat (limited to 'lib/GSL/Special/Dilog.hs')
-rw-r--r-- | lib/GSL/Special/Dilog.hs | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/lib/GSL/Special/Dilog.hs b/lib/GSL/Special/Dilog.hs new file mode 100644 index 0000000..199095a --- /dev/null +++ b/lib/GSL/Special/Dilog.hs | |||
@@ -0,0 +1,46 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Dilog | ||
4 | Copyright : (c) Alberto Ruiz 2006 | ||
5 | License : GPL-style | ||
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | Stability : provisional | ||
8 | Portability : uses ffi | ||
9 | |||
10 | |||
11 | |||
12 | -} | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module GSL.Special.Dilog( | ||
16 | dilog_e | ||
17 | , dilog | ||
18 | ) where | ||
19 | |||
20 | import Foreign(Ptr) | ||
21 | import GSL.Special.Internal | ||
22 | |||
23 | -- | wrapper for int gsl_sf_dilog_e(double x,gsl_sf_result* result); | ||
24 | dilog_e :: Double -> (Double,Double) | ||
25 | dilog_e x = createSFR "dilog_e" $ gsl_sf_dilog_e x | ||
26 | foreign import ccall "dilog.h gsl_sf_dilog_e" gsl_sf_dilog_e :: Double -> Ptr Double -> IO(Int) | ||
27 | |||
28 | -- | wrapper for double gsl_sf_dilog(double x); | ||
29 | dilog :: Double -> Double | ||
30 | dilog = gsl_sf_dilog | ||
31 | foreign import ccall "dilog.h gsl_sf_dilog" gsl_sf_dilog :: Double -> Double | ||
32 | |||
33 | -- | wrapper for int gsl_sf_complex_dilog_xy_e(double x,double y,gsl_sf_result* result_re,gsl_sf_result* result_im); | ||
34 | complex_dilog_xy_e :: Double -> Double -> Ptr Double -> (Double,Double) | ||
35 | complex_dilog_xy_e x y result_re = createSFR "complex_dilog_xy_e" $ gsl_sf_complex_dilog_xy_e x y result_re | ||
36 | foreign import ccall "dilog.h gsl_sf_complex_dilog_xy_e" gsl_sf_complex_dilog_xy_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) | ||
37 | |||
38 | -- | wrapper for int gsl_sf_complex_dilog_e(double r,double theta,gsl_sf_result* result_re,gsl_sf_result* result_im); | ||
39 | complex_dilog_e :: Double -> Double -> Ptr Double -> (Double,Double) | ||
40 | complex_dilog_e r theta result_re = createSFR "complex_dilog_e" $ gsl_sf_complex_dilog_e r theta result_re | ||
41 | foreign import ccall "dilog.h gsl_sf_complex_dilog_e" gsl_sf_complex_dilog_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) | ||
42 | |||
43 | -- | wrapper for int gsl_sf_complex_spence_xy_e(double x,double y,gsl_sf_result* real_sp,gsl_sf_result* imag_sp); | ||
44 | complex_spence_xy_e :: Double -> Double -> Ptr Double -> (Double,Double) | ||
45 | complex_spence_xy_e x y real_sp = createSFR "complex_spence_xy_e" $ gsl_sf_complex_spence_xy_e x y real_sp | ||
46 | foreign import ccall "dilog.h gsl_sf_complex_spence_xy_e" gsl_sf_complex_spence_xy_e :: Double -> Double -> Ptr Double -> Ptr Double -> IO(Int) | ||