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

function [data] = PlotCohere6( wave );

%waveFilt = BudapestbandPass(wave,1000,5,200);

%Lrotate=ones(8,8);
%for m=1:8
 %   for n=1:8
  %      Lrotate(m,n)=n*8-m+1;
  % end
  %end
%Lrotate=reshape(Lrotate,1,64);

%Rrotate=ones(8,8);
%for n=1:8
 %   for m=1:8
  %      Rrotate(m,n)=8*(8-m)+n;
  % end
  %end
%Rrotate=reshape(Rrotate,1,64);

figure
[waveCohere,f] = cohere(wave(1:300,35),wave(1:300,1));%,1024,[],512,256);
plot(f, waveCohere); %axis([0 50 0 1]); 
figure
for n=1:64
[waveCohere,f] = cohere(wave(1:300,n),wave(1:300,1));%,1024,[],512,256);
subplot(8,8,n); plot(f, waveCohere); %axis([0 50 0 1]); %axis off;
end
