diff options
Diffstat (limited to 'Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h')
-rw-r--r-- | Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 33 |
1 files changed, 32 insertions, 1 deletions
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h index a0e5540..252116c 100644 --- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h +++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h @@ -1,14 +1,45 @@ + +#define Power(x, y) (pow(x,y)) +#define Sqrt(x) (sqrt(x)) + + #ifdef KRANC_C +# define Abs(x) (fabs(x)) +# define Min(x, y) (fmin(x,y)) +# define Max(x, y) (fmax(x,y)) # define IfThen(x,y,z) ((x) ? (y) : (z)) #else # define Abs(x) (abs(x)) # define IntAbs(x) (abs(x)) # define Min(x, y) (min(x,y)) # define Max(x, y) (max(x,y)) -# define Sqrt(x) (sqrt(x)) # define IfThen(x,y,z) ((x)*(y) + (1-(x))*(z)) #endif +#define Exp(x) (exp(x)) +#define Log(x) (log(x)) + +#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 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 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( (CCTK_REAL) 1.0,(CCTK_REAL) (x))) # define ToReal(x) ((CCTK_REAL)(x)) |