1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
(******************************************************************************)
(* Copyright (c) 1988 by GMD Karlruhe, Germany *)
(* Gesellschaft fuer Mathematik und Datenverarbeitung *)
(* (German National Research Center for Computer Science) *)
(* Forschungsstelle fuer Programmstrukturen an Universitaet Karlsruhe *)
(* All rights reserved. *)
(* Don't modify this file under any circumstances *)
(******************************************************************************)
DEFINITION MODULE MathLib;
PROCEDURE sqrt (x : REAL) : REAL;
(* calculates the square root of 'x' *)
PROCEDURE sqrtL (x : LONGREAL) : LONGREAL;
(* calculates the square root of 'x' *)
PROCEDURE exp (x : REAL) : REAL;
(* calculates 'e' to the power of 'x', 'e' Euler's number *)
PROCEDURE expL (x : LONGREAL) : LONGREAL;
(* calculates 'e' to the power of 'x', 'e' Euler's number *)
PROCEDURE ln (x : REAL) : REAL;
(* calculates natural logarithm of 'x' *)
PROCEDURE lnL (x : LONGREAL) : LONGREAL;
(* calculates natural logarithm of 'x' *)
PROCEDURE sin (x : REAL) : REAL;
(* calculates sine of 'x' *)
PROCEDURE sinL (x : LONGREAL) : LONGREAL;
(* calculates sine of 'x' *)
PROCEDURE cos (x : REAL) : REAL;
(* calculates cosine of 'x' *)
PROCEDURE cosL (x : LONGREAL) : LONGREAL;
(* calculates cosine of 'x' *)
PROCEDURE arctan (x : REAL) : REAL;
(* calculates arc tangent of 'x' *)
PROCEDURE arctanL (x : LONGREAL) : LONGREAL;
(* calculates arc tangent of 'x' *)
PROCEDURE real (x : INTEGER) : REAL;
(* converts 'x' to type 'REAL' *)
PROCEDURE realL (x : INTEGER) : LONGREAL;
(* converts 'x' to type 'LONGREAL' *)
PROCEDURE entier (x : REAL) : INTEGER;
(* calculates the largest integer <= 'x' *)
PROCEDURE entierL (x : LONGREAL) : INTEGER;
(* calculates the largest long integer <= 'x' *)
END MathLib.
|
