blob: dc5d0c1612ec7e73fecb636fcd27e1d23ed151e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
/*************************************************************************
Mathematica source file
Copyright 1986 through 1999 by Wolfram Research Inc.
*************************************************************************/
/* C language definitions for use with Mathematica output */
#define Power(x, y) (pow((double)(x), (double)(y)))
#define Sqrt(x) (sqrt((double)(x)))
#define Abs(x) (fabs((double)(x)))
#define Exp(x) (exp((double)(x)))
#define Log(x) (log((double)(x)))
#define Sin(x) (sin((double)(x)))
#define Cos(x) (cos((double)(x)))
#define Tan(x) (tan((double)(x)))
#define ArcSin(x) (asin((double)(x)))
#define ArcCos(x) (acos((double)(x)))
#define ArcTan(x) (atan((double)(x)))
#define Sinh(x) (sinh((double)(x)))
#define Cosh(x) (cosh((double)(x)))
#define Tanh(x) (tanh((double)(x)))
#define E 2.71828182845904523536029
#define Pi 3.14159265358979323846264
#define Degree 0.01745329251994329576924
/** Could add definitions for Random(), SeedRandom(), etc. **/
|
