function nmax=find_maxn(r)
%尋找峰值最大的n值及基音周期
%r,自相關(guān)序列
%maxn,為峰值最大的n
zer=find(r==0);  %找第一個(gè)零點(diǎn)如果存在
jiaocha=0;       %找第一近零點(diǎn)
ii=1;
while (jiaocha<=0)
    if(r(ii)>0 && r(ii+1)<0 && (ii+1)<length(r))
        jiaocha=ii;
    end
    
    ii=ii+1;
    if ii==length(r)  %沒(méi)有找到符合要求的點(diǎn)
        jiaocha=1;
    end
end

if length(zer)>0     %檢查是否存在零點(diǎn)
    if zer(1)<jiaocha  %存在，則和jiaocha比較大小，用于祛除前點(diǎn)的對(duì)基音周期的查找?guī)?lái)的影響
    jiaocha=zer(1);
    end
end
    
r(1:jiaocha)=0; %祛除影響
maxn=max(r);    %找最大值
temp=find(r==maxn);%返回第一個(gè)最大值
nmax=temp(1);