Probleme Fundamentale privind Propagarea VHF și UHF

Propagarea in spatiul liber:

Se vor realiza simularile programelor şi se trasează graficul pierderilor funcţie de distanţă, luând frecvenţa f ca parametru şi respectiv graficul pierderilor de propagare funcţie de frecvenţă, luând distanţa ca parametru.

%Lb - Pierderile de propagare in spatiul liber si deasupra suprafetelor

% plane, functie de distanta

% cu frecventa parametru (reprezentare liniara pe axa Ox)

pause on;

h=figure;

%scrsz = get(0,'ScreenSize');

%set(h,'Position',[scrsz(1)*2 scrsz(2)*2 scrsz(3)*.9 scrsz(4)*.9]);

GT=1; GR=1; hT=10; hR=1;

c=3*(10^8);

d=.3:.2:160;

f=100; %MHz

color=['b' 'g' 'r' 'c' 'm'];

Lb=-32.44-20*log10(f)-20*log10(d/1000);

%Lbr=10*log10(GT)+10*log10(GR)+20*log10(hT)+20*log10(hR)-40*log10(d);

Lbr=real(10*log10(4*GR*GT)+20*log10(c)-20*log10(4*pi*f*(10^6)*d)+20*log10(sin(2*pi*hT*hR*f*(10^6)./(c*d))));

h1=plot (d,Lb,'LineWidth',2);

title('Reprezentare liniara pe axa Ox')

xlabel('d[m]')

ylabel('LB[dB]')

set(gcf, 'name', 'Variatia pierderilor de propagare in cazul reflexiei pe suprafete plane, comparativ cu propagarea in spatiul liber functie de distanta la frecventa de 100MHz', 'numbertitle', 'off');

set(h1,'Color',color(1));

grid; hold on

h2=plot (d,Lbr,'LineWidth',2);

set(h2,'Color',color(3));

%grid; hold on

legend('Propagare in spatiu liber','Propagare deasupra suprafetelor reflectante plane');

uiwait(h);

%Lb - Pierderile de propagare in spatiul liber si deasupra suprafetelor

% plane, functie de distanta

% cu frecventa parametru (reprezentare logaritmica pe axa Ox)

pause on;

h=figure;

%scrsz = get(0,'ScreenSize');

%set(h,'Position',[scrsz(1)*2 scrsz(2)*2 scrsz(3)*.9 scrsz(4)*.9]);

GT=1; GR=1; hT=10; hR=1;

c=3*(10^8); %m/s

d=.1:.01:1000;

f=100; %MHz

color=['b' 'g' 'r' 'c' 'm'];

Lb=-32.44-20*log10(f)-20*log10(d/1000);

%Lbr=10*log10(GT)+10*log10(GR)+20*log10(hT)+20*log10(hR)-40*log10(d);

Lbr=real(10*log10(4*GR*GT)+20*log10(c)-20*log10(4*pi*f*(10^6)*d)+20*log10(sin((2*pi*hT*hR*f*(10^6))./(c*d))));

h1=semilogx(d,Lb,'LineWidth',2);

title('Reprezentare logaritmica pe axa Ox')

xlabel('d[m]')

ylabel('LB[dB]')

set(gcf, 'name', 'Variatia pierderilor de propagare in cazul reflexiei pe suprafete plane, comparativ cu propagarea in spatiul liber functie de distanta la frecventa de 100MHz', 'numbertitle', 'off');

set(h1,'Color',color(1));

grid; hold on

h2=semilogx(d,Lbr,'LineWidth',2);

set(h2,'Color',color(3));

%grid; hold on

legend('Propagare in spatiu liber','Propagare deasupra suprafetelor reflectante plane');

uiwait(h);

%Lb - Pierderile de propagare in proximitatea emitatorului functie

% de distanta in cazul reflexiei pe suprafete plane

% cu frecventa parametru (reprezentare liniara pe axa Ox)

pause on;

h=figure;

%scrsz = get(0,'ScreenSize');

%set(h,'Position',[scrsz(1)*2 scrsz(2)*2 scrsz(3)*.9 scrsz(4)*.9]);

GT=1; GR=1; hT=10; hR=1;

c=3*(10^8); %m/s

d=0.1:.1:25;

f=[1 4 12 100 1000];

f = f*10^6;

color=['b' 'g' 'r' 'c' 'm'];

for y=1:5

Lbr=real(10*log10(4*GR*GT)+20*log10(c)-20*log10(4*pi*f(y)*d)+20*log10(sin((2*pi*hT*hR*f(y))./(c*d))));

h1=plot(d,Lbr,'LineWidth',2);

title('Reprezentare liniara pe axa Ox')