1 PACKAGE GMD_LINEAR_EVALUATE AUTHID CURRENT_USER AS
2 /* $Header: GMDLPEXS.pls 115.0 2003/09/17 15:40:52 txdaniel noship $ */
3
4 TYPE row IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
5
6 TYPE matrix IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
7
8
9 PROCEDURE Substitute (P_mx IN OUT NOCOPY Matrix
10 ,P_n IN Number
11 ,x_status OUT NOCOPY VARCHAR2);
12
13 PROCEDURE Calc_Mags (P_Mx IN Matrix
14 ,P_count IN Number
15 ,X_row OUT NOCOPY Row
16 ,x_status OUT NOCOPY VARCHAR2);
17
18
19 PROCEDURE Find_Max (P_mx IN Matrix
20 ,P_s IN row
21 ,P_j IN NUMBER
22 ,P_n IN NUMBER
23 ,X_result OUT NOCOPY Row
24 ,X_row OUT NOCOPY NUMBER
25 ,x_status OUT NOCOPY VARCHAR2);
26
27 PROCEDURE Gauss_Pivot(P_mx IN OUT NOCOPY Matrix
28 ,P_s IN row
29 ,P_current IN NUMBER
30 ,P_n IN NUMBER
31 ,x_status OUT NOCOPY VARCHAR2);
32
33 PROCEDURE Eliminate (P_mx IN OUT NOCOPY Matrix
34 ,P_s IN Row
35 ,P_n IN NUMBER
36 ,x_status OUT NOCOPY VARCHAR2);
37
38 PROCEDURE Gauss (P_mx IN Matrix
39 ,P_n IN NUMBER
40 ,X_result OUT NOCOPY Row
41 ,x_status OUT NOCOPY VARCHAR2) ;
42
43 PROCEDURE Test_Gauss;
44
45 END GMD_LINEAR_EVALUATE;