**CODING**

clear all;

clc;

disp('ENTER UPLINK PARAMETERS')

disp('---------------------------------------')

pt=input('Earth station Transmitter output power :');

lbo=input('Earth Station back-off loss : ');

lbf=input('Earth station branching and feeder losses :');

at=input('Earth station Transmit antenna gain : ');

lu=input('Additional uplink atmospheric losses : ');

lp=input('Free-space path loss : ');

gte=input('Satellite receiver G/Te ratio : ');

bfb=input('Satellite branching and feeder losses : ');

br=input('Bit rate : ');

disp('---------------------------------------')

disp('ENTER DOWNLINK PARAMETERS')

disp('---------------------------------------')

disp('')

pt2=input('Satellite transmitter output power :');

lbo2=input('Satellite back-off loss : ');

lbf2=input('Satellite branching and feeder losses :');

at2=input('Satellite Transmit antenna gain : ');

ld=input('Additional downlink atmospheric losses : ');

lp2=input('Free-space path loss : ');

gte2=input('Earth station receiver G/Te ratio : ');

bfb2=input('Earth station branching and feeder losses : ');

br2=input('Bit rate : ');

disp('---------------------------------------')

EIRP=pt+at-lbo-lbf;

disp('UPLINK BUDGET')

disp('---------------------------------------')

%EIRP (Earth Station)

fprintf('EIRP (Earth Station) = %f dBW \n',EIRP);

c1=EIRP-lp-lu;

%Carrier power density at the satellite antenna :

fprintf('Carrier power density at the satellite antenna = %f dBW\n',c1);

cn0=c1+gte-(10*log10(1.38*(10^(-23))));

fprintf('C/No at the satellite = %f dB\n',cn0);

ebn0=cn0-(10*log10(br));

fprintf('Eb/No : = %f dB\n',ebn0);

cn=ebn0-10*(log10((40*(10^6))/(br)));

fprintf('for a minimum bandwidth system, C/N = %f dB\n',cn);

disp('---------------------------------------')

disp('DOWNLINK BUDGET')

disp('---------------------------------------')

%EIRP (satellite transponder)

EIRP2=pt2+at2-lbo2-lbf2;

fprintf('EIRP (satellite transponder) = %f dBW \n',EIRP2);

c12=EIRP2-lp2-ld;

%Carrier power density at the earth station antenna :

fprintf('Carrier power density at earth station antenna = %f dBW\n',c12);

cn02=c12+gte2-(10*log10(1.38*(10^(-23))));

fprintf('C/No at the earth station receiver = %f dB\n',cn02);

ebn02=cn02-(10*log10(br2));

fprintf('Eb/No : = %f dB\n',ebn02);

cn2=ebn02-10*(log10((40*(10^6))/(br2)));

fprintf('for a minimum bandwidth system, C/N = %f dB\n',cn2);

a=10^(ebn0/10);

b=10^(ebn02/10);

ebn0all=(a*b)/(a+b);

ebn02db=10*log10(ebn0all);

fprintf('Eb/No(overall) : = %f dB\n',ebn02db);

__SAMPLE INPUT__ENTER UPLINK PARAMETERS

---------------------------------------

Earth station Transmitter output power :33

Earth Station back-off loss : 3

Earth station branching and feeder losses :4

Earth station Transmit antenna gain : 64

Additional uplink atmospheric losses : .6

Free-space path loss : 206.5

Satellite receiver G/Te ratio : -5.3

Satellite branching and feeder losses : 0

Bit rate : 120*(10^6)

---------------------------------------

ENTER DOWNLINK PARAMETERS

---------------------------------------

Satellite transmitter output power :10

Satellite back-off loss : .1

Satellite branching and feeder losses :.5

Satellite Transmit antenna gain : 30.8

Additional downlink atmospheric losses : .4

Free-space path loss : 205.6

Earth station receiver G/Te ratio : 37.7

Earth station branching and feeder losses : 0

Bit rate : 120*(10^6)

**OUTPUT**

---------------------------------------

UPLINK BUDGET

---------------------------------------

EIRP (Earth Station) = 90.000000 dBW

Carrier power density at the satellite antenna = -117.100000 dBW

C/No at the satellite = 106.201209 dB

Eb/No : = 25.409397 dB

for a minimum bandwidth system, C/N = 30.180609 dB

---------------------------------------

DOWNLINK BUDGET

---------------------------------------

EIRP (satellite transponder) = 40.200000 dBW

Carrier power density at earth station antenna = -165.800000 dBW

C/No at the earth station receiver = 100.501209 dB

Eb/No : = 19.709397 dB

for a minimum bandwidth system, C/N = 24.480609 dB

Eb/No(overall) : = 18.674255 dB

>>