diff options
-rw-r--r-- | Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 13 |
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))) |