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