home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / MathIEEEDoubTrans.def < prev    next >
Encoding:
Text File  |  1993-11-12  |  1.3 KB  |  49 lines
  1. DEFINITION FOR C MODULE MathIEEEDoubTrans ;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS ;
  4.  
  5. VAR
  6.   MathIeeeDoubTransBase : 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 IEEEDPAtan( parm : LONGREAL ) : LONGREAL ;
  24. PROCEDURE IEEEDPSin ( parm : LONGREAL ) : LONGREAL ;
  25. PROCEDURE IEEEDPCos ( parm : LONGREAL ) : LONGREAL ;
  26. PROCEDURE IEEEDPTan ( parm : LONGREAL ) : LONGREAL ;
  27.  
  28. PROCEDURE IEEEDPSincos( VAR cosResult    : LONGREAL ;
  29.                 parm    : LONGREAL ) : LONGREAL;
  30.  
  31. PROCEDURE IEEEDPSinh( parm : LONGREAL ) : LONGREAL ;
  32. PROCEDURE IEEEDPCosh( parm : LONGREAL ) : LONGREAL ;
  33. PROCEDURE IEEEDPTanh( parm : LONGREAL ) : LONGREAL ;
  34. PROCEDURE IEEEDPExp ( parm : LONGREAL ) : LONGREAL ;
  35. PROCEDURE IEEEDPLog ( parm : LONGREAL ) : LONGREAL ;
  36.  
  37. PROCEDURE IEEEDPPow( power , arg : LONGREAL ) : LONGREAL ;
  38.  
  39. PROCEDURE IEEEDPSqrt ( parm : LONGREAL ) : LONGREAL ;
  40. PROCEDURE IEEEDPTieee( parm : LONGREAL ) : REAL ;
  41. PROCEDURE IEEEDPFieee( parm : REAL ) : LONGREAL ;
  42.  
  43. PROCEDURE IEEEDPAsin ( parm : LONGREAL ) : LONGREAL ;
  44. PROCEDURE IEEEDPAcos ( parm : LONGREAL ) : LONGREAL ;
  45. PROCEDURE IEEEDPLog10( parm : LONGREAL ) : LONGREAL ;
  46.  
  47. END MathIEEEDoubTrans.
  48.  
  49.