Evaluation of link budget

LinkBudget.m

format short
clear
clc
%Dati Iniziali ORBITA
    D=15*10^3; %m
    c=299792458; %m/s
    k=1.38064*10^-23; %J/K
    T0=290; %K
%% GOM_Downlink_UHF
fc=2.4*10^9; %WiFi
    lambda=c/fc;  %m
%PATH PARAMETER AND LOSSES
    FSL_lin=(4*pi*D/lambda)^2; 
    FSL_dB=pow2db(FSL_lin); %dB
Loss_pol_dB=0; %dB
    Loss_pol_lin=db2pow(Loss_pol_dB); 
Loss_point_dB=0.5;
    Loss_point_lin=db2pow(Loss_point_dB); 
%vapor d'acqua O OSSIGENO MOLECOLARE
    ro=7.5; %g/m^3
    h=D*10^-3; %Km
    fc_G=fc*10^-9;
    gammaW=(0.067+(3/((fc_G-2.23)^2+7.3))+(9/((fc_G-183.3)^2+6))+(4.3/((fc_G-323.8)^2+10)))*fc_G^2*ro*10^-4; %dB/km
    gammaO=(7.19*10^-3+(6.09/(fc_G^2-0.22))+(4.81/((fc_G-57)^2+1.5)))*fc_G^2*10^-3; %dB/km; 
    gamma=gammaW+gammaO;
    Loss_atm_dB=h*gamma; %dB
    Loss_atm_lin=db2pow(Loss_atm_dB);
    Loss_fog_dB=h*0.5*10^-2;
    Loss_fog_lin=db2pow(Loss_fog_dB);
    Loss_rain_dB=h*10^-1;
    Loss_rain_lin=db2pow(Loss_rain_dB);

%TRANSIMITTER PARAMETERS
%Pt_lin=; %mW
Pt_dBm=20; %pow2db(Pt_lin); %dBm
    Pt_lin=db2pow(Pt_dBm); %mW 
Gt_dB=12; %dBi
    Gt_lin=db2pow(Gt_dB);
    EIRP=Gt_dB+Pt_dBm; %dBm
Loss_tra_cable_dB=0; %dB
    Loss_tra_cable_lin=db2pow(Loss_tra_cable_dB);

%RECEIVER PARAMETERS
Gr_dB=Gt_dB; %dBi
    Gr_lin=db2pow(Gr_dB);
    Loss_rec_cable_dB=0; %dB
    Loss_rec_cable_lin=db2pow(Loss_rec_cable_dB);
F=1; %dBi

%TOTAL POWER SUMMARY
    Pr_dBm=Pt_dBm+Gt_dB+Gr_dB-FSL_dB-Loss_pol_dB-Loss_point_dB-Loss_tra_cable_dB-Loss_rec_cable_dB-Loss_fog_dB-Loss_atm_dB-Loss_rain_dB; %dBWm
    Pr_lin=db2pow(Pr_dBm); %mW