* src/elementaryFunctions/sinh/zsinhs.c

Fixed with C99 Complex but Scilab computation.
* src/elementaryFunctions/sinh/csinhs.c
Fixed with C99 Complex but Scilab computation.

Fix some mistakes

2 files changed, 16 insertions, 6 deletions

diff --git a/src/elementaryFunctions/sinh/csinhs.c b/src/elementaryFunctions/sinh/csinhs.c
index 4cac792b..53632cb7 100644
--- a/src/elementaryFunctions/sinh/csinhs.c
+++ b/src/elementaryFunctions/sinh/csinhs.c
@@ -5,14 +5,19 @@
 ** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
 **
 ** Started on  Fri Dec  8 12:04:39 2006 jofret
-** Last update Wed Jan 31 11:12:44 2007 jofret
+** Last update Mon Feb 12 16:15:52 2007 jofret
 **
 ** Copyright INRIA 2006
 */
 
 #include "floatComplex.h"
 
+floatComplex	csins(floatComplex);
+
 floatComplex csinhs(floatComplex z) {
-  /* FIXME: Dummy... */
-  return z;
+  float real = creal(z);
+  float imag = cimag(z);
+
+  floatComplex result = csins(FloatComplex(-imag, real));
+  return (FloatComplex(cimag(result), -creal(result)));
 }
diff --git a/src/elementaryFunctions/sinh/zsinhs.c b/src/elementaryFunctions/sinh/zsinhs.c
index 7fc3b23f..7aeb2bf3 100644
--- a/src/elementaryFunctions/sinh/zsinhs.c
+++ b/src/elementaryFunctions/sinh/zsinhs.c
@@ -5,14 +5,19 @@
 ** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
 **
 ** Started on  Fri Dec  8 12:06:35 2006 jofret
-** Last update Wed Jan 31 11:12:22 2007 jofret
+** Last update Mon Feb 12 16:38:29 2007 jofret
 **
 ** Copyright INRIA 2006
 */
 
 #include "doubleComplex.h"
 
+doubleComplex	zsins(doubleComplex);
+
 doubleComplex	zsinhs(doubleComplex z) {
-  /* FIXME: Dummy... */
-  return z;
+  double real = creal(z);
+  double imag = cimag(z);
+
+  doubleComplex result = zsins(DoubleComplex(-imag, real));
+  return (DoubleComplex(cimag(result), -creal(result)));
 }