Mercurial > hg > octave-lyh

comparison scripts/control/system/sysappend.m @ 5443:ec8c33dcd1bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-09-08 01:40:57 by jwe]
author jwe
date Thu, 08 Sep 2005 01:40:58 +0000
parents 4c8a2e4e0717
children e9cde940b271
comparison
equal deleted inserted replaced
5442:636886245488 5443:ec8c33dcd1bf
109 ## Append new input(s) if any 109 ## Append new input(s) if any
110 Bm = max(columns(d),columns(b)+Am); 110 Bm = max(columns(d),columns(b)+Am);
111 if(Bm != Am) 111 if(Bm != Am)
112 ## construct new signal names 112 ## construct new signal names
113 if(nargin >= 6) # new names were passed 113 if(nargin >= 6) # new names were passed
114 if(!isstr(inname)) 114 if(!ischar(inname))
115 error("inname must be a string"); 115 error("inname must be a string");
116 elseif(rows(inname) != (Bm - Am)) 116 elseif(rows(inname) != (Bm - Am))
117 error(sprintf("%d new inputs requested; inname(%dx%d)", ... 117 error(sprintf("%d new inputs requested; inname(%dx%d)", ...
118 (Bm-Am),rows(inname),columns(inname))); 118 (Bm-Am),rows(inname),columns(inname)));
119 endif 119 endif
142 Bp = max(rows(d),rows(c)+Ap); 142 Bp = max(rows(d),rows(c)+Ap);
143 if(Bp != Ap) 143 if(Bp != Ap)
144 144
145 ## construct new signal names, output classification 145 ## construct new signal names, output classification
146 if(nargin >= 5) # new names were passed 146 if(nargin >= 5) # new names were passed
147 if(!isstr(outname)) 147 if(!ischar(outname))
148 error("outname must be a string"); 148 error("outname must be a string");
149 elseif(rows(outname) != (Bp - Ap)) 149 elseif(rows(outname) != (Bp - Ap))
150 error(sprintf("%d new outputs requested; outname(%dx%d)", ... 150 error(sprintf("%d new outputs requested; outname(%dx%d)", ...
151 (Bp-Ap),rows(outname),columns(outname))); 151 (Bp-Ap),rows(outname),columns(outname)));
152 endif 152 endif