tanh and atanh.

rakudo · Aug 15, 2011 · e8a10fb · e8a10fb
1 parent 9802d3e
commit e8a10fb
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 8 deletions.
diff --git a/src/core/Complex.pm b/src/core/Complex.pm
@@ -154,14 +154,14 @@ my class Complex is Numeric {
         (self + sqrt(self * self - 1)).log;
     }
 
-    # method tanh(Complex:D:) {
-    #     -((Complex.new(0, 1) * self).tan)i;
-    # }
-    # 
-    # method atanh(Complex:D:) {
-    #     (((1 + self) / (1 - self)).log / 2);
-    # }
-    # 
+    method tanh(Complex:D:) {
+        -((Complex.new(0, 1) * self).tan)i;
+    }
+
+    method atanh(Complex:D:) {
+        (((1 + self) / (1 - self)).log / 2);
+    }
+
     # method sech(Complex:D:) {
     #     1 / self.cosh;
     # }

diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -21,6 +21,8 @@ my class Cool {
     method asinh() { self.Numeric.asinh }
     method cosh()  { self.Numeric.cosh }
     method acosh() { self.Numeric.acosh }
+    method tanh()  { self.Numeric.tanh }
+    method atanh() { self.Numeric.atanh }
 
     ## string methods
 

diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -154,6 +154,10 @@ my class Num {
     multi method tanh(Num:D: ) {
         nqp::p6box_n(pir::tanh__NN(nqp::unbox_n(self)));
     }
+    proto method atanh(|$) {*}
+    multi method atanh(Num:D: ) {
+        ((1 + self) / (1 - self)).log / 2;
+    }
     proto method sech(|$) {*}
     multi method sech(Num:D: ) {
         nqp::p6box_n(pir::sech__NN(nqp::unbox_n(self)));

diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -116,6 +116,14 @@ proto sub acosh(|$) {*}
 multi sub acosh(Numeric \$x) { $x.acosh }
 multi sub acosh(Cool \$x)    { $x.Numeric.acosh }
 
+proto sub tanh(|$) {*}
+multi sub tanh(Numeric \$x) { $x.tanh }
+multi sub tanh(Cool \$x)    { $x.Numeric.tanh }
+
+proto sub atanh(|$) {*}
+multi sub atanh(Numeric \$x) { $x.atanh }
+multi sub atanh(Cool \$x)    { $x.Numeric.atanh }
+
 proto sub sqrt(|$) {*}
 multi sub sqrt(Numeric \$x) { $x.sqrt }
 multi sub sqrt(Cool \$x)    { $x.Numeric.sqrt }