f_minmaxzo.m

经改进的希尔伯特——黄分解

function [vmin ,umax, vzeros]= f_minmaxzo(x)
%F_MINMAX Summary of this function goes here
%  Detailed explanation goes here

d=diff(x);      %computes the diff(求导)
n=length(d);
d1=d(1:n-1);
d2=d(2:n);
vmin=find(d1.*d2<0&d1<0)+1;    %max and  min
umax=find(d1.*d2<0&d1>0)+1;
  
nn=length(x);                    %the number of the zeros
x1=x(1:nn-1);
x2=x(2:nn);
zero1=find(x1.*x2<0);
if any(x==0)
  zero2=find(x==0)
  vzeros=length(zero1)+length(zero2)
else  vzeros=length(zero1)
end