function ct = transmision_horizontal(e,d,angulo_grados)
%Función que calcula el coeficiente de transmisión para polarización
%horizontal

ang=angulo_grados*(pi/180);
f=2.4*10^9;
c=3*10^8;

numerador = 2*sin(ang);
denominador = sin(ang) + sqrt(e - cos(ang)*cos(ang));
th = numerador/denominador;

numerador = 2*pi*f*sqrt(e - sin(ang));
k=numerador/c;

numerador=(1-th^2)*exp(-i*k*d);
denominador=1-(th^2)*exp(-i*2*k*d);
ct=(numerador/denominador);
end