DEADSOFTWARE

Исправлены опережающие объявления локальных типов-записей, добавлены модули Oberon...
[dsw-obn.git] / rtl / java / MathL.obn
1 MODULE MathL;
3 CONST
4 pi = 3.14159265358979323846;
5 e = 2.71828182845904523536;
7 PROCEDURE sqrt* (x: LONGREAL): LONGREAL;
8 BEGIN RETURN 0 END Sqrt;
10 PROCEDURE power* (x, y: LONGREAL): LONGREAL;
11 BEGIN RETURN 0 END Power;
13 PROCEDURE exp* (x: LONGREAL): LONGREAL;
14 BEGIN RETURN 0 END Exp;
16 PROCEDURE ln* (x: LONGREAL): LONGREAL;
17 BEGIN RETURN 0 END Ln;
19 PROCEDURE log* (x: LONGREAL): LONGREAL;
20 BEGIN RETURN 0 END Log;
22 PROCEDURE round* (x: LONGREAL): LONGREAL;
23 BEGIN RETURN 0 END Round;
25 PROCEDURE sin* (x: LONGREAL): LONGREAL;
26 BEGIN RETURN 0 END Sin;
28 PROCEDURE cos* (x: LONGREAL): LONGREAL;
29 BEGIN RETURN 0 END Cos;
31 PROCEDURE tan* (x: LONGREAL): LONGREAL;
32 BEGIN RETURN 0 END Tan;
34 PROCEDURE arcsin* (x: LONGREAL): LONGREAL;
35 BEGIN RETURN 0 END ArcSin;
37 PROCEDURE arccos* (x: LONGREAL): LONGREAL;
38 BEGIN RETURN 0 END ArcCos;
40 PROCEDURE arctan* (x: LONGREAL): LONGREAL;
41 BEGIN RETURN 0 END ArcTan;
43 PROCEDURE arctan2* (y, x: LONGREAL): LONGREAL;
44 BEGIN RETURN 0 END ArcTan2;
46 PROCEDURE sinh* (x: LONGREAL): LONGREAL;
47 BEGIN RETURN 0 END Sinh;
49 PROCEDURE cosh* (x: LONGREAL): LONGREAL;
50 BEGIN RETURN 0 END Cosh;
52 PROCEDURE tanh* (x: LONGREAL): LONGREAL;
53 BEGIN RETURN 0 END Tanh;
55 PROCEDURE arcsinh* (x: LONGREAL): LONGREAL;
56 BEGIN RETURN 0 END ArcSinh;
58 PROCEDURE arccosh* (x: LONGREAL): LONGREAL;
59 BEGIN RETURN 0 END ArcCosh;
61 PROCEDURE arctanh* (x: LONGREAL): LONGREAL;
62 BEGIN RETURN 0 END ArcTanh;
64 END MathL.