Implement more trigonimetric functions

Implement more trigonimetric functions: sec csc cot arcset arccsc
arccot sech csch coth

1 files changed, 9 insertions, 4 deletions

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)))