jamchan.m

此程序给出了不同情况的雷达距离测量仿真平台

% Traffic Capacity with Uplink Jamming
% Hard Limited Satellite Transponder
% -----------------------------------

clear;clc;clf;

Erpmin=90;Erpmax=130;

% Define Jammer Erp(dbw) from Erpmin to Erpmax

Erpj=Erpmin:.1:Erpmax;

% Enter Link Parameters

W=40;	   % Bandwidth - Mhz
x=10;	   % Es/No - dB
Ml=6;	   % Link Margin - dB
Erpsgt=95; % SGT Erp - dbw

W=W*1e6;x=10^(x/10);Ml=10^(Ml/10);

% Compute ratio - Signal-to-Total Transponder Power

S=10^(Erpsgt/10);J=10.^(Erpj/10);

% Find Signal Suppression Loss - Ls
% Jones/IT Trans/ Jan 1963

jsr=J/S;
snr=x;snr=10^(snr/10);
jnr=jsr*snr;

  f(1,:)=[0,1,1.11,1.33,2,5,10,100];
  f(2,:)=[10,1,.88,.7,.5,.33,.31,.29];
  f(3,:)=[20,1,.8,.62,.43,.32,.30,.28];
  f(4,:)=[30,1,.79,.6,.41,.31,.29,.27];
  f(5,:)=[40,1,.77,.58,.4,.3,.28,.26];
  f(6,:)=[50,1,.75,.57,.4,.3,.27,.25];
  f(7,:)=[60,1,.74,.56,.4,.3,.27,.25];
  f(8,:)=[70,1,.74,.56,.4,.3,.27,.25];
  f(9,:)=[80,1,.73,.55,.4,.3,.27,.25];
  f(10,:)=[90,1,.73,.55,.4,.3,.27,.25];
  f(11,:)=[100,1,.726,.547,.394,.294,.27,.25];

for j=1:length(Erpj);
if jsr(j)<1;Ls(j)=1;end;
if jsr(j)>100 | jnr(j)>100;Ls(j)=.25;end;
if  jsr(j)>=1 & jnr(j)<=100;
 Ls(j)=table2(f,jnr(j),jsr(j));end;
end;

% Compute Bit Data Rate

fac=Ls./(1+jsr+(1/snr));
R=W*fac./((1-fac)*x*Ml); 

% Plot Channel Rate vs Erpj

semilogy(Erpj,R);grid;
xlabel('Jammer Erp - dBw');
ylabel('Channel Capacity - bits/s');
title(['Channel Capacity of Jammed Transponder']);