1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
function [bonds,components] = rbg2abg(rbonds,rstrokes,rcomponents,rports,infofile)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.8 1996/12/04 21:52:39 peterg
% %% Now uses fopen.
% %%
% %% Revision 1.7 1996/11/01 18:01:57 peterg
% %% Rationalised port ordering.
% %% Fixed port bug.
% %%
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
function [bonds,components] = rbg2abg(rbonds,rstrokes,rcomponents,rports,infofile)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.9 1996/12/31 11:25:57 peterg
% %% Clearer error messages for incorrect ports.
% %%
% %% Revision 1.8 1996/12/04 21:52:39 peterg
% %% Now uses fopen.
% %%
% %% Revision 1.7 1996/11/01 18:01:57 peterg
% %% Rationalised port ordering.
% %% Fixed port bug.
% %%
|
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
[sorted,sort_index]=sort(port_number);
%Check that all the numbers (1..n) are there
if sum(sorted==[1:n]')~=n % There is something wrong
mtt_info(port_error,fnum);
mtt_info(sprintf('\t it must have consecutive ports labels from 1:%1.0f\n', n), ...
fnum);
end;
else
if k~=0
mtt_info(port_error,fnum);
mtt_info(sprintf('\t it must have 0 or %1.0f ports\n', n), fnum);
port_str = sprintf('\t the port labels are: ');
for kk=1:k
|
>
>
>
>
>
|
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
[sorted,sort_index]=sort(port_number);
%Check that all the numbers (1..n) are there
if sum(sorted==[1:n]')~=n % There is something wrong
mtt_info(port_error,fnum);
mtt_info(sprintf('\t it must have consecutive ports labels from 1:%1.0f\n', n), ...
fnum);
port_str = sprintf('\t the port labels are: ');
for kk=1:k
port_str=sprintf('%s %1.0f', port_str, port_number(kk));
end;
mtt_info(port_str, fnum);
end;
else
if k~=0
mtt_info(port_error,fnum);
mtt_info(sprintf('\t it must have 0 or %1.0f ports\n', n), fnum);
port_str = sprintf('\t the port labels are: ');
for kk=1:k
|