%filters data and plots spectrogram for 64 electrode array
%requires raw data and sampling frequency

function [data] = Spectrogram( wave );

data = (wave(:,1:64));
%data = wave;
%wave(1,:)=0;

figure
specgram(data(:,36),1024,1000,hanning(256),220); axis([0 10 0 100]); axis off;

%figure
%for n=1:64
%subplot(8,8,n); specgram(data(:,n),1024,1000,hanning(256),220); axis off; grid on; axis([0 10 0 100]); 
%end