Mercurial > hg > octave-lyh

diff scripts/control/system/sysgettype.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children
line wrap: on
line diff
--- a/scripts/control/system/sysgettype.m
+++ b/scripts/control/system/sysgettype.m
@@ -39,11 +39,15 @@
 
 function systype = sysgettype (sys)
 
+  if (nargin != 1)
+    print_usage ();
+  endif
+
   if (! isstruct (sys))
     error ("sysgettype: input sys is not a structure");
   endif
 
   typestr = {"tf", "zp", "ss"};
-  systype = typestr{ sys.sys(1) + 1};
+  systype = typestr{sys.sys(1) + 1};
 
 endfunction