function ssp = doppler(L,T,W,p,M,n,Wd,plt)
p = burst(L,T,W,p,M,n,plt);
ssp = shiftspec(Wd,p,plt);




%function ssp = doppler(L,N,M,Wd)
%p = burst(L,N,M);
%s = shiftspec(Wd,p);
if plt == 1
   sspmag = abs(real(ssp).^2);
   subplot(4,1,3),stem(sspmag)
end