diff options
Diffstat (limited to 'src/elementaryFunctions/tanh/ctanhs.c')
| -rw-r--r-- | src/elementaryFunctions/tanh/ctanhs.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/elementaryFunctions/tanh/ctanhs.c b/src/elementaryFunctions/tanh/ctanhs.c index 6eb84827..aae62956 100644 --- a/src/elementaryFunctions/tanh/ctanhs.c +++ b/src/elementaryFunctions/tanh/ctanhs.c @@ -5,14 +5,20 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Thu Dec 7 12:04:28 2006 jofret -** Last update Wed Jan 31 10:56:39 2007 jofret +** Last update Tue Feb 13 11:03:07 2007 jofret ** ** Copyright INRIA 2006 */ #include "floatComplex.h" +floatComplex ctans(floatComplex); + floatComplex ctanhs(floatComplex z) { - /* FIXME: Dummy... */ + float real = creal(z); + float imag = cimag(z); + + floatComplex result = ctans(FloatComplex(-imag, real)); + return (FloatComplex(cimag(result), -creal(result))); return z; } |