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
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% 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.3 1998/03/14 11:07:09 peterg
%% Removed comma from array subscript
%%
%% 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;
BEGIN
IF MTT_Matrix_m<3 THEN %% Do matrix style version
BEGIN
IF MTT_Matrix_n>0 THEN
IF MTT_Matrix_m>0 THEN
BEGIN
write "\begin{equation}";
write MTT_Matrix_name, " = \begin{pmatrix}";
FOR Row := 1:MTT_Matrix_n DO
|
>
>
>
|
|
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
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% 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.4 1998/11/10 14:15:36 peterg
%% Now does matrix style for m<3
%%
%% Revision 1.3 1998/03/14 11:07:09 peterg
%% Removed comma from array subscript
%%
%% 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;
BEGIN
IF MTT_Matrix_m<5 THEN %% Do matrix style version
BEGIN
IF MTT_Matrix_n>0 THEN
IF MTT_Matrix_m>0 THEN
BEGIN
write "\begin{equation}";
write MTT_Matrix_name, " = \begin{pmatrix}";
FOR Row := 1:MTT_Matrix_n DO
|