mCBand_Question1.m

% Constants
c = 3e8; % Speed of light (m/s)
f_UL = 6.285e9; % Frequency (Hz)
BW_tr_Hz = 36e6; % Transponder Bandwidth (Hz)
BW_tr_dB = 10*log10(BW_tr_Hz);
R = 38500e3; % Distance (m)
D = 9; % Antenna diameter (m)

K = -228.6; % Boltzmann constant (dBW/K/Hz)
T_sys = 500; % Noise temperature (K)
T_sys_dB = 10*log10(T_sys); 

G_sat_dB = 31; % Antenna gain
Aeff_ES = 0.68; % Antenna aperture efficiency
reqCN_up_dB = 26; % Required carrier-to-noise ratio (dB)
L_misc = 0.5; % Clear air atmospheric attenuation and other losses in dB
L_ptr = 2; % Edge of contour Loss in dB
Gr_sat_dB = G_sat_dB - L_ptr;
% Calculate wavelength
lambda = c / f_UL;

% Noise Power Budget (C/N)up = 26 dB
N_dB = K + T_sys_dB + BW_tr_dB; % Power of the Noise in dB
fprintf('The noise power is: %.2f dBW\n', N_dB);

% Calculate losses
Lp = 20 * log10(R) + 20 * log10(f_UL) + 20 * log10(4 * pi / c); % Path Loss
L_tot_dB = Lp + L_misc;
fprintf('The total losses are: %.2f dB\n', L_tot_dB);

% Calculate antenna gain
Gt_lin = Aeff_ES * (pi * D / lambda)^2;
Gt_db = 10 * log10(Gt_lin); % Convert antenna gain to dB
fprintf('The antenna gain is: %.2f dB\n', Gt_db);

% Calculate required transmitter power
%Pt_dB = reqCN_up_dB + L_tot_dB + N_dB - Gt_db - G_sat_dB; % From CNup_dB = Pt_dB + Gt_db - L_tot_dB, solve for Pt_dB
Pt_dB = reqCN_up_dB - (Gt_db + Gr_sat_dB - Lp - N_dB);
fprintf('The required transmitter power is: %.2f dBW\n', Pt_dB);

% Convert power to W
Pt_W = 10^(Pt_dB/10);
fprintf('The required transmitter power is: %.2f W\n', Pt_W);

% Show Results
fprintf('The required transmitter output power during clear sky conditions is: %.2f Watts (%.2f dBW)\n', Pt_W, Pt_dB);