diff options
| -rw-r--r-- | ChangeLog | 15 | ||||
| -rw-r--r-- | src/elementaryFunctions/sinh/csinhs.c | 11 | ||||
| -rw-r--r-- | src/elementaryFunctions/sinh/zsinhs.c | 11 |
3 files changed, 27 insertions, 10 deletions
@@ -1,8 +1,15 @@ +2007-02-12 Bruno JOFRET <bruno.jofret@inria.fr> + + * src/elementaryFunctions/sinh/zsinhs.c + Fixed with C99 Complex but Scilab computation. + * src/elementaryFunctions/sinh/csinhs.c + Fixed with C99 Complex but Scilab computation. + 2007-02-09 Bruno JOFRET <bruno.jofret@inria.fr> - * src/elementaryFunctions/cexps.c : + * src/elementaryFunctions/exp/cexps.c : Implementation. - * src/elementaryFunctions/zexps.c : + * src/elementaryFunctions/exp/zexps.c : Implementation. 2007-02-08 Bruno JOFRET <bruno.jofret@inria.fr> @@ -25,9 +32,9 @@ Fixed with C99 Complex but Scilab computation. * src/elementaryFunctions/cosh/ccoshs.c Fixed with C99 Complex but Scilab computation. - * src/elementaryFunctions/cosh/zsins.c + * src/elementaryFunctions/sin/zsins.c Fixed with C99 Complex but Scilab computation. - * src/elementaryFunctions/cosh/csins.c + * src/elementaryFunctions/sin/csins.c Fixed with C99 Complex but Scilab computation. 2007-02-05 Bruno JOFRET <bruno.jofret@inria.fr> 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))); } |