%DECODIFICACIÓN DE LOS COEFICIENTES DE REFLEXIÓN.
%function r=reflect(LARi)
%Entradas:
%LARi:LAR interpolados.
%Salidas:
%r:coefientes de reflexión.
function r=reflect(LARi)
for j=1:32
   if(abs(LARi(j))<0.675)
      r(j)=LARi(j);
   elseif(abs(LARi(j))<1.225)
      r(j)=sign(LARi(j))*(0.5*abs(LARi(j))+0.3375);
   elseif(abs(LARi(j))<=1.625)
      r(j)=sign(LARi(j))*(0.125*abs(LARi(j))+0.796875);
   end
end
