maxima.m

％ Atomizer Main Directory, Version .802 里面信号含有分解去噪合成过程的代码 ％---------------------------------------

function y = Maxima(x)
% Purpose: to find the maxima of x
% Usage:
%	y = Maxima(x)
%
%

n = length(x);
y = zeros(size(x));

for i = 2:(n-1),
	MAX = x(i) > x(i-1) & x(i) > x(i+1);
	if MAX,
		y(i) = x(i);
	end
end