DEFINITION MODULE LongTrig;

(* Jim Lill  16 Aug 87 *)

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


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

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

END  LongTrig.

