Mercurial > hg > map
view testPrograms/demoTwisterProbability.m @ 38:c2204b18f4a2 tip
End nov big change
author | Ray Meddis <rmeddis@essex.ac.uk> |
---|---|
date | Mon, 28 Nov 2011 13:34:28 +0000 |
parents | 25d53244d5c8 |
children |
line wrap: on
line source
function demoTwisterProbability % MAPdemo runs the MATLAB auditory periphery model (MAP1_14) as far as % the AN (probabilities) or IC (spikes) with graphical output dbstop if error restorePath=path; addpath (['..' filesep 'MAP'], ['..' filesep 'wavFileStore'], ... ['..' filesep 'utilities']) %% #1 parameter file name MAPparamsName='Normal'; %% #2 probability (fast) AN_spikesOrProbability='probability'; %% #3 speech file input fileName='twister_44kHz'; %% #4 rms level leveldBSPL=60; % dB SPL %% #5 number of channels in the model % 21-channel model (log spacing) numChannels=21; lowestBF=250; highestBF= 8000; BFlist=round(logspace(log10(lowestBF), log10(highestBF), numChannels)); %% #6 no change to model parameters paramChanges=[]; %% Generate stimuli [inputSignal sampleRate]=wavread(fileName); inputSignal(:,1); targetRMS=20e-6*10^(leveldBSPL/20); rms=(mean(inputSignal.^2))^0.5; amp=targetRMS/rms; inputSignal=inputSignal*amp; %% run the model tic fprintf('\n') disp(['Signal duration= ' num2str(length(inputSignal)/sampleRate)]) disp([num2str(numChannels) ' channel model']) disp('Computing ...') MAP1_14(inputSignal, sampleRate, BFlist, ... MAPparamsName, AN_spikesOrProbability, paramChanges); %% the model run is finished. Now display the results %% delare showMap options showMapOptions.printModelParameters=1; showMapOptions.showModelOutput=1; showMapOptions.printFiringRates=1; showMapOptions.showACF=0; showMapOptions.showEfferent=0; showMapOptions.surfAN=1; % 3D plot of HSR response showMapOptions.PSTHbinwidth=0.002; % 3D plot of HSR response showMapOptions.view=[-14 76]; % 3D plot of HSR response UTIL_showMAP(showMapOptions) toc path(restorePath)