From 4a2b346f93232ee6da77bc0b04d9a3ba04025d32 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Fri, 25 Nov 2011 22:02:15 -0500 Subject: Implement more trigonimetric functions Implement more trigonimetric functions: sec csc cot arcset arccsc arccot sech csch coth --- .../KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'Auxiliary/Cactus') diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h index d2a1b0d..ed63362 100644 --- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h +++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h @@ -21,18 +21,23 @@ #define Sin(x) (sin(x)) #define Cos(x) (cos(x)) #define Tan(x) (tan(x)) +#define Sec(x) (1.0/cos(x)) +#define Csc(x) (1.0/sin(x)) +#define Cot(x) (1.0/tan(x)) #define ArcSin(x) (asin(x)) #define ArcCos(x) (acos(x)) #define ArcTan(x) (atan(x)) -#define ArcTan2(x,y) (atan2(y,x)) +#define ArcSec(x) (cos(1.0/(x))) +#define ArcCsc(x) (sin(1.0/(x))) +#define ArcCot(x) (tan(1.0/(x))) #define Sinh(x) (sinh(x)) #define Cosh(x) (cosh(x)) #define Tanh(x) (tanh(x)) - -#define Csch(x) (1./sinh(x)) -#define Sech(x) (1./cosh(x)) +#define Sech(x) (1.0/cosh(x)) +#define Csch(x) (1.0/sinh(x)) +#define Coth(x) (1.0/tanh(x)) #ifdef KRANC_C # define Sign(x) (copysign(1.0,(x))) -- cgit v1.2.3