diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Erf.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Erf.hs | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/lib/Numeric/GSL/Special/Erf.hs b/lib/Numeric/GSL/Special/Erf.hs deleted file mode 100644 index 258afd3..0000000 --- a/lib/Numeric/GSL/Special/Erf.hs +++ /dev/null | |||
@@ -1,80 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | -- | | ||
3 | -- Module : Numeric.GSL.Special.Erf | ||
4 | -- Copyright : (c) Alberto Ruiz 2006 | ||
5 | -- License : GPL | ||
6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | -- Stability : provisional | ||
8 | -- Portability : uses ffi | ||
9 | -- | ||
10 | -- Wrappers for selected functions described at: | ||
11 | -- | ||
12 | -- <http://www.google.com/search?q=gsl_sf_erf.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module Numeric.GSL.Special.Erf( | ||
16 | erfc_e | ||
17 | , erfc | ||
18 | , log_erfc_e | ||
19 | , log_erfc | ||
20 | , erf_e | ||
21 | , erf | ||
22 | , erf_Z_e | ||
23 | , erf_Q_e | ||
24 | , erf_Z | ||
25 | , erf_Q | ||
26 | , hazard_e | ||
27 | , hazard | ||
28 | ) where | ||
29 | |||
30 | import Foreign(Ptr) | ||
31 | import Foreign.C.Types(CInt) | ||
32 | import Numeric.GSL.Special.Internal | ||
33 | |||
34 | erfc_e :: Double -> (Double,Double) | ||
35 | erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x | ||
36 | foreign import ccall SAFE_CHEAP "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt | ||
37 | |||
38 | erfc :: Double -> Double | ||
39 | erfc = gsl_sf_erfc | ||
40 | foreign import ccall SAFE_CHEAP "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double | ||
41 | |||
42 | log_erfc_e :: Double -> (Double,Double) | ||
43 | log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x | ||
44 | foreign import ccall SAFE_CHEAP "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt | ||
45 | |||
46 | log_erfc :: Double -> Double | ||
47 | log_erfc = gsl_sf_log_erfc | ||
48 | foreign import ccall SAFE_CHEAP "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double | ||
49 | |||
50 | erf_e :: Double -> (Double,Double) | ||
51 | erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x | ||
52 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt | ||
53 | |||
54 | erf :: Double -> Double | ||
55 | erf = gsl_sf_erf | ||
56 | foreign import ccall SAFE_CHEAP "gsl_sf_erf" gsl_sf_erf :: Double -> Double | ||
57 | |||
58 | erf_Z_e :: Double -> (Double,Double) | ||
59 | erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x | ||
60 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt | ||
61 | |||
62 | erf_Q_e :: Double -> (Double,Double) | ||
63 | erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x | ||
64 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt | ||
65 | |||
66 | erf_Z :: Double -> Double | ||
67 | erf_Z = gsl_sf_erf_Z | ||
68 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double | ||
69 | |||
70 | erf_Q :: Double -> Double | ||
71 | erf_Q = gsl_sf_erf_Q | ||
72 | foreign import ccall SAFE_CHEAP "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double | ||
73 | |||
74 | hazard_e :: Double -> (Double,Double) | ||
75 | hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x | ||
76 | foreign import ccall SAFE_CHEAP "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt | ||
77 | |||
78 | hazard :: Double -> Double | ||
79 | hazard = gsl_sf_hazard | ||
80 | foreign import ccall SAFE_CHEAP "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double | ||