-- | Trigonometric and hyperbolic functions and related functions.
--
-- Minimal complete definition:
--- 'pi', 'exp', 'log', 'sin', 'cos', 'sinh', 'cosh'
+-- 'pi', 'exp', 'log', 'sin', 'cos', 'sinh', 'cosh',
-- 'asin', 'acos', 'atan', 'asinh', 'acosh' and 'atanh'
class (Fractional a) => Floating a where
pi :: a
(f*b*2, b^(-e+1)*2, b, 1)
else
(f*2, b^(-e)*2, 1, 1)
+ k :: Int
k =
let
+ k0 :: Int
k0 =
if b == 2 && base == 10 then
-- logBase 10 2 is slightly bigger than 3/10 so