home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
modu1096.zip
/
ISOsym
/
realmath.def
< prev
next >
Wrap
Text File
|
1996-08-29
|
1KB
|
52 lines
FOREIGN DEFINITION MODULE RealMath;
IMPORT IMPLEMENTATION FROM "realmath.o & -lm";
(* Mathematical functions for the type REAL *)
CONST
pi = 3.1415926535897932384626433832795028841972;
exp1 = 2.7182818284590452353602874713526624977572;
PROCEDURE sqrt (x: REAL): REAL;
(* Returns the positive square root of x *)
PROCEDURE exp (x: REAL): REAL;
(* Returns the exponential of x *)
PROCEDURE ln (x: REAL): REAL;
(* Returns the natural logarithm of x *)
(* The angle in all trigonometric functions is measured in radians *)
PROCEDURE sin (x: REAL): REAL;
(* Returns the sine of x *)
PROCEDURE cos (x: REAL): REAL;
(* Returns the cosine of x *)
PROCEDURE tan (x: REAL): REAL;
(* Returns the tangent of x *)
PROCEDURE arcsin (x: REAL): REAL;
(* Returns the arcsine of x *)
PROCEDURE arccos (x: REAL): REAL;
(* Returns the arccosine of x *)
PROCEDURE arctan (x: REAL): REAL;
(* Returns the arctangent of x *)
PROCEDURE power (base, exponent: REAL): REAL;
(* Returns the value of the number base raised to the power exponent *)
PROCEDURE round (x: REAL): INTEGER;
(* Returns the value of x rounded to the nearest integer *)
PROCEDURE IsRMathException (): BOOLEAN;
(* Returns TRUE if the current coroutine is in the exceptional execution state
because of the raising of an exception in a routine from this module; otherwise
returns FALSE.
*)
END RealMath.