comparison userProgramsTim/map_iih_onto_log.m @ 38:c2204b18f4a2 tip

End nov big change

+function [mappediih,centerfreqs] = map_iih_onto_log(iih,numchannels,sfreq)
+
+%function to map an IPIH from the interval axis onto the frequency axis
+%with no overlap and mean firing rate.
+%
+% Tim Juergens, September 2011
+%
+% input: iih: IPIH with dimensions interval (1) and time step (2)
+%             the first dimension translates to time using the actual
+%             sampling frequency
+%        numchannels: number of desired channels
+%        sfreq: sampling frequency
+% output: mappediih: IPIH with dimensions frequency channel (1) and time
+%                    step (2)
+%         centerfreqs: center frequencies of the channels of mappediih
+
+ctr_intervals = [1/sfreq:1/sfreq:size(iih,1)/sfreq];
+lowestBF=1/ctr_intervals(end);
+highestBF=10000;
+
+borderfreqs = logspace(log10(lowestBF),log10(highestBF),numchannels+1);
+
+for iCounter = 1:numchannels
+    centerfreqs(iCounter)=(borderfreqs(iCounter)+borderfreqs(iCounter+1))/2;
+end
+
+for iCounter = 1:length(borderfreqs) %find the indices that correspond to the borderfrequencies of the BF filters
+    [tmp,channelbordersIPIindex(iCounter)]=min(abs(borderfreqs(iCounter)-1./ctr_intervals));
+end
+
+for iCounter = 1:length(centerfreqs)
+    %mapping with one interval sample overlap
+    mappediih(iCounter,:) = mean(iih(channelbordersIPIindex(end-iCounter+1):channelbordersIPIindex(end-iCounter),:));
+end
+
+
+
+% OPTIONAL PLOTTING
+            figure
+            YTickIdx = 1:floor(numel(centerfreqs)/6):numel(centerfreqs);
+            YTickIdxRev = numel(centerfreqs)+1-YTickIdx;
+            if ~isempty(gca)
+                axes(gca);  %#ok<MAXES>
+                imagesc(mappediih);         
+                set(gca, 'YTick', YTickIdx);                
+                set(gca, 'YTickLabel', num2str(   centerfreqs(YTickIdxRev)', '%0.0f' ));
+                ylabel('cf in Hz')                
+            end