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

function [data] = PlotRaw4( wave, S );

waveFilt = BudapestbandPass(wave(:,2:65),1000,5,200);

transverse=1:64;
reshape(transverse,8,8);
transverse=reshape(transverse',1,64);

figure
plot(wave(:,1), waveFilt(:,27)); axis([1200 1700 -0.1 0.1]); 
figure
for n=1:64
subplot(8,8,transverse(n)); plot(wave(:,1), waveFilt(:,n)); 
axis([1200 1700 -0.1 0.1]); axis off;
end
