1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/*
* MATH.H -- Math functions for C.
*/
double XEXP(), XLOG(), XLOG10(), XPOW(), XSQRT();
double XSIN(), XCOS(), XASIN(), XACOS(), XTAN(), XATAN(), XATAN2();
static double um_x, um_y;
#define nint(x) XNINT((um_x=(x),&um_x))
#define exp(x) XEXP((um_x=(x),&um_x))
#define log(x) XLOG((um_x=(x),&um_x))
#define log10(x) XLOG10((um_x=(x),&um_x))
#define pow(x,y) XPOW((um_x=(x),&um_x),(um_y=(y),&um_y))
#define sqrt(x) XSQRT((um_x=(x),&um_x))
#define sin(x) XSIN((um_x=(x),&um_x))
#define cos(x) XCOS((um_x=(x),&um_x))
#define tan(x) XTAN((um_x=(x),&um_x))
#define asin(x) XASIN((um_x=(x),&um_x))
#define acos(x) XACOS((um_x=(x),&um_x))
#define atan(x) XATAN((um_x=(x),&um_x))
#define atan2(x,y) XATAN2((um_x=(x),&um_x),(um_y=(y),&um_y))
#define D_math
|
