DEFINITION MODULE TrigLib;

(* Jim Lill  14 Aug 87 *)

VAR PI : REAL;  (* This uses the 4 * Arctan(1) method *)


PROCEDURE Rad(x:REAL):REAL;       (* Convert x Degrees to Radians *)
PROCEDURE Deg(x:REAL):REAL;       (* Convert x Radians to Degrees *)
PROCEDURE Tan(x:REAL):REAL;       (* Find Tangent of x *)
PROCEDURE Cotan(x:REAL):REAL;     (* Find Cotangent of x *)
PROCEDURE Arcsin(x:REAL):REAL;    (* Find ArcSine of x *)
PROCEDURE Arccos(x:REAL):REAL;    (* Find ArcCosine of x *)
PROCEDURE Arctan2(x,y:REAL):REAL; (* Find ArcTangent w/Quadrant Recognition *)
                                  (* x and y are rect. values *)
PROCEDURE Cosh(x:REAL):REAL;      (* Find Hyperbolic Cosine of x *)
PROCEDURE Sinh(x:REAL):REAL;      (* Find Hyprebolic Sine of x *)
PROCEDURE Tanh(x:REAL):REAL;      (* Find Hyperbolic Tangent of x *)
PROCEDURE Log(x:REAL):REAL;       (* Find the Log(base10) of x *)

(* ArgumentError is RAISEd for errors. Calling program may use its own
   EXCEPTION for custom user messages etc. *)

END  TrigLib.

