home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / MathIEEESingTrans.def < prev    next >
Encoding:
Text File  |  1993-11-04  |  1.2 KB  |  48 lines
  1. DEFINITION FOR C MODULE MathIEEESingTrans ;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS ;
  4.  
  5. VAR
  6.   MathIeeeSingTransBase : ADDRESS ;
  7.  
  8. CONST
  9.   PI      = 3.141592653589793 ;
  10.  
  11.   TWO_PI  = 2. * PI ;
  12.   PI2      = PI / 2. ;
  13.   PI4      = PI / 4. ;
  14.  
  15.   E      = 2.718281828459045 ;
  16.   LOG10      = 2.302585092994046 ;
  17.  
  18.   FPTEN      = 10.0 ;
  19.   FPONE      = 1.0  ;
  20.   FPHALF  = 0.5  ;
  21.   FPZERO  = 0.0     ;
  22.  
  23. PROCEDURE IEEESPAtan( parm : REAL ) : REAL ;
  24. PROCEDURE IEEESPSin ( parm : REAL ) : REAL ;
  25. PROCEDURE IEEESPCos ( parm : REAL ) : REAL ;
  26. PROCEDURE IEEESPTan ( parm : REAL ) : REAL ;
  27.  
  28. PROCEDURE IEEESPSincos( VAR cosResult    : REAL ;
  29.                 parm    : REAL ) : REAL;
  30.  
  31. PROCEDURE IEEESPSinh( parm : REAL ) : REAL ;
  32. PROCEDURE IEEESPCosh( parm : REAL ) : REAL ;
  33. PROCEDURE IEEESPTanh( parm : REAL ) : REAL ;
  34. PROCEDURE IEEESPExp ( parm : REAL ) : REAL ;
  35. PROCEDURE IEEESPLog ( parm : REAL ) : REAL ;
  36.  
  37. PROCEDURE IEEESPPow( power , arg : REAL ) : REAL ;
  38.  
  39. PROCEDURE IEEESPSqrt ( parm : REAL ) : REAL ;
  40. PROCEDURE IEEESPTieee( parm : REAL ) : REAL ;
  41. PROCEDURE IEEESPFieee( parm : REAL ) : REAL ;
  42.  
  43. PROCEDURE IEEESPAsin ( parm : REAL ) : REAL ;
  44. PROCEDURE IEEESPAcos ( parm : REAL ) : REAL ;
  45. PROCEDURE IEEESPLog10( parm : REAL ) : REAL ;
  46.  
  47. END MathIEEESingTrans.
  48.