1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
+
+
+
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% Model Transformation Tools %%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Reduce function to write matrices in latex form
% P.J.Gawthrop January 22 1998
% Copyright (c) P.J.Gawthrop, 1998
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Version control history
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% $Id$
%% $Log$
%% Revision 1.2 1998/02/25 22:11:28 peterg
%% Added big matrix version
%%
%% Revision 1.1 1998/01/22 09:59:36 peterg
%% Initial revision
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PROCEDURE Latex_Matrix;
|
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
-
+
|
BEGIN
FOR Col := 1:MTT_Matrix_m DO
BEGIN
MTT_element := MTT_Matrix(Row,Col);
IF MTT_element NEQ 0 THEN
BEGIN
write "\begin{equation}";
write MTT_Matrix_name, "_", Row, ",", Col, " = {", MTT_element, "}\cr";
write MTT_Matrix_name, "_", Row, Col, " = {", MTT_element, "}\cr";
write "\end{equation}";
END;
END;
END;
END;
END;
END;
END;;
|