Mercurial > octave-nkf

comparison scripts/control/system/sysreorder.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 f084ba47812b
children
comparison
equal deleted inserted replaced
7135:8aa770b6c5bf 7136:59dcf01bb3e3
51 ## disp('sysreorder: entry') 51 ## disp('sysreorder: entry')
52 52
53 pv = 1:vlen; 53 pv = 1:vlen;
54 ## make it a row vector 54 ## make it a row vector
55 list = reshape(list,1,length(list)); 55 list = reshape(list,1,length(list));
56 A = pv'*ones(size(list)); 56 A = pv' * ones (size (list));
57 B = ones(size(pv'))*list; 57 B = ones (size (pv')) * list;
58 X = (A != B); 58 X = (A != B);
59 if(!isvector(X)) 59 if (! isvector (X))
60 y = min(X'); 60 y = min (X');
61 else 61 else
62 y = X'; 62 y = X';
63 endif 63 endif
64 z = find(y == 1); 64 z = find (y == 1);
65 if(!isempty(z)) 65 if (! isempty (z))
66 pv = [z, list]; 66 pv = [z, list];
67 else 67 else
68 pv = list; 68 pv = list;
69 endif 69 endif
70 70