MATLAB Listing

%Figure 3.50: ‘Mobile satellite communications:Principles and Trends’ by M.Richharia;

%Fade versus number of channels available for various percentage of mobiles undergoing fade;

%Matlab source code by AR/MR

figure(‘color’,’white’);

hold;

EIRPdbW= [30 30  30 30 30 30 30 30 30 30 30]; %EIRP/ch (dBW);

EIRPw = 10.^(EIRPdbW./10);%EIRP/ch (W);

fadedB=linspace(0,10,11);%Fade level (dB);

fade=10.^(fadedB./10);%Fade level (Number);

EIRPWF=EIRPw.*fade;%EIRP/ch at faded level;

X1=1/100; % 1;

X2=10/100; % 10;

X3=25/100; % 25;

X4=50/100; % 50;

X5=0/100; % 50;

X6=100/100; % 50;

%Number of channels for different fractions, satellite EIRP=70 dBW;

N1=(10^7)./(EIRPw.*(fade*X1+1-X1));

N2=(10^7)./(EIRPw.*(fade*X2+1-X2));

N3=(10^7)./(EIRPw.*(fade*X3+1-X3));

N4=(10^7)./(EIRPw.*(fade*X4+1-X4));

N5=(10^7)./(EIRPw.*(fade*X5+1-X5));

N6=(10^7)./(EIRPw.*(fade*X6+1-X6));

%Plot figure;

plot(fadedB,N1,’k’,fadedB,N2,’k’,fadedB,N3,’k’,fadedB,N4,’k’,fadedB,N5,’k’,fadedB,N6,’k’)

%legend(‘Faded channels (1%)’,’Faded channels (10%)’,’Faded channels (25%)’,’Faded channels (50%)’,’Faded channels (0%)’,’Faded channels (100%)’)

xlabel(‘Fade (dB)’);

ylabel(‘Number of channels’);

grid on;