function crt=reflexion_total(ind_camino,polarizacion)
%Función que calcula el coeficiente de reflexión total para una
%polarización dada. Valores de polarización: 1(horizontal),2(vertical)
global INTERSECCIONES MATERIALES TRAYECTORIAS;
crt=1;
camino=TRAYECTORIAS(ind_camino,1:end);
num_int=camino(1);
for int=2:num_int+1 %Asi accedo a los indices de las intersecciones
interseccion=INTERSECCIONES(camino(int),1:8); %procesamos las intersecciones
angulo=interseccion(5);
if(interseccion(3)==0) %Solo vemos intersecciones de reflexión
perm_mat=MATERIALES(interseccion(8),1);
espesor_mat=MATERIALES(interseccion(8),2);
if(polarizacion==1)
coef_rf=reflexion_horizontal(perm_mat,espesor_mat,angulo);
else
coef_rf=reflexion_vertical(perm_mat,espesor_mat,angulo);
end
crt=crt*coef_rf;
end
end
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
