Merge branch 'master' of github.com:dmjio/haskfire

Author: dmjio

src/ArrayFire/Arith.hs

@@ -1278,6 +1278,49 @@ tanh
   -- ^ Result of calling 'tanh'
 tanh = flip op1 af_tanh
 
+-- | Execute asinh
+--
+-- >>> A.asinh (A.vector @Int 10 [1..])
+-- ArrayFire Array
+-- [10 1 1 1]
+--    0.7616     0.9640     0.9951     0.9993     0.9999     1.0000     1.0000     1.0000     1.0000     1.0000
+asinh
+  :: AFType a
+  => Array a
+  -- ^ Input array
+  -> Array a
+  -- ^ Result of calling 'tanh'
+asinh = flip op1 af_asinh
+
+-- | Execute acosh
+--
+-- >>> A.acosh (A.vector @Int 10 [1..])
+-- ArrayFire Array
+-- [10 1 1 1]
+--    0.7616     0.9640     0.9951     0.9993     0.9999     1.0000     1.0000     1.0000     1.0000     1.0000
+acosh
+  :: AFType a
+  => Array a
+  -- ^ Input array
+  -> Array a
+  -- ^ Result of calling 'tanh'
+acosh = flip op1 af_acosh
+
+-- | Execute atanh
+--
+-- >>> A.atanh (A.vector @Int 10 [1..])
+-- ArrayFire Array
+-- [10 1 1 1]
+--    0.7616     0.9640     0.9951     0.9993     0.9999     1.0000     1.0000     1.0000     1.0000     1.0000
+atanh
+  :: AFType a
+  => Array a
+  -- ^ Input array
+  -> Array a
+  -- ^ Result of calling 'tanh'
+atanh = flip op1 af_atanh
+
+
 -- | Execute root
 --
 -- >>> A.root (A.vector @Double 10 [1..]) (A.vector @Double 10 [1..])

src/ArrayFire/Orphans.hs

@@ -66,15 +66,6 @@ instance forall a . (Ord a, AFType a, Fractional a) => Floating (Array a) where
   atan = A.atan @a
   sinh = A.sinh @a
   cosh = A.cosh @a
-  acosh x =
-    A.log (x + (x+1.0) * A.sqrt ((x-1.0)/(x+1.0)))
-  atanh x =
-    0.5 * A.log ((1.0+x) / (1.0-x))
-  asinh x
-    | x > huge  = A.log 2 + A.log x
-    | x < 0     = -asinh (-x)
-    | otherwise = A.log (x + A.sqrt (1 + x*x))
-       where
-         huge = 1e20
-
-
+  acosh = A.acosh @a
+  atanh = A.atanh @a
+  asinh = A.asinh @a