diff options
Diffstat (limited to 'src/elementaryFunctions/cosh/ccoshs.c')
| -rw-r--r-- | src/elementaryFunctions/cosh/ccoshs.c | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/elementaryFunctions/cosh/ccoshs.c b/src/elementaryFunctions/cosh/ccoshs.c index bfeac33a..3ead28df 100644 --- a/src/elementaryFunctions/cosh/ccoshs.c +++ b/src/elementaryFunctions/cosh/ccoshs.c @@ -5,14 +5,19 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Thu Dec 7 12:04:28 2006 jofret -** Last update Wed Jan 31 11:14:28 2007 jofret +** Last update Tue Feb 6 10:46:56 2007 jofret ** ** Copyright INRIA 2006 */ #include "floatComplex.h" +floatComplex ccoss(floatComplex); + +/** ch(z) = cos(i.z) */ floatComplex ccoshs(floatComplex z) { - /* FIXME: Dummy... */ - return z; + float real = creal(z); + float minusImag = -cimag(z); + + return (ccoss(FloatComplex(minusImag, real))); } |