www.pudn.com > tryGUI.rar > findpeak.m

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)