CALCULATING TOTAL DIFFRACTION LOSS IN DB

 

% =================== SURAJ BASTOLA% ===========

%==================THANKS TO MATLAB =========================

% ============== Calculating Diffraction Loss ==============

clc;

clear all;

close all;

d1 = 20000;

d2 = 36500;

c = 3E8;

f = 9E8;

l = c/f;

fprintf('Wavelength = %d\n',l);

h = sqrt(l*d1*d2/(d1+d2));

fprintf('Height of knife edge above LOS of knife edge = %d\n',h);

%%%%%%%% Calculating first Fresnel-Kirchhoff value %%%%%%%

v = h*(sqrt(2*(d1+d2)/(l*d1*d2)));

fprintf('First Fresnel-Kirchoff value = %d\n',v);

%%%%%% Calculating Diffraction LOss in dB %%%%%%%%%%

if (v<=-1)

    f = 0;   

elseif(v<=0)

    f = 0.5-0.62*v;  

elseif(v<=1)

    f = 0.5*exp(-0.95*v);   

elseif(v<=2.4)

    f = 0.4-(sqrt(0.1184-(0.38-0.1*v)^2));   % It is our desired equation as v = 1.414214   

else

    f = (0.225079)./v;        

end

fprintf('Diffraction Loss =%d/n',f); % Diffraction Loss

y = (abs(f))^2;

G = 10* log10(y); % Diffraction Loss in dB

fprintf('Total Diffraction Loss in dB = %d\n',G);

======================================================

Output:

Wavelength = 3.333333e-01

Height of knife edge above LOS of knife edge = 6.562610e+01

First Fresnel-Kirchoff value = 1.414214e+00

Diffraction Loss =1.520479e-01/nTotal Diffraction Loss in dB = -1.636039e+01