Overview
Comment:Don't set port status if there aren't any ports.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: e6308d426702ce4e747e2700c3ec8d4902d398a6f5a151e4b70641a6d4c35091
User & Date: gawthrop@users.sourceforge.net on 1998-07-29 13:36:37
Other Links: branch diff | manifest | tags
Context
1998-07-29
13:56:34
Replces p2c include by local include. check-in: 4da39f367b user: gawthrop@users.sourceforge.net tags: origin/master, trunk
13:36:37
Don't set port status if there aren't any ports. check-in: e6308d4267 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1998-07-28
19:08:22
Some vector aliases added. check-in: ef518acbf0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/m/abg2cbg.m from [bcdc587034] to [5675b837da].

15
16
17
18
19
20
21



22
23
24
25
26
27
28
% [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile)

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$



% %% 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







>
>
>







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
    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;


status(1:n_ports) = zeros(n_ports,1); # Port status not relevant


% 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);








>
|
>
|







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
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);


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]