Mercurial > hg > octave-nkf

comparison scripts/control/system/sysgettype.m @ 4771:b8105302cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 17:45:50 by jwe]
author jwe
date Mon, 16 Feb 2004 17:45:50 +0000
parents 3e48e60a1f8b
children 48a39e2b2ab7
comparison
equal deleted inserted replaced
4770:ef5e598f099b 4771:b8105302cfe8
35 35
36 if (! isstruct (sys)) 36 if (! isstruct (sys))
37 error ("sysgettype: input sys is not a structure"); 37 error ("sysgettype: input sys is not a structure");
38 endif 38 endif
39 39
40 typestr = list ("tf", "zp", "ss"); 40 typestr = {"tf", "zp", "ss"};
41 systype = nth (typestr, sys.sys(1) + 1); 41 systype = typestr{ sys.sys(1) + 1};
42 42
43 endfunction 43 endfunction