Spectrul de atenuare atmosferică a undelor radio

% Spectrul de atenuare gazoasă atmosferică
% de la 1GHz la 1000 GHz

freq = [1:1000]*1e9;
R = 1000.0;

T = 15;
P = 101300.0;
W = 7.5;

L = gaspl(R,freq,T,P,W);
L0 = gaspl(R,freq,T,P,0.0);

s1 = semilogy(freq/1e9,L)
s1.LineWidth = 1.5;
hold on
s2 = semilogy(freq/1e9,L0)
s2.LineWidth = 1.5;
grid
xlabel('Frecvență (GHz)')
ylabel('Atenuare specifică (dB)')
hold off