Overview
Comment: | Handles repeating components. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
9ceaa5943a69af6021d04dd6228be1de |
User & Date: | gawthrop@users.sourceforge.net on 1996-08-19 09:03:41 |
Other Links: | branch diff | manifest | tags |
Context
1996-08-19
| ||
09:05:04 | Initial revision check-in: 6cae592550 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
09:03:41 | Handles repeating components. check-in: 9ceaa5943a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
09:03:13 | Parses repetative components: ie suffixed by *n. check-in: e1c12e1844 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/m/cbg2ese.m from [06369eaad0] to [f41e974167].
︙ | ︙ | |||
8 9 10 11 12 13 14 15 16 17 18 19 20 21 | % Acausal bond graph to causal bond graph: mfile format % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.2 1996/08/08 18:08:11 peter % %% Sorted out file naming sceme % %% % %% Revision 1.1 1996/08/08 15:53:23 peter % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | > > > | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | % Acausal bond graph to causal bond graph: mfile format % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.3 1996/08/18 20:08:02 peter % %% Included additional structure: structure(5) = zero_outputs. % %% % %% Revision 1.2 1996/08/08 18:08:11 peter % %% Sorted out file naming sceme % %% % %% Revision 1.1 1996/08/08 15:53:23 peter % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
︙ | ︙ | |||
68 69 70 71 72 73 74 | for i = 1:n_components comp = nozeros(components(i,:)); bond_list = abs(comp); direction = sign(comp)'*[1 1]; % Convert from arrow orientated to component orientated causality comp_bonds = bonds(bond_list,:).*direction; | | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | | | | | > | > | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | for i = 1:n_components comp = nozeros(components(i,:)); bond_list = abs(comp); direction = sign(comp)'*[1 1]; % Convert from arrow orientated to component orientated causality comp_bonds = bonds(bond_list,:).*direction; eval([ '[comp_type,comp_name,cr,args,repetitions] = ', cmp_name, '(i);' ]); % change name of 0 and 1 components -- matlab doesn't like numbers here if strcmp(comp_type,'0') comp_type = 'zero'; end; if strcmp(comp_type,'1') comp_type = 'one'; end; ports = length(bond_list); if repetitions>1 port_pairs = ports/2; if round(port_pairs)~=port_pairs; mtt_info(['Repeated component ', comp_name, ... ' has an odd number of ports - ignoring repetitions']); repetitions = 1; end; end; if repetitions>1 odd_bonds = bond_list(1:2:ports-1); even_bonds = bond_list(2:2:ports); next_bond = max(max(abs(components)))+1; end; for k = 1:repetitions if repetitions>1 if k==1 bond_list(1:2:ports-1) = odd_bonds; else bond_list(1:2:ports-1) = bond_list(2:2:ports); end; if k==repetitions bond_list(2:2:ports) = even_bonds; else new_bonds = [next_bond:next_bond+port_pairs-1]; next_bond = next_bond+port_pairs; bond_list(2:2:ports) = new_bonds; end; end; % Invoke the appropriate equation-generating procedure eqn_name = [comp_type, '_eqn'] if exist(eqn_name)~=2 % Try a compound component cbg2ese(comp_name, comp_type, full_name, infofile); else % its a simple component eval(['structure = ', ... eqn_name, ... '(bond_list,comp_bonds,direction,cr,args,structure,filenum);' ]); end; end; end; fclose(filenum); |
︙ | ︙ |