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