diff options
| author | jofret | 2007-09-11 16:02:09 +0000 |
|---|---|---|
| committer | jofret | 2007-09-11 16:02:09 +0000 |
| commit | a6e5fe5da63ed2dd8db74504075abacd2d557754 (patch) | |
| tree | 6b42401bfecf6fb89a170862b184de119eebc1ee /src/elementaryFunctions/exp10/zexp10s.c | |
| parent | 110650613fca7f68c4e683c7fb1b4cc0eb9279ee (diff) | |
| download | scilab2c-a6e5fe5da63ed2dd8db74504075abacd2d557754.tar.gz scilab2c-a6e5fe5da63ed2dd8db74504075abacd2d557754.tar.bz2 scilab2c-a6e5fe5da63ed2dd8db74504075abacd2d557754.zip | |
End of prototyping all elementary functions.
Just need some code (wait for an internship).
Diffstat (limited to 'src/elementaryFunctions/exp10/zexp10s.c')
| -rw-r--r-- | src/elementaryFunctions/exp10/zexp10s.c | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/elementaryFunctions/exp10/zexp10s.c b/src/elementaryFunctions/exp10/zexp10s.c new file mode 100644 index 00000000..55a88cff --- /dev/null +++ b/src/elementaryFunctions/exp10/zexp10s.c @@ -0,0 +1,23 @@ +/* +** -*- C -*- +** +** zexp10s.c +** Made by Bruno JOFRET <bruno.jofret@inria.fr> +** +** Started on Thu Dec 7 12:05:48 2006 jofret +** Last update Thu Sep 6 16:56:19 2007 bruno +** +** Copyright INRIA 2006 +*/ + +#include "exp10.h" +#include "cos.h" +#include "sin.h" + +doubleComplex zexp10s(doubleComplex z) { + double real = zreals(z); + double imag = zimags(z); + + return DoubleComplex(dexp10s(real)*dcoss(imag), + dexp10s(real)*dsins(imag)); +} |