|
| 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 _RESEARCH_SOURCE |
| 41 | +/* does >> treat left operand as unsigned ? */ |
| 42 | +#define Unsigned_Shifts 1 |
| 43 | +#define M_E 2.7182818284590452354 /* e */ |
| 44 | +#define M_LOG2E 1.4426950408889634074 /* log 2e */ |
| 45 | +#define M_LOG10E 0.43429448190325182765 /* log 10e */ |
| 46 | +#define M_LN2 0.69314718055994530942 /* log e2 */ |
| 47 | +#define M_LN10 2.30258509299404568402 /* log e10 */ |
| 48 | +#define M_PI 3.14159265358979323846 /* pi */ |
| 49 | +#define M_PI_2 1.57079632679489661923 /* pi/2 */ |
| 50 | +#define M_PI_4 0.78539816339744830962 /* pi/4 */ |
| 51 | +#define M_1_PI 0.31830988618379067154 /* 1/pi */ |
| 52 | +#define M_2_PI 0.63661977236758134308 /* 2/pi */ |
| 53 | +#define M_2_SQRTPI 1.12837916709551257390 /* 2/sqrt(pi) */ |
| 54 | +#define M_SQRT2 1.41421356237309504880 /* sqrt(2) */ |
| 55 | +#define M_SQRT1_2 0.70710678118654752440 /* 1/sqrt(2) */ |
| 56 | + |
| 57 | +extern double hypot(double, double); |
| 58 | +extern double erf(double); |
| 59 | +extern double erfc(double); |
| 60 | +extern double j0(double); |
| 61 | +extern double y0(double); |
| 62 | +extern double j1(double); |
| 63 | +extern double y1(double); |
| 64 | +extern double jn(int, double); |
| 65 | +extern double yn(int, double); |
| 66 | + |
| 67 | +#endif |
| 68 | + |
| 69 | + |
| 70 | +#ifdef __cplusplus |
| 71 | +} |
| 72 | +#endif |
| 73 | + |
| 74 | +#endif /* __MATH */ |
0 commit comments