intro82.m

来自「wireless propagation in microcells and p」· M 代码 · 共 51 行

%
% Intro 82
%
%=======================================================================
clear
close all
clc
%=======================================================================
f=2000               % Frequency in MHz

% Brick Wall ==========================================================
er=4.26;            % Relative permitivity.
sigma=0.01;         % Conductivity (S/m).
%=======================================================================
% Reflection and Transmission coefficients Very dry Ground==============
mang_inc=0:0.01:90;
epp=ep(f*1e6,er,sigma);
% Reflection and Transmission coefficients Wet Ground==================
Mrpar=[];
Mrper=[];
Mtpar=[];
Mtper=[];
epp=ep(f*1e6,er,sigma);
for index=1:length(mang_inc)
    
    [rpar,rper]=rfresnel(mang_inc(index)*pi/180,epp);
    [tpar,tper]=tfresnel(mang_inc(index)*pi/180,epp);
    Mrpar=[Mrpar;rpar];
    Mrper=[Mrper;rper];
    Mtpar=[Mtpar;tpar];
    Mtper=[Mtper;tper];
    
end
figure
plot(mang_inc,abs(Mrpar),'-k','LineWidth',2);
hold on
plot(mang_inc,abs(Mrper),'--k','LineWidth',2);
hold on
plot(mang_inc,abs(Mtpar),':k','LineWidth',2);
hold on
plot(mang_inc,abs(Mtper),'-.k','LineWidth',2);
xlabel('Incident angle \theta (degrees) ')
ylabel('\midCoefficient\mid')
grid
title('Reflection and Transmission coefficients-Brick Wall')
legend('Reflection C. Par','Reflection C. Per','Transmission C. Par'...
    ,'Transmission C. Per')

clear Mrpar Mrper Mtpar Mtper