summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Trig.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Special/Trig.hs')
-rw-r--r--lib/Numeric/GSL/Special/Trig.hs25
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs
index f670070..33e598c 100644
--- a/lib/Numeric/GSL/Special/Trig.hs
+++ b/lib/Numeric/GSL/Special/Trig.hs
@@ -36,78 +36,103 @@ module Numeric.GSL.Special.Trig(
36import Foreign(Ptr) 36import Foreign(Ptr)
37import Foreign.C.Types(CInt) 37import Foreign.C.Types(CInt)
38import Numeric.GSL.Special.Internal 38import Numeric.GSL.Special.Internal
39
39sin_e :: Double -> (Double,Double) 40sin_e :: Double -> (Double,Double)
40sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x 41sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x
41foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt 42foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt
43
42sin :: Double -> Double 44sin :: Double -> Double
43sin = gsl_sf_sin 45sin = gsl_sf_sin
44foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double 46foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double
47
45cos_e :: Double -> (Double,Double) 48cos_e :: Double -> (Double,Double)
46cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x 49cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x
47foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt 50foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt
51
48cos :: Double -> Double 52cos :: Double -> Double
49cos = gsl_sf_cos 53cos = gsl_sf_cos
50foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double 54foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double
55
51hypot_e :: Double -> Double -> (Double,Double) 56hypot_e :: Double -> Double -> (Double,Double)
52hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y 57hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y
53foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt 58foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt
59
54hypot :: Double -> Double -> Double 60hypot :: Double -> Double -> Double
55hypot = gsl_sf_hypot 61hypot = gsl_sf_hypot
56foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double 62foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double
63
57complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) 64complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double)
58complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr 65complex_sin_e zr zi szr = createSFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi szr
59foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 66foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
67
60complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) 68complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double)
61complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr 69complex_cos_e zr zi czr = createSFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi czr
62foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 70foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
71
63complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) 72complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double)
64complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr 73complex_logsin_e zr zi lszr = createSFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi lszr
65foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 74foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
75
66sinc_e :: Double -> (Double,Double) 76sinc_e :: Double -> (Double,Double)
67sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x 77sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x
68foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt 78foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt
79
69sinc :: Double -> Double 80sinc :: Double -> Double
70sinc = gsl_sf_sinc 81sinc = gsl_sf_sinc
71foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double 82foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double
83
72lnsinh_e :: Double -> (Double,Double) 84lnsinh_e :: Double -> (Double,Double)
73lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x 85lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x
74foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt 86foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt
87
75lnsinh :: Double -> Double 88lnsinh :: Double -> Double
76lnsinh = gsl_sf_lnsinh 89lnsinh = gsl_sf_lnsinh
77foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double 90foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double
91
78lncosh_e :: Double -> (Double,Double) 92lncosh_e :: Double -> (Double,Double)
79lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x 93lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x
80foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt 94foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt
95
81lncosh :: Double -> Double 96lncosh :: Double -> Double
82lncosh = gsl_sf_lncosh 97lncosh = gsl_sf_lncosh
83foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double 98foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double
99
84polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) 100polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double)
85polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x 101polar_to_rect r theta x = createSFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta x
86foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 102foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
103
87rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) 104rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double)
88rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r 105rect_to_polar x y r = createSFR "rect_to_polar" $ gsl_sf_rect_to_polar x y r
89foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 106foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
107
90sin_err_e :: Double -> Double -> (Double,Double) 108sin_err_e :: Double -> Double -> (Double,Double)
91sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx 109sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx
92foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt 110foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt
111
93cos_err_e :: Double -> Double -> (Double,Double) 112cos_err_e :: Double -> Double -> (Double,Double)
94cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx 113cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx
95foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt 114foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt
115
96angle_restrict_symm_e :: Ptr Double -> CInt 116angle_restrict_symm_e :: Ptr Double -> CInt
97angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e 117angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e
98foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt 118foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt
119
99angle_restrict_symm :: Double -> Double 120angle_restrict_symm :: Double -> Double
100angle_restrict_symm = gsl_sf_angle_restrict_symm 121angle_restrict_symm = gsl_sf_angle_restrict_symm
101foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double 122foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double
123
102angle_restrict_pos_e :: Ptr Double -> CInt 124angle_restrict_pos_e :: Ptr Double -> CInt
103angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e 125angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e
104foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt 126foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt
127
105angle_restrict_pos :: Double -> Double 128angle_restrict_pos :: Double -> Double
106angle_restrict_pos = gsl_sf_angle_restrict_pos 129angle_restrict_pos = gsl_sf_angle_restrict_pos
107foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double 130foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double
131
108angle_restrict_symm_err_e :: Double -> (Double,Double) 132angle_restrict_symm_err_e :: Double -> (Double,Double)
109angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta 133angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta
110foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt 134foreign import ccall "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt
135
111angle_restrict_pos_err_e :: Double -> (Double,Double) 136angle_restrict_pos_err_e :: Double -> (Double,Double)
112angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta 137angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta
113foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt 138foreign import ccall "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt