Mercurial > hg > octave-nkf

diff scripts/control/system/__sysconcat__.m @ 4779:f105000ab25c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-17 02:34:33 by jwe]
author jwe
date Tue, 17 Feb 2004 02:34:33 +0000
parents
children ec8c33dcd1bf
line wrap: on
line diff
new file mode 100644
--- /dev/null
+++ b/scripts/control/system/__sysconcat__.m
@@ -0,0 +1,23 @@
+function c = __sysconcat__(a,b)
+  # c = __sysconcat__(a,b)
+  # cell array replacement for append, used by control systems toolbox
+
+  if(isstr(a))
+    a = {a};
+  endif
+  if(isstr(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
+