%% create the spectrogram of various signals

% load signal
% comment or uncomment to load the appropriate signal

%load('splat')
%load('chirp')
%load('train')
load('handel')
%load('gong')
%load('laughter')
sound(y);


% establish parameters
% window has length Fs/n
n=64;
e = 1;
hh = length(y)/25;

% flat window
% w is the window function
figure(1);
clf; 
w = ones(Fs/n,1); 
dt = 1/(2*n);
B = timespec(y,Fs,dt,w);
title('spectrogram');
colormap(jet)