12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
+
+
+
|
% Structure matrix [states,nonstates,inputs,outputs,zero_outputs]
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.7 1996/08/30 11:23:13 peter
% %% Argument substitution implemented.
% %%
% %% Revision 1.6 1996/08/27 08:04:52 peterg
% %% Handles complex components and repetative components.
% %%
% %% Revision 1.5 1996/08/24 15:02:23 peter
% %% Writes `END;' to keep reduce happy.
% %%
% %% Revision 1.4 1996/08/19 09:03:41 peter
|
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
-
-
+
+
|
varname(name_r, ...
bond_list(port_number),-1), name_comp_name, port_number);
end;
end;
disp('---POP---');
else % its a simple component
fprintf(filenum, '\n\t%s Equations for component %s (%s)\n\n', ...
pc, comp_name, comp_type);
fprintf(filenum, '\n\t%s Equations for component %s (%s), repetition %1.0f\n\n', ...
pc, comp_name, comp_type,k);
eval(['structure = ', ...
eqn_name, ...
'(name_r,bond_list,comp_bonds,direction,cr,args,structure,filenum);' ]);
end;
end;
end;
|