%Bandpass Voicing Analog
%Precondition:   s(1:360) 是輸入的語音信號;intP是前一幀和當前幀的整數基音;intR是對應的相關系數
%		           smooth是平滑濾波器的狀態,full_wave是全波整形濾波器的狀態,melp_bands(1:180)是五個帶通信號
%                在上一幀的結果,melp_envelopes是其對應的包絡信號
%Input:
%        melp_bands(5個帶的帶通信號）

function vbp=melp_bpva(melp_bands,melp_envelopes,p2)
p2=round(p2);
for j=1:4
   k=j+1;
   [p(1),r(1)]=fpr(melp_bands(k,:),p2);
   [p(2),r(2)]=fpr(melp_envelopes(j,:),p2);
   r(2)=r(2)-0.1;
   if r(2)>r(1)
      temp=r(2);
   else
      temp=r(1);
   end
   if temp>0.6
      vbp(j)=1;
   else
      vbp(j)=0;
   end
end
if vbp(1:3)==[0 0 0]
   vbp(4)=0; 
end