Mercurial > hg > octave-lyh

annotate scripts/control/system/__sysconcat__.m @ 4844:9f7ef92b50b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-04-02 17:26:53 by jwe]
author jwe
date Fri, 02 Apr 2004 17:26:54 +0000
parents f105000ab25c
children ec8c33dcd1bf
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4779
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
1 function c = __sysconcat__(a,b)
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
2 # c = __sysconcat__(a,b)
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
3 # cell array replacement for append, used by control systems toolbox
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
4
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
5 if(isstr(a))
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
6 a = {a};
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
7 endif
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
8 if(isstr(b))
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
9 b = {b};
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
10 endif
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
11
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
12 if ( ! ( is_signal_list(a) && is_signal_list(b) ) )
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
13 error("need cell arrays of strings");
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
14 endif
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
15
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
16 c = a;
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
17 la = length(a);
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
18 for ii=1:length(b)
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
19 c{la+ii} = b{ii};
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
20 endfor
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
21
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
22 endfunction
f105000ab25c [project @ 2004-02-17 02:34:33 by jwe]
jwe
parents:
diff changeset
23