From 4887092b4731a40a970cfd0f867287e45db06955 Mon Sep 17 00:00:00 2001
From: jofret
Date: Tue, 20 May 2008 15:00:41 +0000
Subject: * Adding atanh Algorithm * Update file License * Need some tests
 improvement

---
 src/elementaryFunctions/atanh/catanhs.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/elementaryFunctions/atanh/catanhs.c')

diff --git a/src/elementaryFunctions/atanh/catanhs.c b/src/elementaryFunctions/atanh/catanhs.c
index 92af66b3..8c975154 100644
--- a/src/elementaryFunctions/atanh/catanhs.c
+++ b/src/elementaryFunctions/atanh/catanhs.c
@@ -11,8 +11,10 @@
  */
 
 #include "atanh.h"
+#include "atan.h"
 
 floatComplex		catanhs(floatComplex z) {
-  /* FIXME : Let's code...  */
-  return z;
+  floatComplex minus_i_z = FloatComplex(cimags(z), -creals(z));
+  floatComplex atan_minus_i_z = catans(minus_i_z);
+  return FloatComplex(-cimags(atan_minus_i_z), creals(atan_minus_i_z));
 }
-- 
cgit