Mercurial > octave-nkf
comparison scripts/control/system/__sysconcat__.m @ 4779:f105000ab25c
[project @ 2004-02-17 02:34:33 by jwe]
| author | jwe |
|---|---|
| date | Tue, 17 Feb 2004 02:34:33 +0000 |
| parents | |
| children | ec8c33dcd1bf |
comparison
equal
deleted
inserted
replaced
| 4778:567c8e2d2438 | 4779:f105000ab25c |
|---|---|
| 1 function c = __sysconcat__(a,b) | |
| 2 # c = __sysconcat__(a,b) | |
| 3 # cell array replacement for append, used by control systems toolbox | |
| 4 | |
| 5 if(isstr(a)) | |
| 6 a = {a}; | |
| 7 endif | |
| 8 if(isstr(b)) | |
| 9 b = {b}; | |
| 10 endif | |
| 11 | |
| 12 if ( ! ( is_signal_list(a) && is_signal_list(b) ) ) | |
| 13 error("need cell arrays of strings"); | |
| 14 endif | |
| 15 | |
| 16 c = a; | |
| 17 la = length(a); | |
| 18 for ii=1:length(b) | |
| 19 c{la+ii} = b{ii}; | |
| 20 endfor | |
| 21 | |
| 22 endfunction | |
| 23 |