Overview
| Comment: | Minor bug fixes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
e87199e5d9ad40234cc98535194af521 |
| User & Date: | gawthrop@users.sourceforge.net on 1997-08-18 16:25:25 |
| Other Links: | branch diff | manifest | tags |
Context
|
1997-08-18
| ||
| 19:39:48 | Now generates (exampaded) port_bond list correctely check-in: 34c2407185 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 16:25:25 | Minor bug fixes check-in: e87199e5d9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 13:12:23 | Initial revision check-in: 9612f6fc83 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/m/abg2cbg.m from [1e301015c1] to [1126ffe3fb].
| ︙ | ︙ | |||
13 14 15 16 17 18 19 20 21 22 23 24 25 26 | % [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile) % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.19 1997/08/18 11:23:59 peterg % %% Main component loop now misses out the ports (SS:[]) -- the causality % %% is merely passed through these components. % %% % %% Revision 1.18 1997/08/08 08:11:04 peterg % %% Suppress compoment trace. % %% | > > > > > > > > | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | % [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile) % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.20 1997/08/18 12:45:24 peterg % %% Replaced: comp_bonds = bonds(bond_list,:) % %% by: for kk = 1:n_comp % %% comp_bonds(kk,:) = bonds(comp(kk),:); % %% end; % %% % %% to avoid an octave bug in 1.92. % %% % %% Revision 1.19 1997/08/18 11:23:59 peterg % %% Main component loop now misses out the ports (SS:[]) -- the causality % %% is merely passed through these components. % %% % %% Revision 1.18 1997/08/08 08:11:04 peterg % %% Suppress compoment trace. % %% |
| ︙ | ︙ | |||
213 214 215 216 217 218 219 |
% Bonds on this component (arrow-orientated) -- these become the
% port bonds on the ith component of this subsystem.
% a bug in octave 1.92 (??) prevents this from working -- replace by
% a loop -- but check on V2.0
% comp_bonds = bonds(bond_list,:)
| > | | | 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 |
% Bonds on this component (arrow-orientated) -- these become the
% port bonds on the ith component of this subsystem.
% a bug in octave 1.92 (??) prevents this from working -- replace by
% a loop -- but check on V2.0
% comp_bonds = bonds(bond_list,:)
comp_bonds=[];
for kk = 1:n_bonds
comp_bonds(kk,:) = bonds(bond_list(kk),:);
end;
% Invoke the appropriate causality procedure
if exist(cause_name)~=2 % Try a compound component
% Port status depends on whether the corresponding bonds are
% fully causal at this stage.
|
| ︙ | ︙ | |||
240 241 242 243 244 245 246 247 248 249 250 251 |
status(i) = 1;
else % no component is overcausal but some are undercausal
status(i) = -1;
end;
end;
else % its a simple component
comp_bonds_in = comp_bonds
% Convert from arrow orientated to component orientated causality
comp_bonds = comp_bonds.*direction;
| > < < | 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 |
status(i) = 1;
else % no component is overcausal but some are undercausal
status(i) = -1;
end;
end;
else % its a simple component
disp(['---', name, ' (', cause_name, ') ---']);
comp_bonds_in = comp_bonds
% Convert from arrow orientated to component orientated causality
comp_bonds = comp_bonds.*direction;
% Evaluate the built-in causality procedure
eval([ '[comp_bonds,status(i)] = ', cause_name, '(comp_bonds);' ]);
% and convert from component orientated to arrow orientated causality
comp_bonds = comp_bonds.*direction;
comp_bonds_out = comp_bonds
|
| ︙ | ︙ |