y=wavread('mozartr');
z=y(1:8:800000);
figure,
subplot(411);plot(z)
subplot(412);specgram(z,512,44100/4)
subplot(413);specgram(z,1024,44100/4);
subplot(414),axis off,colorbar('horiz')
