%%
Fs = 11025;

% yPlay = randn( 10*Fs, 1 );
yPlay = chirp((0:10*Fs)/Fs, 200, 10, 2500);

sound( yPlay, Fs )
y = wavrecord( 10*Fs, Fs );

[ w, f, t, p ] = spectrogram(y,round(0.1*Fs),round(0.05*Fs),[],Fs);
figure, imagesc( t, f, (p).^.25 ), set( gca, 'ydir', 'normal' )
figure, plot( f, mean(sqrt(p),2) )
