Mercurial > octave-nkf
view scripts/control/system/__sysconcat__.m @ 5443:ec8c33dcd1bf
[project @ 2005-09-08 01:40:57 by jwe]
author | jwe |
---|---|
date | Thu, 08 Sep 2005 01:40:58 +0000 |
parents | f105000ab25c |
children | 6bbf56a9718a |
line wrap: on
line source
function c = __sysconcat__(a,b) # c = __sysconcat__(a,b) # cell array replacement for append, used by control systems toolbox if(ischar(a)) a = {a}; endif if(ischar(b)) b = {b}; endif if ( ! ( is_signal_list(a) && is_signal_list(b) ) ) error("need cell arrays of strings"); endif c = a; la = length(a); for ii=1:length(b) c{la+ii} = b{ii}; endfor endfunction