Overview
Comment:Only copy port cuaslity info if not already set within the
subsystem. I thought I'd done this already ....
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 906b281df2df25fec33ca3488358a0eccdc4c2fe950d4e34539f80e6f57a585e
User & Date: gawthrop@users.sourceforge.net on 1997-08-19 10:21:09
Other Links: branch diff | manifest | tags
Context
1997-08-19
10:38:26
Added pi to the list check-in: 57e20536a9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:21:09
Only copy port cuaslity info if not already set within the
subsystem. I thought I'd done this already ....
check-in: 906b281df2 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:49:19
Modified to take account of the expanded vector bonds. Only displays
causality corresponding to the bond connecting the first element of
the vector ports.
check-in: f6a850f6fb user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/m/abg2cbg.m from [1126ffe3fb] to [869686270d].

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







>
>
>







13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
% [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile)

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.21  1997/08/18 16:25:25  peterg
% %% Minor bug fixes
% %%
% %% 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.
168
169
170
171
172
173
174
175




176


177

178
179
180
181
182
183
184

  % Check compatibility - if ok copy port bonds to the internal bonds list.
  if n_port_bonds~=n_ports
  mtt_info(sprintf('%s: %1.0f port bonds incompatible with %1.0f ports', ...
               full_name, n_port_bonds, n_ports), infofile);

  else % Copy the port bonds & status
    j = abs(components(1:n_ports,1)) % relevant bond numbers




    bonds(j,:) = port_bonds;


    status(1:n_ports) = port_status;

  end
else
  n_port_bonds=0;
end;
bonds,port_bonds

% Causality indicator







|
>
>
>
>
|
>
>
|
>







171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194

  % Check compatibility - if ok copy port bonds to the internal bonds list.
  if n_port_bonds~=n_ports
  mtt_info(sprintf('%s: %1.0f port bonds incompatible with %1.0f ports', ...
               full_name, n_port_bonds, n_ports), infofile);

  else % Copy the port bonds & status
    port_bond_index = abs(components(1:n_ports,1)) % relevant bond numbers
    for j = 1:n_port_bonds
      jj = port_bond_index(j);
      for k = 1:2
	if bonds(jj,k)==0 % only copy if not already set
	bonds(jj,k) = port_bonds(j,k);
	end;
      end;
      status(1:n_ports) = port_status;
    end
  end
else
  n_port_bonds=0;
end;
bonds,port_bonds

% Causality indicator


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