home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / g / gnu_c / pmlsrc23.zoo / pmlsrc / math.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-03-19  |  5.6 KB  |  206 lines
  1. #ifndef _MATH_H
  2. #define _MATH_H
  3.  
  4. /************************************************************************
  5.  *                                    *
  6.  *                N O T I C E                *
  7.  *                                    *
  8.  *            Copyright Abandoned, 1987, Fred Fish        *
  9.  *                                    *
  10.  *    This previously copyrighted work has been placed into the    *
  11.  *    public domain by the author (Fred Fish) and may be freely used    *
  12.  *    for any purpose, private or commercial.  I would appreciate    *
  13.  *    it, as a courtesy, if this notice is left in all copies and    *
  14.  *    derivative works.  Thank you, and enjoy...            *
  15.  *                                    *
  16.  *    The author makes no warranty of any kind with respect to this    *
  17.  *    product and explicitly disclaims any implied warranties of    *
  18.  *    merchantability or fitness for any particular purpose.        *
  19.  *                                    *
  20.  ************************************************************************
  21.  */
  22.  
  23.  
  24. /*
  25.  *  FILE
  26.  *
  27.  *    math.h    include file for users of portable math library
  28.  *
  29.  *  SYNOPSIS
  30.  *
  31.  *    #include <math.h>
  32.  *
  33.  *  DESCRIPTION
  34.  *
  35.  *    This file should be included in any user compilation module
  36.  *    which accesses routines from the Portable Math Library (PML).
  37.  *
  38.  */
  39.  
  40.  
  41. #ifndef _COMPILER_H
  42. #include <compiler.h>
  43. #endif
  44.  
  45. #ifdef __cplusplus
  46. extern "C" {
  47. #endif
  48.  
  49. #ifdef __TURBOC__
  50.  
  51. #include <tcmath.h>
  52.  
  53. #else
  54.  
  55. #ifndef __STRICT_ANSI__
  56. /*
  57.  *    Create the type "COMPLEX".  This is an obvious extension that I
  58.  *    hope becomes a part of standard C someday.
  59.  *
  60.  */
  61.  
  62. typedef struct cmplx {            /* Complex structure */
  63.     double real;            /* Real part */
  64.     double imag;            /* Imaginary part */
  65. } COMPLEX;
  66.  
  67. /* exceptions ++jrb */
  68. typedef enum  {
  69.     DOMAIN      = 1,
  70.     SING        = 2,
  71.     OVERFLOW    = 3,
  72.     UNDERFLOW   = 4,
  73.     TLOSS       = 5,
  74.     PLOSS       = 6
  75. } exception_type;
  76.  
  77. struct exception {
  78.     exception_type    type;    /* exception type */
  79.     const char    *name;    /* function in which it occured */
  80.     double        arg1;    /* an arg */
  81.     double        arg2;    /* another arg */
  82.     double        retval; /* val to return */
  83. };
  84.  
  85. #define M_LN2                0.69314718055994530942
  86. #define M_PI         3.14159265358979323846
  87. #define M_SQRT2              1.41421356237309504880
  88. #define M_E          2.7182818284590452354
  89. #define M_LOG2E              1.4426950408889634074
  90. #define M_LOG10E     0.43429448190325182765
  91. #define M_LN10               2.30258509299404568402
  92. #define M_PI_2               1.57079632679489661923
  93. #define M_PI_4               0.78539816339744830962
  94. #define M_1_PI               0.31830988618379067154
  95. #define M_2_PI               0.63661977236758134308
  96. #define M_2_SQRTPI   1.12837916709551257390
  97. #define M_SQRT1_2    0.70710678118654752440
  98.  
  99. #endif /* __STRICT_ANSI__ */
  100.  
  101. extern const double _infinitydf;    /* in normdf.cpp */
  102.  
  103.  
  104. #if defined(__GNUC_INLINE__) && (!defined(NO_INLINE_MATH)) && (defined(_M68881) || defined(__M68881__))
  105. #  define _INLINE_MATH 1
  106. #else
  107. #  define _INLINE_MATH 0
  108. #endif
  109.  
  110. #if _INLINE_MATH
  111. #  include <math-68881.h>
  112. #else
  113. #  define HUGE_VAL  (_infinitydf)
  114. #endif
  115.  
  116. #define HUGE HUGE_VAL
  117.  
  118. #ifdef __GNUC__
  119. # ifndef __cplusplus
  120. #  ifndef max
  121. #   define max(x,y) ({typeof(x) _x=(x); typeof(y) _y=(y); if (_x>_y) _y=_x; _y;})
  122. #   define min(x,y) ({typeof(x) _x=(x); typeof(y) _y=(y); if (_x<_y) _y=_x; _y;})
  123. #  endif
  124. # endif
  125. #endif
  126.  
  127. #if !_INLINE_MATH
  128. __EXTERN double sin    __PROTO((double));
  129. __EXTERN double cos    __PROTO((double));
  130. __EXTERN double tan    __PROTO((double));
  131. __EXTERN double asin    __PROTO((double));
  132. __EXTERN double    acos    __PROTO((double));
  133. __EXTERN double atan    __PROTO((double));
  134. __EXTERN double atan2    __PROTO((double, double));
  135. __EXTERN double sinh    __PROTO((double));
  136. __EXTERN double cosh    __PROTO((double));
  137. __EXTERN double tanh    __PROTO((double));
  138. __EXTERN double atanh    __PROTO((double));
  139. __EXTERN double exp    __PROTO((double));
  140. __EXTERN double log    __PROTO((double));
  141. __EXTERN double log10    __PROTO((double));
  142. __EXTERN double sqrt    __PROTO((double));
  143. __EXTERN double hypot   __PROTO((double, double));
  144. __EXTERN double pow    __PROTO((double, double));
  145. __EXTERN double fabs    __PROTO((double));
  146. __EXTERN double ceil    __PROTO((double));
  147. __EXTERN double floor    __PROTO((double));
  148. __EXTERN double rint    __PROTO((double));
  149. __EXTERN double fmod    __PROTO((double, double));
  150.  
  151. __EXTERN double ldexp    __PROTO((double, int));
  152. __EXTERN double frexp    __PROTO((double, int *));
  153. __EXTERN double modf    __PROTO((double, double *));
  154. #endif
  155.  
  156. __EXTERN double acosh    __PROTO((double));
  157. __EXTERN double asinh    __PROTO((double));
  158.  
  159. #ifndef __STRICT_ANSI__
  160.  
  161. #if _INLINE_MATH
  162. #  define dabs(x) fabs(x)
  163. #else
  164. __EXTERN double dabs    __PROTO((double));
  165. #endif
  166.  
  167. __EXTERN double copysign    __PROTO((double, double));
  168. __EXTERN int matherr    __PROTO((struct exception *));
  169. __EXTERN double cabs    __PROTO((COMPLEX));
  170. __EXTERN COMPLEX cmult    __PROTO((COMPLEX, COMPLEX));
  171. __EXTERN COMPLEX csqrt    __PROTO((COMPLEX));
  172. #ifndef __GNUG__
  173. __EXTERN COMPLEX clog    __PROTO((COMPLEX));
  174. #endif
  175. __EXTERN COMPLEX cacos    __PROTO((COMPLEX));
  176. __EXTERN COMPLEX cadd    __PROTO((COMPLEX,COMPLEX));
  177. __EXTERN COMPLEX casin    __PROTO((COMPLEX));
  178. __EXTERN COMPLEX catan    __PROTO((COMPLEX));
  179. __EXTERN COMPLEX ccosh    __PROTO((COMPLEX));
  180. __EXTERN COMPLEX crcp    __PROTO((COMPLEX));
  181. __EXTERN COMPLEX csinh    __PROTO((COMPLEX));
  182. __EXTERN COMPLEX ctan    __PROTO((COMPLEX));
  183. __EXTERN COMPLEX ctanh    __PROTO((COMPLEX));
  184. __EXTERN COMPLEX cexp    __PROTO((COMPLEX));
  185. __EXTERN COMPLEX ccos    __PROTO((COMPLEX));
  186. __EXTERN COMPLEX csin    __PROTO((COMPLEX));
  187. __EXTERN COMPLEX cdiv    __PROTO((COMPLEX, COMPLEX));
  188. __EXTERN COMPLEX csubt    __PROTO((COMPLEX,COMPLEX));
  189.  
  190. __EXTERN int pmlcfs    __PROTO((int, int));
  191. __EXTERN int pmlcnt    __PROTO((void));
  192. __EXTERN int pmlerr    __PROTO((int));
  193. __EXTERN int pmllim    __PROTO((int));
  194. __EXTERN int pmlsfs    __PROTO((int, int));
  195. __EXTERN double poly    __PROTO((int, double *, double));
  196.  
  197. #endif /* __STRICT_ANSI__ */
  198.  
  199. #endif /* __TURBOC__ */
  200.  
  201. #ifdef __cplusplus
  202. }
  203. #endif
  204.  
  205. #endif /* _MATH_H */
  206.