/* math.h
Definitions for the math floating point package.
Copyright (c) Borland International 1987,1988
All Rights Reserved.
*/
#if __STDC__
#define _Cdecl
#else
#define _Cdecl cdecl
#endif
#ifndef _MATH_H
#define _MATH_H 1
#define EDOM 33 /* Math argument */
#define ERANGE 34 /* Result too large */
#define HUGE_VAL _huge_dble
extern double _Cdecl _huge_dble;
int _Cdecl abs (int x);
double _Cdecl acos (double x);
double _Cdecl asin (double x);
double _Cdecl atan (double x);
double _Cdecl atan2 (double y, double x);
double _Cdecl atof (const char *s);
double _Cdecl ceil (double x);
double _Cdecl cos (double x);
double _Cdecl cosh (double x);
double _Cdecl exp (double x);
double _Cdecl fabs (double x);
double _Cdecl floor (double x);
double _Cdecl fmod (double x, double y);
double _Cdecl frexp (double x, int *exponent);
long _Cdecl labs (long x);
double _Cdecl ldexp (double x, int exponent);
double _Cdecl log (double x);
double _Cdecl log10 (double x);
double _Cdecl modf (double x, double *ipart);
double _Cdecl pow (double x, double y);
double _Cdecl sin (double x);
double _Cdecl sinh (double x);
double _Cdecl sqrt (double x);
double _Cdecl tan (double x);
double _Cdecl tanh (double x);
struct exception
{
int type;
char *name;
double arg1, arg2, retval;
};
int _Cdecl matherr (struct exception *e);
#if !__STDC__
double cdecl hypot (double x, double y);
double cdecl poly (double x, int degree, double coeffs []);
double cdecl pow10 (int p);
struct complex /* as used by "cabs" function */
{
double x, y;
};
#define cabs(z) (hypot ((z).x, (z).y))
/* The customary matherr() exception handler for maths functions is
not compatible with the x3j11 draft standard for C. _matherr() is
provided as a compromise.
*/
typedef enum
{
DOMAIN = 1, /* argument domain error -- log (-1) */
SING, /* argument singularity -- pow (0,-2)) */
OVERFLOW, /* overflow range error -- exp (1000) */
UNDERFLOW, /* underflow range error -- exp (-1000) */
TLOSS, /* total loss of significance -- sin(10e70) */
PLOSS, /* partial loss of signif. -- not used */
} _mexcep;
double _Cdecl _matherr (_mexcep why, char *fun, double *arg1p,
double *arg2p, double retval);
/* Constants rounded for 21 decimals. */
#define M_E 2.71828182845904523536
#define M_LOG2E 1.44269504088896340736
#define M_LOG10E 0.434294481903251827651
#define M_LN2 0.693147180559945309417
#define M_LN10 2.30258509299404568402
#define M_PI 3.14159265358979323846
#define M_PI_2 1.57079632679489661923
#define M_PI_4 0.785398163397448309116
#define M_1_PI 0.318309886183790671538
#define M_2_PI 0.636619772367581343076
#define M_1_SQRTPI 0.564189583547756286948
#define M_2_SQRTPI 1.12837916709551257390
#define M_SQRT2 1.41421356237309504880
#define M_SQRT_2 0.707106781186547524401
#endif /* __STDC__ */
#endif