tom@516: % Copyright 2012, Google, Inc.
tom@516: % Author: Richard F. Lyon
tom@516: %
tom@516: % This Matlab file is part of an implementation of Lyon's cochlear model:
tom@516: % "Cascade of Asymmetric Resonators with Fast-Acting Compression"
tom@516: % to supplement Lyon's upcoming book "Human and Machine Hearing"
tom@516: %
tom@516: % Licensed under the Apache License, Version 2.0 (the "License");
tom@516: % you may not use this file except in compliance with the License.
tom@516: % You may obtain a copy of the License at
tom@516: %
tom@516: %     http://www.apache.org/licenses/LICENSE-2.0
tom@516: %
tom@516: % Unless required by applicable law or agreed to in writing, software
tom@516: % distributed under the License is distributed on an "AS IS" BASIS,
tom@516: % WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
tom@516: % See the License for the specific language governing permissions and
tom@516: % limitations under the License.
tom@516: 
dicklyon@517: % Test/demo hacking for carfac matlab stuff, two-channel (binaural) case
tom@516: 
tom@516: clear variables
tom@516: 
tom@516: agc_plot_fig_num = 1;
tom@516: 
tom@516: tic
tom@516: 
dicklyon@517: file_signal = wavread('plan.wav');
dicklyon@517: file_signal = file_signal(9000+(1:15000));  % trim for a faster test
tom@516: 
dicklyon@517: itd_offset = 22;  % about 1 ms
dicklyon@517: test_signal = [file_signal((itd_offset+1):end), ...
dicklyon@517:                file_signal(1:(end-itd_offset))] / 10;
dicklyon@517:              
tom@516: CF_struct = CARFAC_Design;  % default design
tom@516: 
dicklyon@535: % Run stereo test:
dicklyon@535: n_ears = 2
dicklyon@535: CF_struct = CARFAC_Init(CF_struct, n_ears);
dicklyon@517:   
dicklyon@535: [CF_struct, nap_decim, nap] = CARFAC_Run(CF_struct, test_signal, agc_plot_fig_num);
tom@516: 
dicklyon@535: % Display results for 2 ears:
dicklyon@535: for ear = 1:n_ears
dicklyon@535:   smooth_nap = nap_decim(:, :, ear);
dicklyon@535:   figure(ear + n_ears)  % Makes figures 3 and 4
tom@516:   image(63 * ((smooth_nap)' .^ 0.5))
dicklyon@535: 
tom@516:   colormap(1 - gray);
tom@516: end
tom@516: 
tom@516: toc
tom@516: 
tom@516: % Show resulting data, even though M-Lint complains:
tom@516: CF_struct
dicklyon@535: CF_struct.CAR_state
tom@516: CF_struct.AGC_state
tom@516: min_max = [min(nap(:)), max(nap(:))]
tom@516: min_max_decim = [min(nap_decim(:)), max(nap_decim(:))]
dicklyon@517: