Full support for Complex tanh and atanh.

rakudo · Oct 3, 2009 · d5b578b · d5b578b
1 parent fc29434
commit d5b578b
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 4 deletions.
diff --git a/src/setting/Any-num.pm b/src/setting/Any-num.pm
@@ -122,7 +122,7 @@ class Any is also {
         self.Num.cosh($base);
     }
 
-    our Num multi method tanh($base = 'radians') is export {
+    our Num multi method tanh($base = 'radians') {
         self.Num.tanh($base);
     }
 
@@ -174,7 +174,7 @@ class Any is also {
         self.Num.acosh($base);
     }
 
-    our Num multi method atanh($base = 'radians') is export {
+    our Num multi method atanh($base = 'radians') {
         self.Num.atanh($base);
     }
 
@@ -260,6 +260,14 @@ multi sub acosh($x, $base = 'radians') {
     $x.acosh($base)
 }
 
+multi sub tanh($x, $base = 'radians') {
+    $x.tanh($base)
+}
+
+multi sub atanh($x, $base = 'radians') {
+    $x.atanh($base)
+}
+
 our Num sub rand (*@args) {
     die "too many arguments passed - 0 params expected" if @args;
     1.rand

diff --git a/src/setting/Complex.pm b/src/setting/Complex.pm
@@ -88,6 +88,14 @@ class Complex {
         (self + sqrt(self * self - 1)).log!from-radians($base);
     }
 
+    multi method tanh($base = 'radians') {
+        -((1i * self).tan($base))i;
+    }
+
+    multi method atanh($base = 'radians') {
+        (((1 + self) / (1 - self)).log / 2)!from-radians($base);
+    }
+
     multi method log() {
         Q:PIR {
             $P0 = get_root_namespace ['parrot'; 'Complex' ]

diff --git a/src/setting/Num.pm b/src/setting/Num.pm
@@ -153,7 +153,7 @@ class Num is also {
         $r!from-radians($base)
     }
 
-    our Num multi method atanh($base = 'radians') is export {
+    our Num multi method atanh($base = 'radians') {
         my $r = Q:PIR {
             $N0 = self
             $N1 = 1 - $N0
@@ -316,7 +316,7 @@ class Num is also {
         }
     }
 
-    our Num multi method tanh($base = 'radians') is export {
+    our Num multi method tanh($base = 'radians') {
         my $x = self!to-radians($base);
         Q:PIR {
             $P0 = find_lex "$x"