home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / modu1096.zip / ISOsym / longmath.def < prev    next >
Encoding:
Modula Definition  |  1996-09-04  |  843 b   |  35 lines
  1. DEFINITION MODULE LongMath;
  2.  
  3.   (* Mathematical functions for the type LONGREAL *)
  4.  
  5. (****************************************************************)
  6. (*                                *)
  7. (*    GPM defines LONGREAL as a type alias of REAL so no    *)
  8. (*    seperate implementation is required.            *)
  9. (*                                *)
  10. (*      LongMath is implemented by RealMath            *)
  11. (*                                *)
  12. (****************************************************************)
  13.  
  14. IMPORT RealMath;
  15.  
  16. CONST
  17.   pi     = RealMath.pi;
  18.   exp1   = RealMath.exp1;
  19.  
  20. CONST
  21.   sqrt   = RealMath.sqrt;
  22.   exp    = RealMath.exp;
  23.   ln     = RealMath.ln;
  24.   sin    = RealMath.sin;
  25.   cos    = RealMath.cos;
  26.   tan    = RealMath.tan;
  27.   arcsin = RealMath.arcsin;
  28.   arccos = RealMath.arccos;
  29.   arctan = RealMath.arctan;
  30.   power  = RealMath.power;
  31.   round  = RealMath.round;
  32.   IsRMathException = RealMath.IsRMathException;
  33.  
  34. END LongMath.
  35.