home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xco212p.zip / CDEF / math.def < prev    next >
Text File  |  1994-12-22  |  2KB  |  53 lines
  1. (* Copyright (c) xTech 1992,94.  All Rights Reserved *)
  2. <*+ CSTDLIB  *>
  3. <*+ NOHEADER *>
  4. <*+ M2EXTENSIONS *>
  5. DEFINITION MODULE [2] math;
  6.  
  7. PROCEDURE acos(x: LONGREAL): LONGREAL;
  8. PROCEDURE asin(x: LONGREAL): LONGREAL;
  9. PROCEDURE atan(x: LONGREAL): LONGREAL;
  10. PROCEDURE atan2(y,x: LONGREAL): LONGREAL;
  11. PROCEDURE cos(x: LONGREAL): LONGREAL;
  12. PROCEDURE sin(x: LONGREAL): LONGREAL;
  13. PROCEDURE tan(x: LONGREAL): LONGREAL;
  14.  
  15. PROCEDURE cosh(x: LONGREAL): LONGREAL;
  16. PROCEDURE sinh(x: LONGREAL): LONGREAL;
  17. PROCEDURE tanh(x: LONGREAL): LONGREAL;
  18.  
  19. PROCEDURE exp(x: LONGREAL): LONGREAL;
  20. PROCEDURE frexp(x: LONGREAL; VAR exp: INTEGER): LONGREAL;
  21. PROCEDURE ldexp(x: LONGREAL; exp: INTEGER): LONGREAL;
  22. PROCEDURE log(x: LONGREAL): LONGREAL;
  23. PROCEDURE log10(x: LONGREAL): LONGREAL;
  24. PROCEDURE modf(x: LONGREAL; VAR ipart: LONGREAL): LONGREAL;
  25.  
  26. PROCEDURE pow(x,y: LONGREAL): LONGREAL;
  27. PROCEDURE sqrt(x: LONGREAL): LONGREAL;
  28.  
  29. PROCEDURE ceil(x: LONGREAL): LONGREAL;
  30. PROCEDURE fabs(x: LONGREAL): LONGREAL;
  31. PROCEDURE floor(x: LONGREAL): LONGREAL;
  32. PROCEDURE fmod(x,y: LONGREAL): LONGREAL;
  33.  
  34. PROCEDURE hypot(x,y: LONGREAL): LONGREAL;
  35.  
  36. CONST (* Constants rounded for 18 decimals. *)
  37.   MA_E        = 2.71828182845904524;
  38.   MA_LOG2E    = 1.44269504088896341;
  39.   MA_LOG10E   = 0.434294481903251828;
  40.   MA_LN2      = 0.693147180559945309;
  41.   MA_LN10     = 2.30258509299404568;
  42.   MA_PI       = 3.14159265358979324;
  43.   MA_PI_2     = 1.57079632679489662;
  44.   MA_PI_4     = 0.785398163397448310;
  45.   MA_1_PI     = 0.318309886183790672;
  46.   MA_2_PI     = 0.636619772367581343;
  47.   MA_1_SQRTPI = 0.564189583547756287;
  48.   MA_2_SQRTPI = 1.12837916709551257;
  49.   MA_SQRT2    = 1.41421356237309505;
  50.   MA_SQRT_2   = 0.707106781186547524;
  51.  
  52. END math.
  53.