pt = ((.32*10^-6)./2).*[1:length(ipwrtt)].*1000;													%converts x scale to msec
plot(pt,ipwrtt)
xlabel('time(msec)')
ylabel('Power')
axis([0 max(pt) 0 max(ipwrtt)])

titl = ['            Prewhitened, dechirped Power of ' filename]; 
title(titl)
set(gca, 'YTickLabelMode', 'manual', 'YTickLabel', [ 
set(gcf, 'Position', [50 25 400 350])