diff options
Diffstat (limited to 'src/elementaryFunctions')
| -rw-r--r-- | src/elementaryFunctions/cos/ccoss.c | 14 | ||||
| -rw-r--r-- | src/elementaryFunctions/cos/zcoss.c | 14 |
2 files changed, 22 insertions, 6 deletions
diff --git a/src/elementaryFunctions/cos/ccoss.c b/src/elementaryFunctions/cos/ccoss.c index 79c18fb4..91a822fa 100644 --- a/src/elementaryFunctions/cos/ccoss.c +++ b/src/elementaryFunctions/cos/ccoss.c @@ -5,14 +5,22 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Thu Dec 7 12:04:28 2006 jofret -** Last update Wed Jan 31 10:19:53 2007 jofret +** Last update Mon Feb 5 17:24:00 2007 jofret ** ** Copyright INRIA 2006 */ #include "floatComplex.h" +float scoss(float); +float scoshs(float); +float ssins(float); +float ssinhs(float); + floatComplex ccoss(floatComplex z) { - /* FIXME: Dummy... */ - return z; + float real = creal(z); + float imag = cimag(z); + + return FloatComplex(scoss(real) * scoshs(imag), + -ssins(real) * ssinhs(imag)); } diff --git a/src/elementaryFunctions/cos/zcoss.c b/src/elementaryFunctions/cos/zcoss.c index f12391de..c5fe96bc 100644 --- a/src/elementaryFunctions/cos/zcoss.c +++ b/src/elementaryFunctions/cos/zcoss.c @@ -5,14 +5,22 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Thu Dec 7 12:05:48 2006 jofret -** Last update Wed Jan 31 10:19:12 2007 jofret +** Last update Mon Feb 5 17:25:27 2007 jofret ** ** Copyright INRIA 2006 */ #include "doubleComplex.h" +double dcoss(double); +double dcoshs(double); +double dsins(double); +double dsinhs(double); + doubleComplex zcoss(doubleComplex z) { - /* FIXME: Dummy... */ - return (DoubleComplex(0,1)); + double real = creal(z); + double imag = cimag(z); + + return DoubleComplex(dcoss(real) * dcoshs(imag), + -dsins(real) * dsinhs(imag)); } |