%ESTIMADOR DE LOS LAR.
%function LAR=logarea(r)
%Entradas:
%r:coeficientes de reflexión.
%Salidas:
%LAR:Log-Area-ratios.
function LAR=logarea(r)
for i=1:8
   if(abs(r(i))<0.675) %Hacemos una codificación por intervalos.
      LAR(i)=r(i);
   elseif(abs(r(i))<0.95)
      LAR(i)=sign(r(i))*(2*abs(r(i))-0.675);
   elseif (abs(r(i))<=1)
      LAR(i)=sign(r(i))*(8*abs(r(i))-6.375);
   end
end

