1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
function [bonds,components,n_vector_bonds] = rbg2abg(name,rbonds,rstrokes,rcomponents,\
port_coord,port_name,\
infofile,errorfile)
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.49 2004/07/22 13:18:02 geraint
## ## Minor typo in error message.
## ##
## ## Revision 1.48 2004/02/19 18:27:47 geraint
## ## [ 852694 ] octave 2.1.52 breaks rbg2abg
## ##
## ## Octave now prefers row vectors to column vectors.
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
function [bonds,components,n_vector_bonds] = rbg2abg(name,rbonds,rstrokes,rcomponents,\
port_coord,port_name,\
infofile,errorfile)
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.50 2009/11/02 16:54:03 geraint
## ## Replaced deprecated functions from Octave 2.1 for Octave 3.0: is_struct -> isstruct, struct_contains -> isfield, struct_elements -> fieldnames, is_complex -> iscomplex, setstr -> char
## ##
## ## Revision 1.49 2004/07/22 13:18:02 geraint
## ## Minor typo in error message.
## ##
## ## Revision 1.48 2004/02/19 18:27:47 geraint
## ## [ 852694 ] octave 2.1.52 breaks rbg2abg
## ##
## ## Octave now prefers row vectors to column vectors.
|
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
|
## Create the signed list of bonds on this component
one = ones(n_comp_bonds,1);
bond_list = index(:,1); % bond at component
## Check that all bonds are unique -- error if not
if unique(bond_list)==0
mtt_error(sprintf("Component %s (%s) is at both ends of a bond", comp_name,
comp_type),errorfile);
endif
## which end of bond at component?
|
|
|
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
## Create the signed list of bonds on this component
one = ones(n_comp_bonds,1);
bond_list = index(:,1); % bond at component
## Check that all bonds are unique -- error if not
if mtt_isunique(bond_list)==0
mtt_error(sprintf("Component %s (%s) is at both ends of a bond", comp_name,
comp_type),errorfile);
endif
## which end of bond at component?
|