Differences From Artifact [8cc9c0a13a]:
- Executable file
mttroot/mtt/bin/trans/m/rbg2abg.m
— part of check-in
[2e018ebcd2]
at
2004-02-19 18:27:47
on branch origin/master
— [ 852694 ] octave 2.1.52 breaks rbg2abg
Octave now prefers row vectors to column vectors. (user: geraint@users.sourceforge.net, size: 22631) [annotate] [blame] [check-ins using] [more...]
To Artifact [88812e8fad]:
- Executable file mttroot/mtt/bin/trans/m/rbg2abg.m — part of check-in [23d68445c2] at 2004-07-22 13:18:02 on branch origin/master — Minor typo in error message. (user: geraint@users.sourceforge.net, size: 22805) [annotate] [blame] [check-ins using] [more...]
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.47 2002/08/27 16:09:01 geraint ## ## Added port_name to error message when multiple bonds are near a port. ## ## ## ## Revision 1.46 2000/09/11 08:22:02 peterg ## ## Checks for absent port list in subsystem abg file. ## ## ## ## Revision 1.45 1999/10/19 02:13:31 peterg | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | function [bonds,components,n_vector_bonds] = rbg2abg(name,rbonds,rstrokes,rcomponents,\ port_coord,port_name,\ infofile,errorfile) ## ############################################################### ## ## Version control history ## ############################################################### ## ## $Id$ ## ## $Log$ ## ## 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. ## ## ## ## Revision 1.47 2002/08/27 16:09:01 geraint ## ## Added port_name to error message when multiple bonds are near a port. ## ## ## ## Revision 1.46 2000/09/11 08:22:02 peterg ## ## Checks for absent port list in subsystem abg file. ## ## ## ## Revision 1.45 1999/10/19 02:13:31 peterg |
| ︙ | ︙ | |||
641 642 643 644 645 646 647 |
mtt_error(['Component ', comp_name, ' (', comp_type, ') has no labeled ports'], errorfile);
endif
##Write out the signed bond list in the correct order
unsorted_port_list
[n_list,m_list] = size(unsorted_port_list);
if n_list!=n_comp_bonds
| | | 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 |
mtt_error(['Component ', comp_name, ' (', comp_type, ') has no labeled ports'], errorfile);
endif
##Write out the signed bond list in the correct order
unsorted_port_list
[n_list,m_list] = size(unsorted_port_list);
if n_list!=n_comp_bonds
error(sprintf("Component %s (%s) has %i bonds but %i port labels",\
comp_name, comp_type, n_comp_bonds, n_list))
endif
for j = 1:n_comp_bonds
j
name_k = unsorted_port_list(j,:)
k = name_in_list(name_k, port_list);
|
| ︙ | ︙ |