180ee5cbfSDavid du Colombier #ifndef __MATH 280ee5cbfSDavid du Colombier #define __MATH 380ee5cbfSDavid du Colombier #pragma lib "/$M/lib/ape/libap.a" 480ee5cbfSDavid du Colombier 580ee5cbfSDavid du Colombier /* a HUGE_VAL appropriate for IEEE double-precision */ 680ee5cbfSDavid du Colombier /* the correct value, 1.797693134862316e+308, causes a ken overflow */ 780ee5cbfSDavid du Colombier #define HUGE_VAL 1.79769313486231e+308 880ee5cbfSDavid du Colombier 980ee5cbfSDavid du Colombier #ifdef __cplusplus 1080ee5cbfSDavid du Colombier extern "C" { 1180ee5cbfSDavid du Colombier #endif 1280ee5cbfSDavid du Colombier 1380ee5cbfSDavid du Colombier extern double acos(double); 1480ee5cbfSDavid du Colombier extern double asin(double); 1580ee5cbfSDavid du Colombier extern double atan(double); 1680ee5cbfSDavid du Colombier extern double atan2(double, double); 1780ee5cbfSDavid du Colombier extern double cos(double); 18*178702b1SDavid du Colombier extern double hypot(double, double); 1980ee5cbfSDavid du Colombier extern double sin(double); 2080ee5cbfSDavid du Colombier extern double tan(double); 2180ee5cbfSDavid du Colombier extern double cosh(double); 2280ee5cbfSDavid du Colombier extern double sinh(double); 2380ee5cbfSDavid du Colombier extern double tanh(double); 2480ee5cbfSDavid du Colombier extern double exp(double); 2580ee5cbfSDavid du Colombier extern double frexp(double, int *); 2680ee5cbfSDavid du Colombier extern double ldexp(double, int); 2780ee5cbfSDavid du Colombier extern double log(double); 2880ee5cbfSDavid du Colombier extern double log10(double); 2980ee5cbfSDavid du Colombier extern double modf(double, double *); 3080ee5cbfSDavid du Colombier extern double pow(double, double); 3180ee5cbfSDavid du Colombier extern double sqrt(double); 3280ee5cbfSDavid du Colombier extern double ceil(double); 3380ee5cbfSDavid du Colombier extern double fabs(double); 3480ee5cbfSDavid du Colombier extern double floor(double); 3580ee5cbfSDavid du Colombier extern double fmod(double, double); 3680ee5cbfSDavid du Colombier extern double NaN(void); 3780ee5cbfSDavid du Colombier extern int isNaN(double); 3880ee5cbfSDavid du Colombier extern double Inf(int); 3980ee5cbfSDavid du Colombier extern int isInf(double, int); 4080ee5cbfSDavid du Colombier 4180ee5cbfSDavid du Colombier #ifdef _RESEARCH_SOURCE 4280ee5cbfSDavid du Colombier /* does >> treat left operand as unsigned ? */ 4380ee5cbfSDavid du Colombier #define Unsigned_Shifts 1 443ff48bf5SDavid du Colombier #define M_E 2.7182818284590452354 /* e */ 453ff48bf5SDavid du Colombier #define M_LOG2E 1.4426950408889634074 /* log 2e */ 463ff48bf5SDavid du Colombier #define M_LOG10E 0.43429448190325182765 /* log 10e */ 473ff48bf5SDavid du Colombier #define M_LN2 0.69314718055994530942 /* log e2 */ 483ff48bf5SDavid du Colombier #define M_LN10 2.30258509299404568402 /* log e10 */ 493ff48bf5SDavid du Colombier #define M_PI 3.14159265358979323846 /* pi */ 503ff48bf5SDavid du Colombier #define M_PI_2 1.57079632679489661923 /* pi/2 */ 513ff48bf5SDavid du Colombier #define M_PI_4 0.78539816339744830962 /* pi/4 */ 523ff48bf5SDavid du Colombier #define M_1_PI 0.31830988618379067154 /* 1/pi */ 533ff48bf5SDavid du Colombier #define M_2_PI 0.63661977236758134308 /* 2/pi */ 543ff48bf5SDavid du Colombier #define M_2_SQRTPI 1.12837916709551257390 /* 2/sqrt(pi) */ 553ff48bf5SDavid du Colombier #define M_SQRT2 1.41421356237309504880 /* sqrt(2) */ 563ff48bf5SDavid du Colombier #define M_SQRT1_2 0.70710678118654752440 /* 1/sqrt(2) */ 573ff48bf5SDavid du Colombier 5880ee5cbfSDavid du Colombier extern double hypot(double, double); 59a6ef2390SDavid du Colombier extern double erf(double); 60a6ef2390SDavid du Colombier extern double erfc(double); 61a6ef2390SDavid du Colombier extern double j0(double); 62a6ef2390SDavid du Colombier extern double y0(double); 63a6ef2390SDavid du Colombier extern double j1(double); 64a6ef2390SDavid du Colombier extern double y1(double); 65a6ef2390SDavid du Colombier extern double jn(int, double); 66a6ef2390SDavid du Colombier extern double yn(int, double); 67a6ef2390SDavid du Colombier 6880ee5cbfSDavid du Colombier #endif 69a6ef2390SDavid du Colombier 70a6ef2390SDavid du Colombier 71a6ef2390SDavid du Colombier #ifdef __cplusplus 72a6ef2390SDavid du Colombier } 73a6ef2390SDavid du Colombier #endif 74a6ef2390SDavid du Colombier 75ac1798d1SDavid du Colombier #define isnan(x) isNaN(x) 76*178702b1SDavid du Colombier #define isinf(x) isInf(x, 0) 77ac1798d1SDavid du Colombier 7880ee5cbfSDavid du Colombier #endif /* __MATH */ 79