diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-02-20 13:14:04 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-02-20 13:14:04 +0000 |
commit | bbf07a5b76cf196007adcfe2bfc954440843ce2f (patch) | |
tree | 5c3162567bfdd6761b2217641f49dd9ef5480aae /lib/Numeric/GSL/Special/Trig.hs | |
parent | 7f94a70d57d44c1b0d63226684c008edde2678c9 (diff) |
safe-cheap flag
Diffstat (limited to 'lib/Numeric/GSL/Special/Trig.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Trig.hs | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/lib/Numeric/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs index 33e598c..4b7ae67 100644 --- a/lib/Numeric/GSL/Special/Trig.hs +++ b/lib/Numeric/GSL/Special/Trig.hs | |||
@@ -39,100 +39,100 @@ import Numeric.GSL.Special.Internal | |||
39 | 39 | ||
40 | sin_e :: Double -> (Double,Double) | 40 | sin_e :: Double -> (Double,Double) |
41 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x | 41 | sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x |
42 | foreign import ccall "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt | 42 | foreign import ccall SAFE_CHEAP "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt |
43 | 43 | ||
44 | sin :: Double -> Double | 44 | sin :: Double -> Double |
45 | sin = gsl_sf_sin | 45 | sin = gsl_sf_sin |
46 | foreign import ccall "gsl_sf_sin" gsl_sf_sin :: Double -> Double | 46 | foreign import ccall SAFE_CHEAP "gsl_sf_sin" gsl_sf_sin :: Double -> Double |
47 | 47 | ||
48 | cos_e :: Double -> (Double,Double) | 48 | cos_e :: Double -> (Double,Double) |
49 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x | 49 | cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x |
50 | foreign import ccall "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt | 50 | foreign import ccall SAFE_CHEAP "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt |
51 | 51 | ||
52 | cos :: Double -> Double | 52 | cos :: Double -> Double |
53 | cos = gsl_sf_cos | 53 | cos = gsl_sf_cos |
54 | foreign import ccall "gsl_sf_cos" gsl_sf_cos :: Double -> Double | 54 | foreign import ccall SAFE_CHEAP "gsl_sf_cos" gsl_sf_cos :: Double -> Double |
55 | 55 | ||
56 | hypot_e :: Double -> Double -> (Double,Double) | 56 | hypot_e :: Double -> Double -> (Double,Double) |
57 | 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 |
58 | foreign import ccall "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt | 58 | foreign import ccall SAFE_CHEAP "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt |
59 | 59 | ||
60 | hypot :: Double -> Double -> Double | 60 | hypot :: Double -> Double -> Double |
61 | hypot = gsl_sf_hypot | 61 | hypot = gsl_sf_hypot |
62 | foreign import ccall "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double | 62 | foreign import ccall SAFE_CHEAP "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double |
63 | 63 | ||
64 | complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) | 64 | complex_sin_e :: Double -> Double -> Ptr () -> (Double,Double) |
65 | 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 |
66 | foreign import ccall "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 66 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
67 | 67 | ||
68 | complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) | 68 | complex_cos_e :: Double -> Double -> Ptr () -> (Double,Double) |
69 | 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 |
70 | foreign import ccall "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 70 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
71 | 71 | ||
72 | complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) | 72 | complex_logsin_e :: Double -> Double -> Ptr () -> (Double,Double) |
73 | 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 |
74 | foreign import ccall "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 74 | foreign import ccall SAFE_CHEAP "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
75 | 75 | ||
76 | sinc_e :: Double -> (Double,Double) | 76 | sinc_e :: Double -> (Double,Double) |
77 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x | 77 | sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x |
78 | foreign import ccall "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt | 78 | foreign import ccall SAFE_CHEAP "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt |
79 | 79 | ||
80 | sinc :: Double -> Double | 80 | sinc :: Double -> Double |
81 | sinc = gsl_sf_sinc | 81 | sinc = gsl_sf_sinc |
82 | foreign import ccall "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double | 82 | foreign import ccall SAFE_CHEAP "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double |
83 | 83 | ||
84 | lnsinh_e :: Double -> (Double,Double) | 84 | lnsinh_e :: Double -> (Double,Double) |
85 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x | 85 | lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x |
86 | foreign import ccall "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt | 86 | foreign import ccall SAFE_CHEAP "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt |
87 | 87 | ||
88 | lnsinh :: Double -> Double | 88 | lnsinh :: Double -> Double |
89 | lnsinh = gsl_sf_lnsinh | 89 | lnsinh = gsl_sf_lnsinh |
90 | foreign import ccall "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double | 90 | foreign import ccall SAFE_CHEAP "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double |
91 | 91 | ||
92 | lncosh_e :: Double -> (Double,Double) | 92 | lncosh_e :: Double -> (Double,Double) |
93 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x | 93 | lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x |
94 | foreign import ccall "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt | 94 | foreign import ccall SAFE_CHEAP "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt |
95 | 95 | ||
96 | lncosh :: Double -> Double | 96 | lncosh :: Double -> Double |
97 | lncosh = gsl_sf_lncosh | 97 | lncosh = gsl_sf_lncosh |
98 | foreign import ccall "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double | 98 | foreign import ccall SAFE_CHEAP "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double |
99 | 99 | ||
100 | polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) | 100 | polar_to_rect :: Double -> Double -> Ptr () -> (Double,Double) |
101 | 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 |
102 | foreign import ccall "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 102 | foreign import ccall SAFE_CHEAP "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
103 | 103 | ||
104 | rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) | 104 | rect_to_polar :: Double -> Double -> Ptr () -> (Double,Double) |
105 | 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 |
106 | foreign import ccall "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt | 106 | foreign import ccall SAFE_CHEAP "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt |
107 | 107 | ||
108 | sin_err_e :: Double -> Double -> (Double,Double) | 108 | sin_err_e :: Double -> Double -> (Double,Double) |
109 | 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 |
110 | foreign import ccall "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt | 110 | foreign import ccall SAFE_CHEAP "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt |
111 | 111 | ||
112 | cos_err_e :: Double -> Double -> (Double,Double) | 112 | cos_err_e :: Double -> Double -> (Double,Double) |
113 | 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 |
114 | foreign import ccall "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt | 114 | foreign import ccall SAFE_CHEAP "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt |
115 | 115 | ||
116 | angle_restrict_symm_e :: Ptr Double -> CInt | 116 | angle_restrict_symm_e :: Ptr Double -> CInt |
117 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e | 117 | angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e |
118 | foreign import ccall "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt | 118 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt |
119 | 119 | ||
120 | angle_restrict_symm :: Double -> Double | 120 | angle_restrict_symm :: Double -> Double |
121 | angle_restrict_symm = gsl_sf_angle_restrict_symm | 121 | angle_restrict_symm = gsl_sf_angle_restrict_symm |
122 | foreign import ccall "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double | 122 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double |
123 | 123 | ||
124 | angle_restrict_pos_e :: Ptr Double -> CInt | 124 | angle_restrict_pos_e :: Ptr Double -> CInt |
125 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e | 125 | angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e |
126 | foreign import ccall "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt | 126 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt |
127 | 127 | ||
128 | angle_restrict_pos :: Double -> Double | 128 | angle_restrict_pos :: Double -> Double |
129 | angle_restrict_pos = gsl_sf_angle_restrict_pos | 129 | angle_restrict_pos = gsl_sf_angle_restrict_pos |
130 | foreign import ccall "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double | 130 | foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double |
131 | 131 | ||
132 | angle_restrict_symm_err_e :: Double -> (Double,Double) | 132 | angle_restrict_symm_err_e :: Double -> (Double,Double) |
133 | 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 |
134 | 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 SAFE_CHEAP "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt |
135 | 135 | ||
136 | angle_restrict_pos_err_e :: Double -> (Double,Double) | 136 | angle_restrict_pos_err_e :: Double -> (Double,Double) |
137 | 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 |
138 | 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 SAFE_CHEAP "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt |