%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
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
