home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / More Examples / MathLib.MOD < prev    next >
Encoding:
Modula Implementation  |  1992-10-09  |  797 b   |  40 lines  |  [TEXT/MEDT]
  1. IMPLEMENTATION MODULE MathLib; (* H. Seiler, 15.3.89 *) (*$R-*)
  2.  
  3.   (* a sketch of an implementation of Mathlib for the MC68881 co-processor. *)
  4.  
  5.   IMPORT SYSTEM;
  6.  
  7.   PROCEDURE Sqrt(x: REAL) : REAL;
  8.   BEGIN RETURN SYSTEM.Sqrt(x)
  9.   END Sqrt;
  10.  
  11.   PROCEDURE Exp(x: REAL) : REAL;
  12.   BEGIN RETURN SYSTEM.Exp(x)
  13.   END Exp;
  14.  
  15.   PROCEDURE Ln(x: REAL) : REAL;
  16.   BEGIN RETURN SYSTEM.Ln(x)
  17.   END Ln;
  18.  
  19.   PROCEDURE Sin(x: REAL) : REAL;
  20.   BEGIN RETURN SYSTEM.Sin(x)
  21.   END Sin;
  22.  
  23.   PROCEDURE Cos(x: REAL) : REAL;
  24.   BEGIN RETURN SYSTEM.Cos(x)
  25.   END Cos;
  26.  
  27.   PROCEDURE ArcTan(x: REAL) : REAL;
  28.   BEGIN RETURN SYSTEM.ArcTan(x)
  29.   END ArcTan;
  30.  
  31.   PROCEDURE Real(x: INTEGER) : REAL;
  32.   BEGIN RETURN FLOAT(x)
  33.   END Real;
  34.  
  35.   PROCEDURE Entier(x: REAL) : INTEGER;
  36.   BEGIN RETURN SHORT(SYSTEM.Entier(x))
  37.   END Entier;
  38.  
  39. END MathLib.