DEFINITION Math; (* portable *)

(*
 Commonly needed Math for REALs.
*)

 CONST
  e = 2.7182818284590452354E0;
  pi = 3.14159265358979323846E0;
 PROCEDURE sin (x: REAL): REAL;
 PROCEDURE cos (x: REAL): REAL;
 PROCEDURE arctan (x: REAL): REAL;
 PROCEDURE sqrt (x: REAL): REAL;
 PROCEDURE ln (x: REAL): REAL;
 PROCEDURE exp (x: REAL): REAL;

END Math.