Mercurial > octave-nkf

comparison scripts/control/system/sysdimensions.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 22bd65326ec1
children c08cb1098afc
comparison
equal deleted inserted replaced
4770:ef5e598f099b 4771:b8105302cfe8
78 n = sys.n; 78 n = sys.n;
79 nz = sys.nz; 79 nz = sys.nz;
80 m = length(sysgetsignals(sys,"in")); 80 m = length(sysgetsignals(sys,"in"));
81 p = length(sysgetsignals(sys,"out")); 81 p = length(sysgetsignals(sys,"out"));
82 yd = sys.yd; 82 yd = sys.yd;
83 valid_options = list("all","cst","dst","st","in","out"); 83 valid_options = {"all","cst","dst","st","in","out"};
84 valid_values = list(n,n,nz,n+nz,m,p); 84 valid_values = {n,n,nz,n+nz,m,p};
85 85
86 valid_opt = 0; 86 valid_opt = 0;
87 for ii=1:length(valid_options) 87 for ii=1:length(valid_options)
88 if(strcmp(nth(valid_options,ii),opt)) 88 if(strcmp(valid_options{ii},opt))
89 n = nth(valid_values,ii); 89 n = valid_values{ii};
90 valid_opt = 1; 90 valid_opt = 1;
91 if(ii > 1 & nargout > 1) 91 if(ii > 1 & nargout > 1)
92 warning("opt=%s, %d output arguments requested",opt,nargout); 92 warning("opt=%s, %d output arguments requested",opt,nargout);
93 endif 93 endif
94 endif 94 endif