Mercurial > hg > octave-nkf
diff scripts/control/base/obsv.m @ 7126:4a375de63f66
[project @ 2007-11-08 03:44:14 by jwe]
author | jwe |
---|---|
date | Thu, 08 Nov 2007 03:44:15 +0000 |
parents | a1dbe9d80eee |
children |
line wrap: on
line diff
--- a/scripts/control/base/obsv.m +++ b/scripts/control/base/obsv.m @@ -54,19 +54,19 @@ if (nargin == 2) a = sys; elseif (nargin == 1 && isstruct(sys)) - sysupdate(sys,"ss"); - [a,b,c] = sys2ss(sys); + sysupdate (sys, "ss"); + [a, b, c] = sys2ss (sys); else print_usage (); endif - if (!is_abcd(a,c')) + if (! is_abcd (a, c')) Qb = []; else ## no need to check dimensions, we trust is_abcd(). - [na, ma] = size(a); - [nc, mc] = size(c); - Qb = zeros(na*nc, ma); + [na, ma] = size (a); + [nc, mc] = size (c); + Qb = zeros (na*nc, ma); for i = 1:na Qb((i-1)*nc+1:i*nc, :) = c; c = c * a;