diff options
| author | jofret | 2007-02-07 07:36:06 +0000 |
|---|---|---|
| committer | jofret | 2007-02-07 07:36:06 +0000 |
| commit | d692e4aaca712215f732e81ff4f494afc06da5c4 (patch) | |
| tree | 5ef9977c0efccb0d6f8a6579fa036c7870da4638 /src/elementaryFunctions/cosh/zcoshs.c | |
| parent | 4eebffd88476ff84eaae4b55f79d13e63893e416 (diff) | |
| download | scilab2c-d692e4aaca712215f732e81ff4f494afc06da5c4.tar.gz scilab2c-d692e4aaca712215f732e81ff4f494afc06da5c4.tar.bz2 scilab2c-d692e4aaca712215f732e81ff4f494afc06da5c4.zip | |
* 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.
Diffstat (limited to 'src/elementaryFunctions/cosh/zcoshs.c')
| -rw-r--r-- | src/elementaryFunctions/cosh/zcoshs.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/elementaryFunctions/cosh/zcoshs.c b/src/elementaryFunctions/cosh/zcoshs.c index c9436928..816e9022 100644 --- a/src/elementaryFunctions/cosh/zcoshs.c +++ b/src/elementaryFunctions/cosh/zcoshs.c @@ -5,14 +5,18 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Thu Dec 7 12:05:48 2006 jofret -** Last update Wed Jan 31 11:14:07 2007 jofret +** Last update Tue Feb 6 10:48:24 2007 jofret ** ** Copyright INRIA 2006 */ #include "doubleComplex.h" +doubleComplex zcoss(doubleComplex); + doubleComplex zcoshs(doubleComplex z) { - /* FIXME: Dummy... */ - return (DoubleComplex(0,1)); + double real = creal(z); + double minusImag = -cimag(z); + + return (zcoss(DoubleComplex(minusImag, real))); } |