1 #ifndef __MATH 2 #define __MATH 3 #pragma lib "/$M/lib/ape/libap.a" 4 5 /* a HUGE_VAL appropriate for IEEE double-precision */ 6 /* the correct value, 1.797693134862316e+308, causes a ken overflow */ 7 #define HUGE_VAL 1.79769313486231e+308 8 9 #ifdef __cplusplus 10 extern "C" { 11 #endif 12 13 extern double acos(double); 14 extern double asin(double); 15 extern double atan(double); 16 extern double atan2(double, double); 17 extern double cos(double); 18 extern double sin(double); 19 extern double tan(double); 20 extern double cosh(double); 21 extern double sinh(double); 22 extern double tanh(double); 23 extern double exp(double); 24 extern double frexp(double, int *); 25 extern double ldexp(double, int); 26 extern double log(double); 27 extern double log10(double); 28 extern double modf(double, double *); 29 extern double pow(double, double); 30 extern double sqrt(double); 31 extern double ceil(double); 32 extern double fabs(double); 33 extern double floor(double); 34 extern double fmod(double, double); 35 extern double NaN(void); 36 extern int isNaN(double); 37 extern double Inf(int); 38 extern int isInf(double, int); 39 40 #ifdef __cplusplus 41 } 42 #endif 43 44 #ifdef _RESEARCH_SOURCE 45 /* does >> treat left operand as unsigned ? */ 46 #define Unsigned_Shifts 1 47 #define M_E 2.7182818284590452354 /* e */ 48 #define M_LOG2E 1.4426950408889634074 /* log 2e */ 49 #define M_LOG10E 0.43429448190325182765 /* log 10e */ 50 #define M_LN2 0.69314718055994530942 /* log e2 */ 51 #define M_LN10 2.30258509299404568402 /* log e10 */ 52 #define M_PI 3.14159265358979323846 /* pi */ 53 #define M_PI_2 1.57079632679489661923 /* pi/2 */ 54 #define M_PI_4 0.78539816339744830962 /* pi/4 */ 55 #define M_1_PI 0.31830988618379067154 /* 1/pi */ 56 #define M_2_PI 0.63661977236758134308 /* 2/pi */ 57 #define M_2_SQRTPI 1.12837916709551257390 /* 2/sqrt(pi) */ 58 #define M_SQRT2 1.41421356237309504880 /* sqrt(2) */ 59 #define M_SQRT1_2 0.70710678118654752440 /* 1/sqrt(2) */ 60 61 62 extern double hypot(double, double); 63 #endif 64 #endif /* __MATH */ 65