Index: mttroot/mtt/bin/trans/m/makedef.m ================================================================== --- mttroot/mtt/bin/trans/m/makedef.m +++ mttroot/mtt/bin/trans/m/makedef.m @@ -3,10 +3,13 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.4 1996/08/30 19:42:36 peter +% %% Added newline at end of file. +% %% % %% Revision 1.3 1996/08/24 15:06:22 peter % %% Write `END;' at end to please reduce. % %% % %% Revision 1.2 1996/08/18 20:05:20 peter % %% Put unded version control @@ -57,10 +60,18 @@ fprintf(filenum, 'matrix MTTI(%1.0f,%1.0f);\n', states,states); for i = 1:states fprintf(filenum, 'MTTI(%1.0f,%1.0f) := 1;\n', i, i); end end; + +% Make an Nx/2 x Nx/2 unit matrix +if states>1 + fprintf(filenum, 'matrix MTTIm(%1.0f,%1.0f);\n', states/2,states/2); + for i = 1:states/2 + fprintf(filenum, 'MTTIM(%1.0f,%1.0f) := 1;\n', i, i); + end +end; % Set the y, yz, u, x and dx matrices fprintf(filenum, '%s Set the y, yz, u and x matrices\n', pc); for i=1:outputs fprintf(filenum, 'MTTy(%1.0f,1) := MTTy%1.0f;\n', i, i);