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

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

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

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

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