function ctt=transmision_total(int_trans,polarizacion)
%Función que calcula el coeficiente de transmisión total para una
%polarización dada. Valores de polarización: 1(horizontal),2(vertical) 
global INTERSECCIONES MATERIALES;
ctt=1;
[num_int ~]=size(INTERSECCIONES);
%int_trans solo me dice el numero de intersecciones de transmision, que se
%almacenan al final
if(int_trans~=0)
    indice=num_int-int_trans+1; %Recorremos solo las intersecciones de transmisión
    for i=indice:num_int
        angulo=INTERSECCIONES(i,5);
        perm_mat=MATERIALES(INTERSECCIONES(i,8),1);
        espesor_mat=MATERIALES(INTERSECCIONES(i,8),2);
        if(polarizacion==1) %Polarización horizontal
            coef_tr=transmision_horizontal(perm_mat,espesor_mat,angulo);
        else
            coef_tr=transmision_vertical(perm_mat,espesor_mat,angulo);
        end  
        ctt=ctt*coef_tr;
    end
end