Mercurial > octave-nkf
diff scripts/control/system/sysreorder.m @ 7136:59dcf01bb3e3
[project @ 2007-11-08 20:18:25 by jwe]
author | jwe |
---|---|
date | Thu, 08 Nov 2007 20:18:26 +0000 |
parents | f084ba47812b |
children |
line wrap: on
line diff
--- a/scripts/control/system/sysreorder.m Thu Nov 08 18:54:10 2007 +0000 +++ b/scripts/control/system/sysreorder.m Thu Nov 08 20:18:26 2007 +0000 @@ -53,16 +53,16 @@ pv = 1:vlen; ## make it a row vector list = reshape(list,1,length(list)); - A = pv'*ones(size(list)); - B = ones(size(pv'))*list; + A = pv' * ones (size (list)); + B = ones (size (pv')) * list; X = (A != B); - if(!isvector(X)) - y = min(X'); + if (! isvector (X)) + y = min (X'); else y = X'; endif - z = find(y == 1); - if(!isempty(z)) + z = find (y == 1); + if (! isempty (z)) pv = [z, list]; else pv = list;