From e58f1e0e94407983fa18cd535cf76427019f1519 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 17 Jun 2009 12:27:17 +0000 Subject: added special transport and elljac --- lib/Numeric/GSL/Special/Trig.hs | 124 ++++------------------------------------ 1 file changed, 11 insertions(+), 113 deletions(-) (limited to 'lib/Numeric/GSL/Special/Trig.hs') diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs index 1869733..f670070 100644 --- a/lib/Numeric/GSL/Special/Trig.hs +++ b/lib/Numeric/GSL/Special/Trig.hs @@ -1,17 +1,15 @@ ------------------------------------------------------------ -{- | -Module : Numeric.GSL.Special.Trig -Copyright : (c) Alberto Ruiz 2006 -License : GPL-style -Maintainer : Alberto Ruiz (aruiz at um dot es) -Stability : provisional -Portability : uses ffi - -Wrappers for selected functions described at: - - - --} +-- | +-- Module : Numeric.GSL.Special.Trig +-- Copyright : (c) Alberto Ruiz 2006 +-- License : GPL +-- Maintainer : Alberto Ruiz (aruiz at um dot es) +-- Stability : provisional +-- Portability : uses ffi +-- +-- Wrappers for selected functions described at: +-- +-- ------------------------------------------------------------ module Numeric.GSL.Special.Trig( @@ -38,178 +36,78 @@ module Numeric.GSL.Special.Trig( import Foreign(Ptr) import Foreign.C.Types(CInt) import Numeric.GSL.Special.Internal - --- | wrapper for int gsl_sf_sin_e(double x,gsl_sf_result* result); --- --- sin_e :: Double -> (Double,Double) sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt - --- | wrapper for double gsl_sf_sin(double x); --- --- sin :: Double -> Double sin = gsl_sf_sin foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double - --- | wrapper for int gsl_sf_cos_e(double x,gsl_sf_result* result); --- --- cos_e :: Double -> (Double,Double) cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt - --- | wrapper for double gsl_sf_cos(double x); --- --- cos :: Double -> Double cos = gsl_sf_cos foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double - --- | wrapper for int gsl_sf_hypot_e(double x,double y,gsl_sf_result* result); --- --- hypot_e :: Double -> Double -> (Double,Double) hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt - --- | wrapper for double gsl_sf_hypot(double x,double y); --- --- hypot :: Double -> Double -> Double hypot = gsl_sf_hypot foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double - --- | wrapper for int gsl_sf_complex_sin_e(double zr,double zi,gsl_sf_result* szr,gsl_sf_result* szi); --- --- complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - --- | wrapper for int gsl_sf_complex_cos_e(double zr,double zi,gsl_sf_result* czr,gsl_sf_result* czi); --- --- complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - --- | wrapper for int gsl_sf_complex_logsin_e(double zr,double zi,gsl_sf_result* lszr,gsl_sf_result* lszi); --- --- complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - --- | wrapper for int gsl_sf_sinc_e(double x,gsl_sf_result* result); --- --- sinc_e :: Double -> (Double,Double) sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt - --- | wrapper for double gsl_sf_sinc(double x); --- --- sinc :: Double -> Double sinc = gsl_sf_sinc foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double - --- | wrapper for int gsl_sf_lnsinh_e(double x,gsl_sf_result* result); --- --- lnsinh_e :: Double -> (Double,Double) lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt - --- | wrapper for double gsl_sf_lnsinh(double x); --- --- lnsinh :: Double -> Double lnsinh = gsl_sf_lnsinh foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double - --- | wrapper for int gsl_sf_lncosh_e(double x,gsl_sf_result* result); --- --- lncosh_e :: Double -> (Double,Double) lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt - --- | wrapper for double gsl_sf_lncosh(double x); --- --- lncosh :: Double -> Double lncosh = gsl_sf_lncosh foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double - --- | wrapper for int gsl_sf_polar_to_rect(double r,double theta,gsl_sf_result* x,gsl_sf_result* y); --- --- polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - --- | wrapper for int gsl_sf_rect_to_polar(double x,double y,gsl_sf_result* r,gsl_sf_result* theta); --- --- rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - --- | wrapper for int gsl_sf_sin_err_e(double x,double dx,gsl_sf_result* result); --- --- sin_err_e :: Double -> Double -> (Double,Double) sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt - --- | wrapper for int gsl_sf_cos_err_e(double x,double dx,gsl_sf_result* result); --- --- cos_err_e :: Double -> Double -> (Double,Double) cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt - --- | wrapper for int gsl_sf_angle_restrict_symm_e(double* theta); --- --- angle_restrict_symm_e :: Ptr Double -> CInt angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt - --- | wrapper for double gsl_sf_angle_restrict_symm(double theta); --- --- angle_restrict_symm :: Double -> Double angle_restrict_symm = gsl_sf_angle_restrict_symm foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double - --- | wrapper for int gsl_sf_angle_restrict_pos_e(double* theta); --- --- angle_restrict_pos_e :: Ptr Double -> CInt angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt - --- | wrapper for double gsl_sf_angle_restrict_pos(double theta); --- --- angle_restrict_pos :: Double -> Double angle_restrict_pos = gsl_sf_angle_restrict_pos foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double - --- | wrapper for int gsl_sf_angle_restrict_symm_err_e(double theta,gsl_sf_result* result); --- --- angle_restrict_symm_err_e :: Double -> (Double,Double) angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt - --- | wrapper for int gsl_sf_angle_restrict_pos_err_e(double theta,gsl_sf_result* result); --- --- angle_restrict_pos_err_e :: Double -> (Double,Double) angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt -- cgit v1.2.3