intcept.m

％ This program calculates radar ranges in a jamming environment. It works ％ with both Stand-off jam

% Intercept Time for Specified POI
% ----------------------------------

clear;clf;clc;

% Input Radar Beamwidth and Pulsewidth

bw=1.5;		% degrees
scan=12;	% rate in rpm

% Calculate Window Function

T1=60/scan;	% seconds
t1=(bw/360)*T1;	% seconds

% Input Intercept Bandwidth

ibw=1:.1:10;	% degees

% Input POI

POI=.9;

% Calculate Obsevation Time

for k=1:6;
  iscan=30*k;	% degrees
  T2=60/iscan;
  t2=(ibw/360)*T2;
  To=(T1*T2)./(t1+t2);
  Tj=-To*log(1-POI);
  Tjx(:,k)=Tj';
end;

% Plot Observation Time

plot(ibw,Tjx,'k');grid;
xlabel('Beamwidth - degrees');
ylabel('Intercept Time - seconds');
title('Intercept Time for Main Beam Intercept');
text(7.5,750,['POI =',num2str(POI)]);