Mercurial > hg > octave-nkf

comparison scripts/control/system/sysdimensions.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 2618a0750ae6
children 8b0cfeb06365
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
67 ## @end deftypefn 67 ## @end deftypefn
68 68
69 function [n, nz, m, p, yd] = sysdimensions (sys, opt) 69 function [n, nz, m, p, yd] = sysdimensions (sys, opt)
70 70
71 if(nargout > 5 | nargin < 1 | nargin > 2) 71 if(nargout > 5 | nargin < 1 | nargin > 2)
72 usage("[n,nz,m,p[,yd]] = sysdimensions(sys{,opt})"); 72 print_usage ();
73 elseif(!isstruct(sys)) 73 elseif(!isstruct(sys))
74 usage("[n,nz,m,p] = sysdimensions(sys)"); 74 print_usage ();
75 elseif(nargin == 1) 75 elseif(nargin == 1)
76 opt = "all"; 76 opt = "all";
77 endif 77 endif
78 78
79 n = sys.n; 79 n = sys.n;