diff options
Diffstat (limited to 'src/elementaryFunctions/tan')
-rw-r--r-- | src/elementaryFunctions/tan/Makefile | 47 | ||||
-rw-r--r-- | src/elementaryFunctions/tan/ctans.c | 14 |
2 files changed, 10 insertions, 51 deletions
diff --git a/src/elementaryFunctions/tan/Makefile b/src/elementaryFunctions/tan/Makefile deleted file mode 100644 index 82a60e80..00000000 --- a/src/elementaryFunctions/tan/Makefile +++ /dev/null @@ -1,47 +0,0 @@ -## -## -*- makefile -*- -## -## Makefile -## Made by Bruno JOFRET <bruno.jofret@inria.fr> -## -## Started on Thu Nov 30 16:33:40 2006 jofret -## Last update Thu Mar 22 08:59:51 2007 jofret -## -## Copyright INRIA 2006 -## - -NAME = ../../lib/libTan.a - -RM = rm -f -CC = gcc -INCLUDE = -I ../../type -I ../includes -I ../../includes -LINK = -L ../../lib -CFLAGS = -Werror -Wall -pedantic -ansi $(INCLUDE) $(LINK) $(STANDARD) -AR = ar cru -RANLIB = ranlib - -SRC = stans.c \ - dtans.c \ - ctans.c \ - ztans.c \ - stana.c \ - dtana.c \ - ctana.c \ - ztana.c - -HEAD = ../includes/tan.h -OBJ = $(SRC:.c=.o) - -all: $(NAME) - -$(NAME) : $(HEAD) $(OBJ) - $(AR) $@ $(OBJ) - $(RANLIB) $@ - -clean: - $(RM) $(OBJ) - -distclean: clean - $(RM) $(NAME) - -re: clean all diff --git a/src/elementaryFunctions/tan/ctans.c b/src/elementaryFunctions/tan/ctans.c index a5dbf153..5c4e17fd 100644 --- a/src/elementaryFunctions/tan/ctans.c +++ b/src/elementaryFunctions/tan/ctans.c @@ -5,21 +5,27 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Thu Dec 7 12:04:28 2006 jofret -** Last update Wed Mar 21 16:23:08 2007 jofret +** Last update Sun Mar 25 12:23:06 2007 bruno ** ** Copyright INRIA 2006 */ #include "tan.h" -#include "log.h" +/* + #include "log.h" +*/ #include "sqrt.h" -#include "lapack.h" +/* + #include "lapack.h" +*/ floatComplex ctans(floatComplex z) { double out_real = 0; double out_imag = 0; - double L = 1 + dlogs(2 / dsqrts(dlamch('e', 1))); + /* + double L = 1 + dlogs(2 / dsqrts(dlamch('e', 1))); + */ return FloatComplex(out_real, out_imag); } |