% Cancellation Ratio for CSLC
% ---------------------------

clear;clc:clf;

% Input Correlation Coefficients

e=1:5;
rhox=1-1./10.^e;

% Input Jam-to-Noise Ratio in DB

jnrdb=10:50;
jnr=10.^(jnrdb/10);

% Calculate Single Loop CR

for i=1:5;
rho=rhox(i);
a=jnr./(jnr+1);
cr1=1./(1-a*rho^2);
cr1db=10*log10(cr1);
CR1(:,i)=cr1db';
end;

% Plot Single Loop CR

subplot(1,2,1),
plot(jnrdb,CR1);grid;
title('CSLC Cancellation Ratio - Single Loop');
xlabel('Jam-to-Noise Ratio - dB');
ylabel('Cancellation Ratio - dB'); 

% Calculate Double Loop CR

for i=1:5;
rho=rhox(i);
a=jnr./(jnr+1);
cr2=(1+a*rho^4)./(1+a*rho^4-2*a*rho^2);
cr2db=10*log10(cr2);
CR2(:,i)=cr2db';
end;

% Plot Double Loop CR

subplot(1,2,2),
plot(jnrdb,CR2);grid;
title('CSLC Cancellation Ratio - Double Loop');
xlabel('Jam-to-Noise Ratio - dB');
ylabel('Cancellation Ratio - dB');