From 54bcc1fc1e0f9676cb10f627f412eeeea34b5d2c Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 24 Feb 2010 13:23:42 +0000 Subject: created package hmatrix-special --- lib/Numeric/GSL/Special/Trig.hs | 138 ---------------------------------------- 1 file changed, 138 deletions(-) delete mode 100644 lib/Numeric/GSL/Special/Trig.hs (limited to 'lib/Numeric/GSL/Special/Trig.hs') diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs deleted file mode 100644 index 4b7ae67..0000000 --- a/lib/Numeric/GSL/Special/Trig.hs +++ /dev/null @@ -1,138 +0,0 @@ ------------------------------------------------------------- --- | --- 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( - sin_e -, Numeric.GSL.Special.Trig.sin -, cos_e -, Numeric.GSL.Special.Trig.cos -, hypot_e -, hypot -, sinc_e -, sinc -, lnsinh_e -, lnsinh -, lncosh_e -, lncosh -, sin_err_e -, cos_err_e -, angle_restrict_symm -, angle_restrict_pos -, angle_restrict_symm_err_e -, angle_restrict_pos_err_e -) where - -import Foreign(Ptr) -import Foreign.C.Types(CInt) -import Numeric.GSL.Special.Internal - -sin_e :: Double -> (Double,Double) -sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x -foreign import ccall SAFE_CHEAP "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt - -sin :: Double -> Double -sin = gsl_sf_sin -foreign import ccall SAFE_CHEAP "gsl_sf_sin" gsl_sf_sin :: Double -> Double - -cos_e :: Double -> (Double,Double) -cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x -foreign import ccall SAFE_CHEAP "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt - -cos :: Double -> Double -cos = gsl_sf_cos -foreign import ccall SAFE_CHEAP "gsl_sf_cos" gsl_sf_cos :: Double -> Double - -hypot_e :: Double -> Double -> (Double,Double) -hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y -foreign import ccall SAFE_CHEAP "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt - -hypot :: Double -> Double -> Double -hypot = gsl_sf_hypot -foreign import ccall SAFE_CHEAP "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double - -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 SAFE_CHEAP "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - -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 SAFE_CHEAP "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - -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 SAFE_CHEAP "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - -sinc_e :: Double -> (Double,Double) -sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x -foreign import ccall SAFE_CHEAP "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt - -sinc :: Double -> Double -sinc = gsl_sf_sinc -foreign import ccall SAFE_CHEAP "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double - -lnsinh_e :: Double -> (Double,Double) -lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x -foreign import ccall SAFE_CHEAP "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt - -lnsinh :: Double -> Double -lnsinh = gsl_sf_lnsinh -foreign import ccall SAFE_CHEAP "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double - -lncosh_e :: Double -> (Double,Double) -lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x -foreign import ccall SAFE_CHEAP "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt - -lncosh :: Double -> Double -lncosh = gsl_sf_lncosh -foreign import ccall SAFE_CHEAP "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double - -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 SAFE_CHEAP "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - -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 SAFE_CHEAP "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt - -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 SAFE_CHEAP "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt - -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 SAFE_CHEAP "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt - -angle_restrict_symm_e :: Ptr Double -> CInt -angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e -foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt - -angle_restrict_symm :: Double -> Double -angle_restrict_symm = gsl_sf_angle_restrict_symm -foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double - -angle_restrict_pos_e :: Ptr Double -> CInt -angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e -foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt - -angle_restrict_pos :: Double -> Double -angle_restrict_pos = gsl_sf_angle_restrict_pos -foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double - -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 SAFE_CHEAP "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt - -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 SAFE_CHEAP "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt -- cgit v1.2.3