repeat5.m

来自「matlab7.0这本书的源代码」· M 代码 · 共 27 行

% repeat5.m
% repeated value creation and counting
% inverse operation

% y = [3 3 0 0 0 5 6 6]; % data to examine

x = zeros(size(y));    % preallocate results
n = zeros(size(y));

x(1) = y(1);             % beginning data
n(1) = 1;                % beginning count
idx = 1;                 % index value
for i=2:length(y)
   if y(i)==x(idx) % value matches current x
      
      n(idx) = n(idx)+1; % increment current count
      
   else % new value found
      
      idx = idx+1;       % increment index
      x(idx) = y(i);     % poke in new x
      n(idx) = 1;        % start new count
   end
end
nz = (n==0);  % find elements not used
x(nz) = [];   % delete excess allocations
n(nz) = [];