findpeak.m

来自「超宽带无线通信 脉冲调制系统 加了导频脉冲后的系统 matlab程序 很不错的」· M 代码 · 共 20 行

function [peak_h,index_h]=findpeak(h)
len_h=length(h);
i=1;
for k=2:1:len_h-1
    if(k==2)&(((h(k-1)>0)&(h(k)<=h(k-1)))|((h(k-1)<0)&(h(k)>=h(k-1))))
            peak_h(i)=h(k-1);
            index_h(i)=k-1;
            i=i+1;
   elseif(k==len_h-1)&(((h(k+1)>0)&(h(k)<=h(k+1)))|((h(k+1)<0)&(h(k)>=h(k+1))))
          peak_h(i)=h(k+1);
          index_h(i)=k+1;
          i=i+1;
   else
     if((h(k)>0)&((h(k)>h(k-1))&(h(k)>h(k+1))))|((h(k)<0)&((h(k)<h(k-1))&(h(k)<h(k+1))))
        peak_h(i)=h(k);
        index_h(i)=k;
        i=i+1;
    end
  end
end