ADDED mttroot/mtt/bin/trans/latex_matrix_no.r Index: mttroot/mtt/bin/trans/latex_matrix_no.r ================================================================== --- /dev/null +++ mttroot/mtt/bin/trans/latex_matrix_no.r @@ -0,0 +1,83 @@ + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + %%%%% 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.7 2000/11/02 14:28:08 peterg +%% and up to 10 ... +%% +%% Revision 1.6 2000/10/10 21:02:42 peterg +%% *** empty log message *** +%% +%% Revision 1.5 2000/08/09 10:41:39 peterg +%% Changed criterion form 3 to 5 +%% +%% 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<10 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{matrix}"; + FOR Row := 1:MTT_Matrix_n DO + BEGIN + FOR Col := 1:MTT_Matrix_m DO + BEGIN + write "{", MTT_Matrix(Row,Col), "}"; + IF Col0 THEN + IF MTT_Matrix_m>0 THEN + BEGIN + FOR Row := 1:MTT_Matrix_n DO + 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 "\end{equation}"; + END; + END; + END; + END; +END; +END; + +END;;