home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / MathTrans.def < prev    next >
Encoding:
Text File  |  1993-11-12  |  1.3 KB  |  50 lines
  1. DEFINITION FOR C MODULE MathTrans ;
  2.  
  3. FROM SYSTEM IMPORT SHORTREAL, ADDRESS ;
  4.  
  5. VAR
  6.   MathTransBase : 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 SPAtan( parm : SHORTREAL ) : SHORTREAL ;
  24. PROCEDURE SPSin ( parm : SHORTREAL ) : SHORTREAL ;
  25. PROCEDURE SPCos ( parm : SHORTREAL ) : SHORTREAL ;
  26. PROCEDURE SPTan ( parm : SHORTREAL ) : SHORTREAL ;
  27.  
  28. PROCEDURE SPSincos( VAR cosResult : SHORTREAL ;
  29.             parm      : SHORTREAL ) : SHORTREAL;
  30.  
  31. PROCEDURE SPSinh( parm : SHORTREAL ) : SHORTREAL ;
  32. PROCEDURE SPCosh( parm : SHORTREAL ) : SHORTREAL ;
  33. PROCEDURE SPTanh( parm : SHORTREAL ) : SHORTREAL ;
  34. PROCEDURE SPExp ( parm : SHORTREAL ) : SHORTREAL ;
  35. PROCEDURE SPLog ( parm : SHORTREAL ) : SHORTREAL ;
  36.  
  37. PROCEDURE SPPow( power , arg : SHORTREAL ) : SHORTREAL ;
  38.  
  39. PROCEDURE SPSqrt ( parm : SHORTREAL ) : SHORTREAL ;
  40. PROCEDURE SPTieee( parm : SHORTREAL ) : REAL ;
  41. PROCEDURE SPFieee( parm : REAL ) : SHORTREAL ;
  42.  
  43. (*--- functions in V31 or higher (Release 1.1) ---*)
  44.  
  45. PROCEDURE SPAsin ( parm : SHORTREAL ) : SHORTREAL ;
  46. PROCEDURE SPAcos ( parm : SHORTREAL ) : SHORTREAL ;
  47. PROCEDURE SPLog10( parm : SHORTREAL ) : SHORTREAL ;
  48.  
  49. END MathTrans.
  50.