ambfunb.m

来自「此程序给出了不同情况的雷达距离测量仿真平台」· M 代码 · 共 45 行

% Ambiguity Function for Pulsed Doppler Waveform
% ---------------------------------------------

clc;clf;clear;

N=2048;j=sqrt(-1);

% Waveform Parameters

Tp=1e-6;    	% pulse width - sec
T=10e-6;       % period - sec
f=2e7;	   	% carrier frequency - Hz
Tx=8*T;	   	% burst length - sec

% Set Time Sampling

t=-Tx/2:Tx/(N-1):Tx/2;

% Sample Coherent Burst Signal

df=100*Tp/T;
zz=(1+square(2*pi*t/T,df))/2;
x=zz.*exp(j*2*pi*f*t);

% Form Ambiguity Function

Bx=[];

fr=1/T;
for fd=-2*fr:fr/11:2*fr;
	y=x.*exp(-j*2*pi*fd*t);
	chi=abs(xcorr(x,y));
	Bx=[chi;Bx];
end;

%subplot(211),
mesh(Bx,[-37.5 30]);
title(['Ambiguity Function for Pulse Doppler Waveform']);
xlabel('time');ylabel('frequency');
zlabel('amplitude');

%subplot(212);contour(Bx);
%title(['Contour Plot']);
%xlabel('time');ylabel('frequency');