15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
+
+
+
|
% [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.32 1998/07/28 19:06:11 peterg
% %% *** empty log message ***
% %%
% %% Revision 1.31 1998/07/28 13:15:10 peterg
% %% Vector SS ports included.
% %%
% %% Revision 1.30 1998/07/27 20:29:49 peterg
% %% Had another go at causality ....
% %% 1. Impose external causality onto all port bonds
% %% 2. Set C_cause.m so that it DOESN'T set causality
|
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
|
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
|
+
-
-
+
+
+
|
ci_direction = sign(ci_bond_index);
ci_bond_index = abs(ci_bond_index);
bonds(ci_bond_index,1:2) = prefered*ci_direction'*[1 1];
end;
end;
if n_ports>0
status(1:n_ports) = zeros(n_ports,1); # Port status not relevant
status(1:n_ports) = zeros(n_ports,1); # Port status not relevant
endif;
% Print final causality
final_done = (sum(status==zeros(n_components,1))/n_components)*100;
if at_top_level
mtt_info(sprintf('Final causality of %s is %3.0f%s complete.', ...
full_name, final_done, pc), infofile);
|