diff options
| author | jofret | 2007-02-13 16:14:33 +0000 |
|---|---|---|
| committer | jofret | 2007-02-13 16:14:33 +0000 |
| commit | 85c7a2e39d24c29a079a47e5c75e88c468756e5d (patch) | |
| tree | 9c117457508ef57ffbca9d1a02aab2c2af65976d /src/elementaryFunctions/tanh/ztanhs.c | |
| parent | cd57b12f621082f87255daf100a66eb01e5ae1d7 (diff) | |
| download | scilab2c-85c7a2e39d24c29a079a47e5c75e88c468756e5d.tar.gz scilab2c-85c7a2e39d24c29a079a47e5c75e88c468756e5d.tar.bz2 scilab2c-85c7a2e39d24c29a079a47e5c75e88c468756e5d.zip | |
* src/elementaryFunctions/tanh/ztanhs.c :
Fixed with C99 Complex but Scilab computation.
* src/elementaryFunctions/tanh/ctanhs.c :
Fixed with C99 Complex but Scilab computation.
* src/auxiliaryFunctions/find :
Find not null element in list.
* src/auxiliaryFunctions/find/{sdcz}finda.c :
Implementation : s(float) d(double)
c(floatComplex) z(doubleComplex)
* src/auxiliaryFunctions/find/find.h :
Interface.
* src/auxiliaryFunctions/find/notFound.h :
Constant if all elements are not null.
Adding some other functions.
Diffstat (limited to 'src/elementaryFunctions/tanh/ztanhs.c')
| -rw-r--r-- | src/elementaryFunctions/tanh/ztanhs.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/elementaryFunctions/tanh/ztanhs.c b/src/elementaryFunctions/tanh/ztanhs.c index 0e11adfb..3c2498a7 100644 --- a/src/elementaryFunctions/tanh/ztanhs.c +++ b/src/elementaryFunctions/tanh/ztanhs.c @@ -5,14 +5,20 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Thu Dec 7 12:05:48 2006 jofret -** Last update Wed Jan 31 10:56:10 2007 jofret +** Last update Tue Feb 13 10:47:24 2007 jofret ** ** Copyright INRIA 2006 */ #include "doubleComplex.h" +doubleComplex ztans(doubleComplex); + doubleComplex ztanhs(doubleComplex z) { - /* FIXME: Dummy... */ + double real = creal(z); + double imag = cimag(z); + + doubleComplex result = ztans(DoubleComplex(-imag, real)); + return (DoubleComplex(cimag(result), -creal(result))); return (DoubleComplex(0,1)); } |