x0=wavread('sample.wav')
x1=x0'
x2=x1(1:128);
x3=[x2,zeros(1,394)];
X1=fft(x2);
X2=fft(x3);
X1mag=abs(X1);
length(X1mag)
X1ag=phase(X1);
X2mag=abs(X2);
X2ag=phase(X2);

figure(1);
subplot(2,2,1)
plot(X1mag);

subplot(2,2,2)
plot(X1ag);

subplot(2,2,3)
plot(X2mag);

subplot(2,2,4)
plot(X2ag);

%w=kaiser(128,X1mag);
%figure(2);
%plot(w.*pi/512);





