From d692e4aaca712215f732e81ff4f494afc06da5c4 Mon Sep 17 00:00:00 2001
From: jofret
Date: Wed, 7 Feb 2007 07:36:06 +0000
Subject: * src/elementaryFunctions/cosh/zcoshs.c Fixed with C99 Complex but
 Scilab computation. * src/elementaryFunctions/cosh/ccoshs.c Fixed with C99
 Complex but Scilab computation. * src/elementaryFunctions/cosh/zsins.c Fixed
 with C99 Complex but Scilab computation. *
 src/elementaryFunctions/cosh/csins.c Fixed with C99 Complex but Scilab
 computation.

---
 src/elementaryFunctions/cosh/ccoshs.c | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'src/elementaryFunctions/cosh/ccoshs.c')

diff --git a/src/elementaryFunctions/cosh/ccoshs.c b/src/elementaryFunctions/cosh/ccoshs.c
index bfeac33a..3ead28df 100644
--- a/src/elementaryFunctions/cosh/ccoshs.c
+++ b/src/elementaryFunctions/cosh/ccoshs.c
@@ -5,14 +5,19 @@
 ** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
 **
 ** Started on  Thu Dec  7 12:04:28 2006 jofret
-** Last update Wed Jan 31 11:14:28 2007 jofret
+** Last update Tue Feb  6 10:46:56 2007 jofret
 **
 ** Copyright INRIA 2006
 */
 
 #include "floatComplex.h"
 
+floatComplex	ccoss(floatComplex);
+
+/** ch(z) = cos(i.z) */
 floatComplex		ccoshs(floatComplex z) {
-  /* FIXME: Dummy... */
-  return z;
+  float real = creal(z);
+  float minusImag = -cimag(z);
+
+  return (ccoss(FloatComplex(minusImag, real)));
 }
-- 
cgit