function dummy(i);  % plot clutter around point ``i''

load b98down1024_right

g = b98down1024;
gr = real(g);

t = linspace(0,1,1024);
clg
hold off
axis('normal')
axis([0 1 0 255])
subplot(211)
plot(t,gr)
xlabel('Time')
ylabel('Real Amplitude')
title('Real Part of Growler Time Series')

load hhb9815_right
c = hhb9815;  % clutter
%L2 = conj(c(:)).*c(:);
%[y i] = max(L2)

c = c(i-511:i+512);
plot(t(:),real(c(:)))
xlabel('Time')
ylabel('Real Amplitude')
title('Real Part of Clutter Time Series')

