Mercurial > octave-nkf
diff scripts/set/setxor.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 5edee330d4cb |
children | be55736a0783 |
line wrap: on
line diff
--- a/scripts/set/setxor.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/set/setxor.m Fri Apr 23 11:28:50 2010 -0700 @@ -63,24 +63,24 @@ n = rows (c); idx = find (all (c(1:n-1) == c(2:n), 2)); if (! isempty (idx)) - c([idx, idx+1],:) = []; - i([idx, idx+1],:) = []; + c([idx, idx+1],:) = []; + i([idx, idx+1],:) = []; endif else na = numel (a); nb = numel (b); [c, i] = sort ([a(:); b(:)]); n = length (c); if (iscell (c)) - idx = find (strcmp (c(1:n-1), c(2:n))); + idx = find (strcmp (c(1:n-1), c(2:n))); else idx = find (c(1:n-1) == c(2:n)); endif if (! isempty (idx)) - c([idx, idx+1]) = []; - i([idx, idx+1]) = []; + c([idx, idx+1]) = []; + i([idx, idx+1]) = []; endif if (size (a, 1) == 1 || size (b, 1) == 1) - c = c.'; + c = c.'; endif endif endif