diff options
| author | jofret | 2007-03-23 16:09:04 +0000 |
|---|---|---|
| committer | jofret | 2007-03-23 16:09:04 +0000 |
| commit | 44836c0973bf1069981f46b877d31a80cee051a4 (patch) | |
| tree | a49e5fd09e1a476d2df87884f63279f55a0ecf5b /src/elementaryFunctions/tan/ctans.c | |
| parent | e6dbdbebea2d3f0da1e636ea40de35f382c71e61 (diff) | |
| download | scilab2c-44836c0973bf1069981f46b877d31a80cee051a4.tar.gz scilab2c-44836c0973bf1069981f46b877d31a80cee051a4.tar.bz2 scilab2c-44836c0973bf1069981f46b877d31a80cee051a4.zip | |
Autotools...
Diffstat (limited to 'src/elementaryFunctions/tan/ctans.c')
| -rw-r--r-- | src/elementaryFunctions/tan/ctans.c | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/elementaryFunctions/tan/ctans.c b/src/elementaryFunctions/tan/ctans.c index f083a506..a5dbf153 100644 --- a/src/elementaryFunctions/tan/ctans.c +++ b/src/elementaryFunctions/tan/ctans.c @@ -5,14 +5,21 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Thu Dec 7 12:04:28 2006 jofret -** Last update Fri Feb 23 17:25:49 2007 jofret +** Last update Wed Mar 21 16:23:08 2007 jofret ** ** Copyright INRIA 2006 */ #include "tan.h" +#include "log.h" +#include "sqrt.h" +#include "lapack.h" floatComplex ctans(floatComplex z) { - /* FIXME: Dummy... */ - return z; + + double out_real = 0; + double out_imag = 0; + double L = 1 + dlogs(2 / dsqrts(dlamch('e', 1))); + + return FloatComplex(out_real, out_imag); } |