Mercurial > octave-nkf

comparison scripts/control/system/sysdimensions.m @ 7136:59dcf01bb3e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 20:18:25 by jwe]
author jwe
date Thu, 08 Nov 2007 20:18:26 +0000
parents 1d0d7be2d0f8
children
comparison
equal deleted inserted replaced
7135:8aa770b6c5bf 7136:59dcf01bb3e3
76 opt = "all"; 76 opt = "all";
77 endif 77 endif
78 78
79 n = sys.n; 79 n = sys.n;
80 nz = sys.nz; 80 nz = sys.nz;
81 m = length(sysgetsignals(sys,"in")); 81 m = length (sysgetsignals (sys, "in"));
82 p = length(sysgetsignals(sys,"out")); 82 p = length (sysgetsignals (sys, "out"));
83 yd = sys.yd; 83 yd = sys.yd;
84 valid_options = {"all","cst","dst","st","in","out"}; 84 valid_options = {"all", "cst", "dst", "st", "in", "out"};
85 valid_values = {n,n,nz,n+nz,m,p}; 85 valid_values = {n,n,nz,n+nz,m,p};
86 86
87 valid_opt = 0; 87 valid_opt = 0;
88 for ii=1:length(valid_options) 88 for ii = 1:length(valid_options)
89 if(strcmp(valid_options{ii},opt)) 89 if (strcmp(valid_options{ii}, opt))
90 n = valid_values{ii}; 90 n = valid_values{ii};
91 valid_opt = 1; 91 valid_opt = 1;
92 if(ii > 1 & nargout > 1) 92 if (ii > 1 && nargout > 1)
93 warning("opt=%s, %d output arguments requested",opt,nargout); 93 warning ("opt=%s, %d output arguments requested", opt, nargout);
94 endif 94 endif
95 endif 95 endif
96 endfor 96 endfor
97 97
98 if (! valid_opt) 98 if (! valid_opt)