%RECURSIÓN DE SCHUR.
%function r=rschur(ACF)
%Entradas:
%ACF:coeficientes de autocorrelación.
%Salidas:
%r:coeficientes de reflexión.
function r=rschur(ACF)
if (ACF(1)==0)
   r=zeros(1,8);
   return
end
for i=2:8
   k(10-i)=ACF(i);
end
for j=1:9
   P(j)=ACF(j);
end
for n=1:8
   if (P(1)<abs(P(2)))
      r(n:8)=zeros(1,(9-n));
      return
   else
      r(n)=abs(P(2))/P(1);
   end
   if (P(2)>0)
      r(n)=-r(n);
   end   
   if(n==8)
      return  
   end
   P(1)=P(1)+P(2)*r(n);
	for m=1:(8-n)
  		P(m+1)=P(m+2)+r(n)*k(9-m);
   	k(9-m)=k(9-m)+r(n)*P(m+2);  
   end
end