diff options
Diffstat (limited to 'src/elementaryFunctions/sinh/zsinhs.c')
| -rw-r--r-- | src/elementaryFunctions/sinh/zsinhs.c | 11 |
1 files changed, 8 insertions, 3 deletions
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))); } |