From 620d5008ea9a931a91907cd0c902bb64f005121f Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 13 Sep 2007 10:27:17 +0000 Subject: automatic google search in the docs for the special functions --- lib/GSL/Special/Erf.hs | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) (limited to 'lib/GSL/Special/Erf.hs') diff --git a/lib/GSL/Special/Erf.hs b/lib/GSL/Special/Erf.hs index 30b7817..6dc5abb 100644 --- a/lib/GSL/Special/Erf.hs +++ b/lib/GSL/Special/Erf.hs @@ -9,7 +9,7 @@ Portability : uses ffi Wrappers for selected functions described at: - + -} ------------------------------------------------------------ @@ -33,61 +33,85 @@ import Foreign(Ptr) import GSL.Special.Internal -- | wrapper for int gsl_sf_erfc_e(double x,gsl_sf_result* result); +-- +-- erfc_e :: Double -> (Double,Double) erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x foreign import ccall "erf.h gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr Double -> IO(Int) -- | wrapper for double gsl_sf_erfc(double x); +-- +-- erfc :: Double -> Double erfc = gsl_sf_erfc foreign import ccall "erf.h gsl_sf_erfc" gsl_sf_erfc :: Double -> Double -- | wrapper for int gsl_sf_log_erfc_e(double x,gsl_sf_result* result); +-- +-- log_erfc_e :: Double -> (Double,Double) log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x foreign import ccall "erf.h gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr Double -> IO(Int) -- | wrapper for double gsl_sf_log_erfc(double x); +-- +-- log_erfc :: Double -> Double log_erfc = gsl_sf_log_erfc foreign import ccall "erf.h gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double -- | wrapper for int gsl_sf_erf_e(double x,gsl_sf_result* result); +-- +-- erf_e :: Double -> (Double,Double) erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x foreign import ccall "erf.h gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr Double -> IO(Int) -- | wrapper for double gsl_sf_erf(double x); +-- +-- erf :: Double -> Double erf = gsl_sf_erf foreign import ccall "erf.h gsl_sf_erf" gsl_sf_erf :: Double -> Double -- | wrapper for int gsl_sf_erf_Z_e(double x,gsl_sf_result* result); +-- +-- erf_Z_e :: Double -> (Double,Double) erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x foreign import ccall "erf.h gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr Double -> IO(Int) -- | wrapper for int gsl_sf_erf_Q_e(double x,gsl_sf_result* result); +-- +-- erf_Q_e :: Double -> (Double,Double) erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x foreign import ccall "erf.h gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr Double -> IO(Int) -- | wrapper for double gsl_sf_erf_Z(double x); +-- +-- erf_Z :: Double -> Double erf_Z = gsl_sf_erf_Z foreign import ccall "erf.h gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double -- | wrapper for double gsl_sf_erf_Q(double x); +-- +-- erf_Q :: Double -> Double erf_Q = gsl_sf_erf_Q foreign import ccall "erf.h gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double -- | wrapper for int gsl_sf_hazard_e(double x,gsl_sf_result* result); +-- +-- hazard_e :: Double -> (Double,Double) hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x foreign import ccall "erf.h gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr Double -> IO(Int) -- | wrapper for double gsl_sf_hazard(double x); +-- +-- hazard :: Double -> Double hazard = gsl_sf_hazard foreign import ccall "erf.h gsl_sf_hazard" gsl_sf_hazard :: Double -> Double -- cgit v1.2.3