THE AUDITORY MODELING TOOLBOX

Applies to version: 1.2.0

View the help

Go to function

EXP_BREEBAART2001 - Figures from Breebaart et al.(2001a and 2001b)

Program code:

function output=exp_breebaart2001(varargin)
%EXP_BREEBAART2001   Figures from Breebaart et al.(2001a and 2001b)
%   Usage: output = exp_breebaart2001(flags)
%
%   `exp_breebaart2001(flags)` reproduces experiments from the 
%   Breebaart et al (2001a and 2001b) papers.
%
%   The following flags can be specified;
%
%     'a_fig2'   Reproduce Fig. 2 from Breebaart et al. (2001a):
%                Output of the peripheral preprocessor for a 500-Hz tone
%                (left panel) and a 4000-Hz tone(right panel) of 100-ms
%                duration. The output is caluculated for a filter which
%                is nearest to the frequency of the tone.
%
%     'a_fig6'   Reproduce Fig. 6 from Breebaart et al. (2001a):
%                Left panel: Idealized EI-activity for a wideband diotic
%                noise (0-4000 Hz) with an overall level of 70 dB SPL
%                (offset = default = 100 dB) for an auditory filter
%                which is nearest to the frequency of the tone.
%                Right panel: change in the activity pattern of the left
%                pannel if a 500-Hz interaurally ou-of-phase signal
%                (Spi) is added with a level of 50 dB (offset = default
%                = 100 dB). Both signal and master have a duration of 1
%                second and the figures show the mean output of the
%                first 100 ms.
%
%     'b_fig3'   Reproduce Fig. 3 from Breebaart et al. (2001b):
%                N0Spi thresholds as a function of the masker bandwidth
%                for a constant overall level of the masker. The six
%                panels represent center frequencies of 125, 250, 500,
%                1000, 2000 and 4000 Hz, respectivly. The filled squares
%                are model predictions from Breebaart et al. (2001b).
%                The stars are model predictions calculated with our
%                implementation of the Breebaart model for a combination
%                of binaural and monaural decisions. The open squares
%                are data adapted from van de Par and Kohlrausch (1999).
%
%     'b_fig6'   Reproduce Fig. 6 from Breebaart et al. (2001b):
%                NpiSo thresholds as a function of masker bandwidth for
%                125-Hz (upper-left panel), 250-Hz (upper-right-panel),
%                500-Hz (lower left panel), and 1000-Hz center frequency
%                (lower-right panel). The open sybols are data adapted
%                from van de Par and Kohlrausch (1999), the filled
%                symbols are model preictions from Breebaart et al.
%                (2001b) and the stars are model predicitons calculated
%                with out implementation of the Breebaart model for a
%                combination of binaural and monaural decisions.
%
%     'fig1_vandepar1999'         Reproduce Fig.1 from van de Par and
%                                 Kohlrausch for the N0S0 condition:
%                                 N0S0 thresholds as a fuction of the
%                                 masker bandwidth expressed in
%                                 signal-to-overall-noise power ratio.
%                                 The six panels show data at various
%                                 center frequencies. The circels are
%                                 experimental data and the stars are
%                                 model predicitions calculated with our
%                                 implemntation ot the Breebaart model
%                                 using the monaural decision.
%
%   Further, cache flags (see amt_cache) and plot flags can be specified:
%
%     'plot'    Plot the output of the experiment. This is the default.
%
%     'no_plot'  Don't plot, only return data.
%
%   Figure 3 of Breebaart et al. (2001b) can also be calculated using the
%   interface of the model initiative. Assuming a model interface
%   waiting for binaural signals in a directory DIR, use
%   `exp_breebaart2001('b_fig3','redo','ModelInitiative','directory',DIR);`. The AMT
%   will start the experiment, collect the responses from the model server,
%   and plot the figure. 
%
%   See also: data_breebaart2001 data_vandepar1999 breebaart2001_centralproc breebaart2001 sig_breebaart2001 
%
%   Example:
%   ---------
%
%   To display Figure 2 of Breebaart et al. (2001a) use :::
%
%     out = exp_breebaart2001('a_fig2');
%
%   To display Figure 6 of Breebaart et al. (2001a) use :::
%
%     out = exp_breebaart2001('a_fig6');
%
%   To display Figure 3 of Breebaart et al. (2001b) use :::
%
%     out = exp_breebaart2001('b_fig3');
%
%   To display Figure 6 of Breebaart et al. (2001b) use :::
%
%     out = exp_breebaart2001('b_fig6');
%
%   To display Figure 1 of van de Par and Kohlrausch (1999) use :::
%
%     out = exp_breebaart2001('fig1_vandepar1999');
%
%
%   References: breebaart2001a breebaart2001b van1999dependence
  
