function p = burst(L,T,W,p,M,n,plt)
c = dchirp(T,W,p);
N=round(p*T*W);
if M > N
   pulse=[c zeros(1,M-N)];
else pulse = c;
end
%p=zeros(1,N);  Should be set in match filter!!!
p=[];
for I=1:L,
   p=[p pulse];
end
noise = randn(1,length(p));
p =n*noise+p;
if plt ==1
P=fft(p);
Pmag=sqrt(real(P).^2+imag(P).^2);
subplot(4,1,1) ,stem(Pmag)
end 
%function p = burst(L,N,M)
%c = dchirp(2e-6,20e6,8);
%pulse=[c zeros(1,M-N)];
%p=[];
%for I=1:L,
%   p=[p pulse];
%end
%P=fft(p);
%Pmag=sqrt(real(P).^2+imag(P).^2);
%subplot(3,1,1) ,stem(Pmag)