From 85c7a2e39d24c29a079a47e5c75e88c468756e5d Mon Sep 17 00:00:00 2001
From: jofret
Date: Tue, 13 Feb 2007 16:14:33 +0000
Subject: * src/elementaryFunctions/tanh/ztanhs.c : Fixed with C99 Complex but
 Scilab computation. * src/elementaryFunctions/tanh/ctanhs.c : Fixed with C99
 Complex but Scilab computation. * src/auxiliaryFunctions/find : Find not null
 element in list. * src/auxiliaryFunctions/find/{sdcz}finda.c : Implementation
 : s(float) d(double) 		 c(floatComplex) z(doubleComplex) *
 src/auxiliaryFunctions/find/find.h : Interface. *
 src/auxiliaryFunctions/find/notFound.h : Constant if all elements are not
 null.

Adding some other functions.

---
 src/elementaryFunctions/tanh/ztanhs.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'src/elementaryFunctions/tanh/ztanhs.c')

diff --git a/src/elementaryFunctions/tanh/ztanhs.c b/src/elementaryFunctions/tanh/ztanhs.c
index 0e11adfb..3c2498a7 100644
--- a/src/elementaryFunctions/tanh/ztanhs.c
+++ b/src/elementaryFunctions/tanh/ztanhs.c
@@ -5,14 +5,20 @@
 ** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
 **
 ** Started on  Thu Dec  7 12:05:48 2006 jofret
-** Last update Wed Jan 31 10:56:10 2007 jofret
+** Last update Tue Feb 13 10:47:24 2007 jofret
 **
 ** Copyright INRIA 2006
 */
 
 #include "doubleComplex.h"
 
+doubleComplex		ztans(doubleComplex);
+
 doubleComplex		ztanhs(doubleComplex z) {
-  /* FIXME: Dummy... */
+  double real = creal(z);
+  double imag = cimag(z);
+
+  doubleComplex result = ztans(DoubleComplex(-imag, real));
+  return (DoubleComplex(cimag(result), -creal(result)));
   return (DoubleComplex(0,1));
 }
-- 
cgit