1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
function makedef(structure,deffile);
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% 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
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
function makedef(structure,deffile);
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% 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
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
% Make an Nx x Nx unit matrix
if states>0
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;
% 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);
end;
for i=1:zero_outputs
|
>
>
>
>
>
>
>
>
|
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
% Make an Nx x Nx unit matrix
if states>0
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);
end;
for i=1:zero_outputs
|