%  AUTHOR: Martina Kreuzbichler


warning off;
%% ------ Check input options --------------------------------------------

  definput.import={'amt_cache'};
  definput.flags.type = {'missingflag','a_fig2','a_fig6','b_fig3','b_fig6',...
      'fig1_vandepar1999'};
  definput.flags.plot = {'plot','no_plot'};
  definput.flags.interface = {'AMT', 'ModelInitiative'};
  definput.keyvals.directory=tempdir;

  % Parse input options
  [flags,kv]  = ltfatarghelper({},definput,varargin);
        
if flags.do_missingflag
  flagnames=[sprintf('%s, ',definput.flags.type{2:end-2}),...
             sprintf('%s or %s',definput.flags.type{end-1},definput.flags.type{end})];
  error('%s: You must specify one of the following flags: %s.',upper(mfilename),flagnames);
end;

% Breebaart et al. (2001a) fig. 2
if flags.do_a_fig2
    
    testsigadlo = amt_cache('get','a_fig2',flags.cachemode);
    
    if isempty(testsigadlo)
        definput.import = {'auditoryfilterbank','ihcenvelope','adaptloop','breebaart2001_eicell'};
        definput.importdefaults={'fhigh',8000,'ihc_breebaart2001','adt_breebaart2001'};

        [flags,keyvals,~,~,~]  = ltfatarghelper({'flow', 'fhigh', ...
                            'basef'},definput,varargin);


        testsig(:,1) = sin(2*pi*(0:(0.1*48000)-1)'*500/48000);
        testsig(:,2) = sin(2*pi*(0:(0.1*48000)-1)'*4000/48000);

        testsig = scaletodbspl(testsig,70, 100);
        testsig = [testsig; zeros(0.1*48000,2)];

        for counter = 1:2

            testsigoutmiddle(:,counter) = ...
                breebaart2001_outmiddlefilter(testsig(:,counter),48000);

            [testsigaudfilt(:,:,counter), ~] = ...
                auditoryfilterbank(testsigoutmiddle(:,counter),48000,'argimport',flags,keyvals);

            testsigihc(:,:,counter) = ihcenvelope(testsigaudfilt(:,:,counter),...
                48000,'argimport',flags,keyvals);

            testsigadlo(:,:,counter) = adaptloop(testsigihc(:,:,counter),48000,...
                'argimport',flags,keyvals);
        end
        
        amt_cache('set','a_fig2',testsigadlo)
        
    end
    
    output = testsigadlo;
    
% Breebaart et al. (2001a) fig. 6   
elseif flags.do_a_fig6
    
    [ei_map_n_mean,ei_map_diff_mean] = ...
        amt_cache('get','a_fig6',flags.cachemode);
    
    if isempty(ei_map_n_mean)
    % do computation
    
        definput.import = {'auditoryfilterbank','ihcenvelope','adaptloop','breebaart2001_eicell'};
        definput.importdefaults={'fhigh',8000,'ihc_breebaart2001','adt_breebaart2001'};

        [flags,keyvals,flow,fhigh,basef]  = ltfatarghelper({'flow', 'fhigh', ...
                            'basef'},definput,varargin);

        fs = 32000;

        insig(:,1) = sig_bandpassnoise(2000,fs,1,70,4000);
        insig(:,2) = insig(:,1);
        insig = scaletodbspl(insig,70, 100);
        insig(:,3) = sin(2*pi*(0:(1*fs)-1)'*500/fs);
        insig(:,4) = sin(2*pi*(0:(1*fs)-1)'*500/fs-pi);
        insig(:,3:4) = scaletodbspl(insig(:,3:4),50, 100);
        insig(:,3:4) = insig(:,3:4) + insig(:,1:2);
        signalcounter = 1;

        for counter = 1:2

            sig = insig(:,signalcounter:signalcounter+1);

            for earnumber = 1:2
                outsig(:,earnumber) = breebaart2001_outmiddlefilter(sig(:,earnumber),fs);
            end

            [outsig, ~] = auditoryfilterbank(outsig,fs,'argimport',flags,keyvals);

            outsig = ihcenvelope(outsig,fs,'argimport',flags,keyvals);

            outsig = adaptloop(outsig,fs,'argimport',flags,keyvals);
            outsig = squeeze(outsig(:,9,:)); % 9 is filter at ~ 520 Hz

            ei_map{counter} = zeros(41,41,length(outsig));

            taucount = 1;
            ildcount = 1;
            for tau = -0.002:0.0001:0.002
                for ild = -10:0.5:10
                    n = round( abs(tau) * fs );
                    l=outsig(:,1);
                    r=outsig(:,2);
                    if tau > 0,
                        l = [zeros(n,1) ; l(1:end-n)];
                    else
                        r = [zeros(n,1) ; r(1:end-n)];
                    end
                    % apply characteristic ILD:
                    l=gaindb(l, ild/2);
                    r=gaindb(r,-ild/2);
                    % compute instanteneous EI output:
                    x = (l - r).^2;
                    % temporal smoothing:
                    A=[1 -exp(-1/(fs*30e-3))];
                    B=[1-exp(-1/(fs*30e-3))];
                    y= filtfilt(B,A,x);

                    z =0.1*log(0.00002*y+1);
                    ei_map{counter}(taucount,ildcount,:) = z; 
                    ildcount = ildcount + 1;
                end
                ildcount = 1;
                taucount = taucount + 1;
            end
            signalcounter = signalcounter + 2;
        end
        ei_map_n_mean = mean(ei_map{1}(:,:,1:3200,1),3); % mean of first 100 ms
        ei_map_sn_mean = mean(ei_map{2}(:,:,1:3200,1),3); % mean of first 100 ms
        ei_map_diff_mean = ei_map_sn_mean-ei_map_n_mean;

        amt_cache('set','a_fig6',ei_map_n_mean,ei_map_diff_mean);
    end
    
    output = struct('ei_map_noise',ei_map_n_mean,'ei_map_diff',ei_map_diff_mean);



% Breebaart et al. (2001b) fig. 3
elseif flags.do_b_fig3
    
    [N0Spi125,N0Spi250,N0Spi500,N0Spi1000,N0Spi2000,N0Spi4000] = ...
        amt_cache('get','b_fig3',flags.cachemode);
    
    if isempty(N0Spi125)
    % do computation
        
        parout = [];
        switch flags.interface
          case 'AMT'
            expset = {'intnum',3,'rule',[2 1],'expvarstepstart',8,...
              'expvarsteprule',[0.5 2],'stepmin',[1 8],'expvarstart',65};
          case 'ModelInitiative'
            expset = {'intnum',3,'rule',[2 1],'expvarstepstart',8,...
                'expvarsteprule',[0.5 2],'stepmin',[1 8],'expvarstart',65, ...
                'interface','ModelInitiative','directory',kv.directory,'fs',32000};
        end
        parout = amt_emuexp('expinit',parout,expset);
        
        % input2 = fs; input3 = tau; input4 = ild; 
        modelset = {'name','breebaart2001','input1',...
            'expsignal', 'input2',32000,'input3',0,'input4',0,...
            'outputs',[1 3 4]};
        parout = amt_emuexp('modelinit',parout,modelset);
        
        decisionset = {'name','breebaart2001_centralproc','input1',...
            'modelout','input2','modelout', 'input3','modelout',...
            'input4','lbr'};
        parout = amt_emuexp('decisioninit',parout,decisionset);

        fc = [125 250 500 1000 2000 4000];
        bw = [5 10 25 50 100 250 500 1000 2000 4000];
        %bwadd = [500 1000 2000 4000];
        nl = 65;

        % loop for all center freq.
        for fccount = 1:length(fc)

            %loop for all bandwidths
            for bwcount = 1:length(bw)
                  % calculate only for bandwidths max. twice as large as fc
                if bw(bwcount) <= 2*fc(fccount)
                  %input3 = signallevel; input4 = signalduration;
                  %input5 = signalphase; input7 = noiselevel;
                  %input8 = noiseduration; input9 = noisephase;
                  %input10 = hanning ramp duration; input11 = fs;
                  signalset = {'name','sig_breebaart2001','input1',...
                      'inttyp', 'input2',fc(fccount),'input3',...
                      'expvar','input4',0.3,'input5',pi,'input6',...
                      bw(bwcount),'input7',nl,'input8',0.4,'input9',0,...
                      'input10',0.05,'input11', 32000};
                  parout = amt_emuexp('signalinit',parout,signalset);

                  % loop for six experimental runs
                  resultbwvec = zeros(6,1);
                  for runcounter = 1:6
                      amt_disp(['Calculating: center frequency = ', num2str(fc(fccount)), ...
                          ' Hz, bandwidth = ' num2str(bw(bwcount)) ' Hz, run #' num2str(runcounter)]);

                      result = amt_emuexp('run',parout);
                      resultbwvec(runcounter) = result(1)-nl;
                  end
                  resultvec(bwcount) = mean(resultbwvec);
                  resultvecstd(bwcount) = std(resultbwvec,1);                  
                end
            end

            N0Spi_temp =sprintf('N0Spi%i',fc(fccount));
            output.(N0Spi_temp) = [resultvec; resultvecstd]';

            %if fccount <= length(bwadd)
            %    bw(end+1) = bwadd(fccount);
            %end

        end
        
        N0Spi125 = output.N0Spi125;
        N0Spi250 = output.N0Spi250;
        N0Spi500 = output.N0Spi500;
        N0Spi1000 = output.N0Spi1000;
        N0Spi2000 = output.N0Spi2000;
        N0Spi4000 = output.N0Spi4000;
        
        switch flags.interface
          case 'AMT'
            amt_cache('set','b_fig3',N0Spi125,N0Spi250,N0Spi500,N0Spi1000,...
                N0Spi2000,N0Spi4000);
        end
   
    else
        output = struct('N0Spi125',N0Spi125,'N0Spi250',N0Spi250,...
            'N0Spi500',N0Spi500,'N0Spi1000',N0Spi1000,'N0Spi2000',...
            N0Spi2000,'N0Spi40000',N0Spi4000); 
    end

elseif flags.do_b_fig6
    
    [NpiS0125,NpiS0250,NpiS0500,NpiS01000] = ...
        amt_cache('get','b_fig6',flags.cachemode);
    
    if isempty(NpiS0125)
    % do computation
        
        parout = [];
        switch flags.interface
          case 'AMT'
            expset = {'intnum',3,'rule',[2 1],'expvarstepstart',8,...
              'expvarsteprule',[0.5 2],'stepmin',[1 8],'expvarstart',65};
          case 'ModelInitiative'
            expset = {'intnum',3,'rule',[2 1],'expvarstepstart',8,...
                'expvarsteprule',[0.5 2],'stepmin',[1 8],'expvarstart',65, ...
                'interface','ModelInitiative','directory',kv.directory,'fs',32000};
        end
        parout = amt_emuexp('expinit',parout,expset);

        decisionset = {'name','breebaart2001_centralproc','input1',...
            'modelout','input2','modelout', 'input3','modelout',...
            'input4','lbr'};
        parout = amt_emuexp('decisioninit',parout,decisionset);

        fc = [125 250 500 1000];
        bw = [5 10 25 50 100 250];
        bwadd = [500 1000 2000];
        tau = [0.0039 0.002 0.001 0.0005];
        nl = 70;

        % loop for all center freq.
        for fccount = 1:length(fc)
            
            % input2 = fs; input3 = tau; input4 = ild; 
            modelset = {'name','breebaart2001','input1',...
                'expsignal','input2',32000,'input3',tau(fccount),...
                'input4',0,'outputs',[1 3 4]};
            parout = amt_emuexp('modelinit',parout,modelset);

            %loop for all bandwidths
            for bwcount = 1:length(bw)
                
                %input3 = signallevel; input4 = signalduration;
                %input5 = signalphase; input7 = noiselevel;
                %input8 = noiseduration; input9 = noisephase;
                %input10 = hanning ramp duration; input11 = fs;
                signalset = {'name','sig_breebaart2001','input1',...
                    'inttyp', 'input2',fc(fccount),'input3',...
                    'expvar','input4',0.3,'input5',pi,'input6',...
                    bw(bwcount),'input7',nl,'input8',0.4,'input9',0,...
                    'input10',0.05,'input11', 32000};
                parout = amt_emuexp('signalinit',parout,signalset);

                % loop for experimental runs
                for runcounter = 1:6
                    result = amt_emuexp('run',parout);
                    resultbwvec(runcounter) = result(1)-nl;
                end

                resultvec(bwcount) = mean(resultbwvec);
                resultvecstd(bwcount) = std(resultbwvec,1);
                resultbwvec = zeros(6,1);
                amt_disp(sprintf(['Progress for %i Hz center frequency: ' ...
                    num2str(round(bwcount/length(bw)*100)) ...
                    '%% calculated'],fc(fccount))); 

            end

            NpiS0_temp =sprintf('NpiS0%i',fc(fccount));
            output.(NpiS0_temp) = [resultvec; resultvecstd]';

            if fccount <= length(bwadd)
                bw(end+1) = bwadd(fccount);
            end

        end
        
        NpiS0125 = output.NpiS0125;
        NpiS0250 = output.NpiS0250;
        NpiS0500 = output.NpiS0500;
        NpiS01000 = output.NpiS01000;

        switch flags.interface
          case 'AMT'
            amt_cache('set','b_fig6',NpiS0125,NpiS0250,NpiS0500,NpiS01000);
        end    
    
    else
    output = struct('NpiS0125',NpiS0125,'NpiS0250',NpiS0250,'NpiS0500',...
        NpiS0500,'NpiS01000',NpiS01000); 
    end 
    
elseif flags.do_fig1_vandepar1999
    
    [N0S0125,N0S0250,N0S0500,N0S01000,N0S02000,N0S04000] = ...
        amt_cache('get','fig1_vandepar1999',flags.cachemode);
    
    if isempty(N0S0125)
        parout = [];
        switch flags.interface
          case 'AMT'
            expset = {'intnum',3,'rule',[2 1],'expvarstepstart',8,...
                'expvarsteprule',[0.5 2],'stepmin',[1 8],'expvarstart',90};
          case 'ModelInitiative'
            expset = {'intnum',3,'rule',[2 1],'expvarstepstart',8,...
                'expvarsteprule',[0.5 2],'stepmin',[1 8],'expvarstart',90, ...
                'interface','ModelInitiative','directory',kv.directory,'fs',32000};
        end
        parout = amt_emuexp('expinit',parout,expset);
        
        % input2 = fs; input3 = tau; input4 = ild; 
        modelset = {'name','breebaart2001','input1',...
            'expsignal', 'input2',32000,'input3',0,'input4',0,...
            'outputs',[1 3 4]};
        parout = amt_emuexp('modelinit',parout,modelset);
        
        decisionset = {'name','breebaart2001_centralproc','input1',...
            'modelout','input2','modelout', 'input3','modelout',...
            'input4','lbr'};
        parout = amt_emuexp('decisioninit',parout,decisionset);

        fc = [125 250 500 1000 2000 4000];
        bw = [5 10 25 50 100 250];
        bwadd = [500 1000 2000 4000];
        nl = 70;

        % loop for all center freq.
        for fccount = 1:length(fc)

            %loop for all bandwidths
            for bwcount = 1:length(bw)

                %input3 = signallevel; input4 = signalduration;
                %input5 = signalphase; input7 = noiselevel;
                %input8 = noiseduration; input9 = noisephase;
                %input10 = hanning ramp duration; input11 = fs;
                signalset = {'name','sig_breebaart2001','input1',...
                    'inttyp', 'input2',fc(fccount),'input3',...
                    'expvar','input4',0.3,'input5',0,'input6',...
                    bw(bwcount),'input7',nl,'input8',0.4,'input9',0,...
                    'input10',0.05,'input11', 32000};
                parout = amt_emuexp('signalinit',parout,signalset);

                % loop for experimental runs
                for runcounter = 1:6
                    amt_disp(['Calculating: center frequency = ', num2str(fc(fccount)), ...
                        ' Hz, bandwidth = ' num2str(bw(bwcount)) ' Hz, run #' num2str(runcounter)]);                  
                    result = amt_emuexp('run',parout);
                    resultbwvec(runcounter) = result(1)-nl;
                end

                resultvec(bwcount) = mean(resultbwvec);
                resultvecstd(bwcount) = std(resultbwvec,1);
                resultbwvec = zeros(6,1);
            end

            N0S0_temp =sprintf('N0S0%i',fc(fccount));
            output.(N0S0_temp) = [resultvec; resultvecstd]';

            if fccount <= length(bwadd)
                bw(end+1) = bwadd(fccount);
            end

        end
        
        N0S0125 = output.N0S0125;
        N0S0250 = output.N0S0250;
        N0S0500 = output.N0S0500;
        N0S01000 = output.N0S01000;
        N0S02000 = output.N0S02000;
        N0S04000 = output.N0S04000;

        switch flags.interface
          case 'AMT'
            amt_cache('set','fig1_vandepar1999',N0S0125,N0S0250,N0S0500,...
                N0S01000,N0S02000,N0S04000);
        end
        
    else
        output = struct('N0S0125',N0S0125,'N0S0250',N0S0250,...
            'N0S0500',N0S0500,'N0S01000',N0S01000,'N0S02000',N0S02000,...
            'N0S040000',N0S04000);  
    end

    
end


if flags.do_plot
    if flags.do_a_fig2
        fax = 0:0.2/9599:0.2;
        hafig2 = figure;
        set(hafig2, 'Position', [400 400 1300 450])
        subplot(1,2,1)
        plot(fax,output(:,9,1))
        axis([0 0.2 -1000 8500])
        set(gca,'XTick',[0 0.05 0.1 0.15 0.2]);
        xlabel('time [s]')
        ylabel('Output [MU')
        text('Position',[0.1 7000],'string','500 Hz tone')
        subplot(1,2,2)
        plot(fax,output(:,25,2))
        axis([0 0.2 -1000 8500])
        set(gca,'XTick',[0 0.05 0.1 0.15 0.2]);
        xlabel('time [s]')
        ylabel('Output [MU]')
        text('Position',[0.1 7000],'string','4000 Hz tone')
        
        set(gcf,'NextPlot','add');
        axes;
        h = title('Fig. 2 Output of the peripheral preprocessor');
        set(gca,'Visible','off');
        set(h,'Visible','on'); 

        
    elseif flags.do_a_fig6
        
        [x1,y1] = meshgrid(-10:0.5:10, -2:0.1:2);
        
        hfig1=figure;
        set(hfig1, 'Position', [100 100 1400 500])
        subplot(1,2,1)
        surf(x1,y1,ei_map_n_mean)
        xlabel('\alpha [dB]')
        ylabel('\tau [ms]')
        zlabel('Activity [MU]')
        axis([-10 10 -2 2 0 0.4])
        set(gca,'XTick',[-10 0 10]);
        set(gca,'YDir','reverse')
        set(gca,'YTick',[-2 0 2]);
        set(gca,'ZTick',[0 0.2 0.4]);
        hcb1=colorbar;
        caxis([0 0.4]);
        set(hcb1,'YTick',[0:0.1:0.4]);
        grid off
        view(-53,28)
        
        subplot(1,2,2)
        surf(x1,y1,ei_map_diff_mean)
        xlabel('\alpha [dB]')
        ylabel('\tau [ms]')
        zlabel('Activity [MU]')
        axis([-10 10 -2 2 -0.05 0.211])
        set(gca,'XTick',[-10 0 10]);
        set(gca,'YDir','reverse')
        set(gca,'YTick',[-2 0 2]);
        set(gca,'ZTick',[0 0.1 0.2]);
        hcb2 = colorbar;
        caxis([0 0.2]);
        set(hcb2,'YTick',[0:0.05:0.2]);
        grid off
        view(-53,28)
        set(gca,'LooseInset',get(gca,'TightInset'))
        
        set(gcf,'NextPlot','add');
        axes;
        h = title('Fig. 6');
        set(gca,'Visible','off');
        set(h,'Visible','on'); 


        
        
    elseif flags.do_b_fig3
        
        % get experimental data
        N0Spiexpdata125 = data_vandepar1999('fig1_N0Spi','nfc125');
        N0Spiexpdata250 = data_vandepar1999('fig1_N0Spi','nfc250');
        N0Spiexpdata500 = data_vandepar1999('fig1_N0Spi','nfc500');
        N0Spiexpdata1000 = data_vandepar1999('fig1_N0Spi','nfc1000');
        N0Spiexpdata2000 = data_vandepar1999('fig1_N0Spi','nfc2000');
        N0Spiexpdata4000 = data_vandepar1999('fig1_N0Spi','nfc4000');
        
        % get model data
        N0Spimodeldata125 = data_breebaart2001('fig3','nfc125');
        N0Spimodeldata250 = data_breebaart2001('fig3','nfc250');
        N0Spimodeldata500 = data_breebaart2001('fig3','nfc500');
        N0Spimodeldata1000 = data_breebaart2001('fig3','nfc1000');
        N0Spimodeldata2000 = data_breebaart2001('fig3','nfc2000');
        N0Spimodeldata4000 = data_breebaart2001('fig3','nfc4000');

        hfig2=figure;
        set(hfig2, 'Position', [100 100 1100 700])
        
        bw = [5 10 25 50 100 250];
        subplot(3,2,1);
        errorbar(bw,N0Spi125(:,1),N0Spi125(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 -5])
        hold on;
        plot(bw,N0Spimodeldata125,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,N0Spiexpdata125,'-sg','MarkerSize',10)
        text('Position',[1000 -10],'string','125 Hz')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');

        bw = [5 10 25 50 100 250 500];
        subplot(3,2,2);
        errorbar(bw,N0Spi250(:,1),N0Spi250(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 -5])
        hold on;
        plot(bw,N0Spimodeldata250,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,N0Spiexpdata250,'-sg','MarkerSize',10)
        text('Position',[1000 -10],'string','250 Hz')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');

        bw = [5 10 25 50 100 250 500 1000];
        subplot(3,2,3);
        errorbar(bw,N0Spi500(:,1),N0Spi500(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 -5])
        hold on;
        plot(bw,N0Spimodeldata500,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,N0Spiexpdata500,'-sg','MarkerSize',10)
        text('Position',[1000 -10],'string','500 Hz')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');

        bw = [5 10 25 50 100 250 500 1000 2000];
        subplot(3,2,4);
        errorbar(bw,N0Spi1000(:,1),N0Spi1000(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 -5])
        hold on;
        plot(bw,N0Spimodeldata1000,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,N0Spiexpdata1000,'-sg','MarkerSize',10)
        text('Position',[1000 -10],'string','1000 Hz')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');
        
        bw = [5 10 25 50 100 250 500 1000 2000 4000];
        subplot(3,2,5);
        errorbar(bw,N0Spi2000(:,1),N0Spi2000(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 -5])
        hold on;
        plot(bw,N0Spimodeldata2000,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,N0Spiexpdata2000,'-sg','MarkerSize',10)
        text('Position',[1000 -10],'string','2000 Hz')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');
        
        subplot(3,2,6);
        errorbar(bw,N0Spi4000(:,1),N0Spi4000(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 5])
        hold on;
        plot(bw,N0Spimodeldata4000,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,N0Spiexpdata4000,'-sg','MarkerSize',10)
        text('Position',[1000 0],'string','4000 Hz')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');

        legend({'modeled data SSL = 65 dB, NL 65 dB  - monaural factor = 0.0003',...
            'model data from Breebaart (2001)',...
            'experimental data from van de Par and Kohlrausch (1999)'},...
            'Position' ,[0.75,0.943,0.1,0.04]);
        set(gcf,'NextPlot','add');
        axes;
        h = title('Fig. 3 N0Spi Thresholds');
        set(gca,'Visible','off');
        set(h,'Visible','on'); 
        
        
    elseif flags.do_b_fig6
        
        % get experimental data
        NpiS0expdata125 = data_vandepar1999('fig1_NpiS0','nfc125');
        NpiS0expdata250 = data_vandepar1999('fig1_NpiS0','nfc250');
        NpiS0expdata500 = data_vandepar1999('fig1_NpiS0','nfc500');
        NpiS0expdata1000 = data_vandepar1999('fig1_NpiS0','nfc1000');

        
        % get model data
        NpiS0modeldata125 = data_breebaart2001('fig6','nfc125');
        NpiS0modeldata250 = data_breebaart2001('fig6','nfc250');
        NpiS0modeldata500 = data_breebaart2001('fig6','nfc500');
        NpiS0modeldata1000 = data_breebaart2001('fig6','nfc1000');

        hfig3=figure;
        set(hfig3, 'Position', [100 100 1100 700])
        
        bw = [5 10 25 50 100 250];
        subplot(2,2,1);
        errorbar(bw,NpiS0125(:,1),NpiS0125(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 0])
        hold on;
        plot(bw,NpiS0modeldata125,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,NpiS0expdata125,'-sg','MarkerSize',10)
        text('Position',[5 -30],'string','125 Hz; 3.9 ms')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');

        bw = [5 10 25 50 100 250 500];
        subplot(2,2,2);
        errorbar(bw,NpiS0250(:,1),NpiS0250(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 -5])
        hold on;
        plot(bw,NpiS0modeldata250,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,NpiS0expdata250,'-sg','MarkerSize',10)
        text('Position',[5 -30],'string','250 Hz; 2 ms')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');

        bw = [5 10 25 50 100 250 500 1000];
        subplot(2,2,3);
        errorbar(bw,NpiS0500(:,1),NpiS0500(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 -5])
        hold on;
        plot(bw,NpiS0modeldata500,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,NpiS0expdata500,'-sg','MarkerSize',10)
        text('Position',[5 -30],'string','500 Hz; 1 ms')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N');

        bw = [5 10 25 50 100 250 500 1000 2000];
        subplot(2,2,4);
        errorbar(bw,NpiS01000(:,1),NpiS01000(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[5 10 25 50 100 250 1000 4000]);
        axis([4 5000 -35 -5])
        hold on;
        plot(bw,NpiS0modeldata1000,'-sr','MarkerSize',10,'MarkerFaceColor','r');
        plot(bw,NpiS0expdata1000,'-sg','MarkerSize',10)
        text('Position',[5 -30],'string','1000 Hz; 0.5 ms')
        xlabel('Masker Bandwidth [Hz]');
        ylabel('Threshold S/N');

        legend({'modeled data SSL = 85 dB, NL 70 dB  - monaural factor = 0.0003',...
            'model data from Breebaart (2001)',...
            'experimental data from van de Par and Kohlrausch (1999)'},...
            'Position' ,[0.75,0.943,0.1,0.04]);
        set(gcf,'NextPlot','add');
        axes;
        h = title('Fig. 6 NpiS0 Thresholds');
        set(gca,'Visible','off');
        set(h,'Visible','on'); 
        
        
        
    elseif flags.do_fig1_vandepar1999
        
        %get experimental data
        N0S0expdata125 = data_vandepar1999('fig1_N0S0','nfc125');
        N0S0expdata250 = data_vandepar1999('fig1_N0S0','nfc250');
        N0S0expdata500 = data_vandepar1999('fig1_N0S0','nfc500');
        N0S0expdata1000 = data_vandepar1999('fig1_N0S0','nfc1000');
        N0S0expdata2000 = data_vandepar1999('fig1_N0S0','nfc2000');
        N0S0expdata4000 = data_vandepar1999('fig1_N0S0','nfc4000');
        
        hfig1=figure;
        set(hfig1, 'Position', [100 100 700 700])
        
        bw = [5 10 25 50 100 250];
        s1 = subplot(3,2,1);
        p1 = get(s1,'pos');
        errorbar(bw,N0S0125(:,1),N0S0125(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        axis([4 5000 -30 10])
        hold on;
        plot(bw,N0S0expdata125,'-og')
        text('Position',[1000 5],'string','125 Hz')
        ylabel('Threshold S/N [dB]');

        bw = [5 10 25 50 100 250 500];
        s2 = subplot(3,2,2);
        p2 = get(s2,'pos');
        p2(1) = p1(1) + p1(3);
        set(s2, 'pos', p2);
        errorbar(bw,N0S0250(:,1),N0S0250(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        axis([4 5000 -30 10])
        set(gca,'XTick',[]);
        set(gca,'YTick',[]);
        hold on;
        plot(bw,N0S0expdata250,'-og')
        text('Position',[1000 5],'string','250 Hz')

        bw = [5 10 25 50 100 250 500 1000];
        s3 = subplot(3,2,3);
        p3 = get(s3,'pos');
        p3(2) = p1(2) - p1(4) + 0.005;
        set(s3, 'pos', p3);
        errorbar(bw,N0S0500(:,1),N0S0500(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        axis([1 10000 -30 10])
        set(gca,'XTick',[]);
        set(gca,'YTick',[-30 -20 -10 0]);
        hold on;
        plot(bw,N0S0expdata500,'-og')
        text('Position',[1000 5],'string','500 Hz')
        ylabel('Threshold S/N [dB]');

        bw = [5 10 25 50 100 250 500 1000 2000];
        s4 = subplot(3,2,4);
        p4 = get(s4,'pos');
        p4(1) = p3(1) + p3(3);
        p4(2) = p3(2);
        set(s4, 'pos', p4);
        errorbar(bw,N0S01000(:,1),N0S01000(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        axis([1 10000 -30 10])
        set(gca,'XTick',[]);
        set(gca,'YTick',[]);
        hold on;
        plot(bw,N0S0expdata1000,'-og')
        text('Position',[1000 5],'string','1 kHz')
        xlabel('Bandwidth [Hz]');

        bw = [5 10 25 50 100 250 500 1000 2000 4000];
        s5 = subplot(3,2,5);
        p5 = get(s5,'pos');
        p5(2) = p3(2) - p3(4) + 0.005;
        set(s5, 'pos', p5);
        errorbar(bw,N0S02000(:,1),N0S02000(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[1 10 100 1000 10000]);
        axis([1 10000 -30 10])
        set(gca,'YTick',[-30 -20 -10 0]);
        hold on;
        plot(bw,N0S0expdata2000,'-og')
        text('Position',[1000 5],'string','2 kHz')
        xlabel('Bandwidth [Hz]');
        ylabel('Threshold S/N [dB]');

        s6 = subplot(3,2,6);
        p6 = get(s6,'pos');
        p6(1) = p5(1) + p5(3);
        p6(2) = p5(2);
        set(s6, 'pos', p6);
        errorbar(bw,N0S04000(:,1),N0S04000(:,2),'-x','MarkerSize',10);
        set(gca,'xscal','log')
        set(gca,'XTick',[ 10 100 1000 10000]);
        axis([1 10000 -30 10])
        set(gca,'YTick',[]);
        hold on;
        plot(bw,N0S0expdata4000,'-og')
        text('Position',[1000 5],'string','4 kHz')
        xlabel('Bandwidth [Hz]');
        
        legend({'modeled data SSL = 90 dB, NL 70 dB  - monaural factor = 0.0003',...
            'experimental data from van de Par and Kohlrausch (1999)'},...
            'Position' ,[p2(1)-p2(3)*0.2,0.15,0.1,0.05]);
        set(gcf,'NextPlot','add');
        axes;
        h = title('Fig. 1 N_0S_0 Thresholds');
        set(gca,'Visible','off');
        set(h,'Visible','on'); 
           
    end
           
end