local_max.m

来自「有关matlab的电子书籍有一定的帮助希望有用」· M 代码 · 共 13 行

function k = local_max(x)
% k = local_max(x)
% finds location of local maxima
%
%   Copyright (c) 1988-98 by The MathWorks, Inc.
%       $Revision: 1.5 $
s = size(x); x = [x(:)].'; N = length(x);
b1 = x(1:N-1)<=x(2:N); b2 = x(1:N-1)>x(2:N);
k = find(b1(1:N-2)&b2(2:N-1))+1;
if x(1)>x(2), k = [k, 1]; end
if x(N)>x(N-1), k = [k, N]; end
k = sort(k); if s(2) == 1, k = k'; end