THE AUDITORY MODELING TOOLBOX

Applies to version: 1.2.0

View the help

Go to function

JOERGENSEN2013_SIM - Simulate the experiments shown in figure 2 of Jørgensen, Ewert and Dau (2013)

Program code:

function [SRTs conditions] = joergensen2013_sim(NSpeechsamples,varargin)
%JOERGENSEN2013_SIM Simulate the experiments shown in figure 2 of Jørgensen, Ewert and Dau (2013)
%   Usage: [SRTs conditions]  = joergensen2013_sim(NSpeechsamples,varargin)
%
%   Output parameters:
%     SRT   : the SRT as a function of the condition used in the experiment
%     conditions : the conditions used for a given experiment
%
%   The flag may be one of:
% 
%     'Jetal2013'           Simulate the conditions with SSN, SAM and ISTS using the
%                           CLUE speech materual, shown in fig2 of
%                           Jørgensen, Ewert and Dau (2013)
% 
%     'JandD2011reverb'     Simulate the conditions with reverberation
%                           shown in fig2 of Jørgensen, Ewert and Dau (2013)
%
%     'JandD2011specsub'    Simulate conditions with spectral subtraction
%                           shown in fig2 of Jørgensen, Ewert and Dau (2013)
%
%     'Kjems2009'           Simulate the data from Kjems et al. (2009)
%                           shown in fig2 of Jørgensen, Ewert and Dau (2013)
% 
%     'FP1990'              Simulate the data from Festen and Plomp
%                           (1990) shown in fig2 of Jørgensen, Ewert and Dau (2013)
%
%   
%
%   Please cite Joergensen et al. (2013) if you use
%   this model.
%
%   See also: joergensen2013, plot_joergensen2013
%
%   References:
%     S. Jørgensen, S. D. Ewert, and T. Dau. A multi-resolution envelope
%     power based model for speech intelligibility. J. Acoust. Soc. Am.,
%     134(1):436--446, 2013.
%     
%     U. Kjems, J. B. Boldt, M. S. Pedersen, T. Lunner, and D. Wang. Role of
%     mask pattern in intelligibility of ideal binary-masked noisy speech. J.
%     Acoust. Soc. Am., 126:1415--1426, 2009.
%     
%     J. Festen and R. Plomp. Effects of fluctuating noise and interfering
%     speech on the speech-reception threshold for impaired and normal
%     hearing. J. Acoust. Soc. Am., 88(4):1725--1736, 1990.
%     
%
%   Url: http://amtoolbox.org/amt-1.2.0/doc/modelstages/joergensen2013_sim.php

% Copyright (C) 2009-2022 Piotr Majdak, Clara Hollomey, and the AMT team.
% This file is part of Auditory Modeling Toolbox (AMT) version 1.2.0
%
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program.  If not, see <http://www.gnu.org/licenses/>.

%   WARNING: This Model or Modelstage does not currently meet the AMT requirements. 

disp('**********************************************************');
disp('AMT WARNING: incomplete file --- missing: original stimuli');
disp('**********************************************************');
 
definput.flags.type = {'JandD2011specsub','JandD2011reverb','FP1990','Kjems2009','Jetal2013'};

[flags,keyvals]  = ltfatarghelper({},definput,varargin);


% ------- simulate experiment with reverberation
if flags.do_Jetal2013
    %in the absence of the original stimuli - using those from joergensen2011 instead
    data = amt_load('relanoiborra2019', 'single_150_SentArray22kHz_varLength.mat');
    sentenceArray = data.sentenceArray;
    
    amt_disp(['start Jetal2013: ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
    sentenceFileLevel = -26;
    %noise_names = {'SSN_CLUE_22kHz.wav','SSN_MOD_CLUE','ISTS_eq'};stimuli
    %not available
    noise_names = 'SSN_CLUE_22kHz.wav';
    speechSPL = 65;
    fixedNoiseLevel = 0;
    SNRs = -27:3:3;
    conditions = {'SSN'  'SAM' 'ISTS'};
    
    IOparameters = [0.61 0.5 8000 0.6]; %
    
    for q = 1:NSpeechsamples
        
        x = sentenceArray{q}';
        fs = 22050;
        x = x*10^((speechSPL-sentenceFileLevel)/20);
        
        % the level of the sentence is set such that the long-term RMS of all
        % sentences are presented at a level of 65 dB SPL.
        
        Ts = 1/fs;
        T = length(x)/fs;
        t = 0:Ts:T;
        t = t(1:end-1);
        N = length(t);
        
        % load the noise files
        for k = 1:length(noise_names)
            
            clear tmp tmp2

            %[tmp, fs] = audioread (noise_names{k});
            [tmp, fs] = amt_load('relanoiborra2019', noise_names);
            %if fs_tmp ~= fs
            %    noise_scaled{k} = resample(tmp,fs,fs_tmp);
            %else
                noise_scaled{k} = tmp;
            %end
            
            Nsegments = floor(length(noise_scaled{k})/N);
            % pick a random segment
            startIdx = randi(Nsegments-2 ,1)*N;
            
            noise_glob{k} = noise_scaled{k}(startIdx:startIdx+N -1);
        end
        
        for n = 1:length(conditions)
            
            for k = 1:length(SNRs)
                noise = noise_glob{n};
                noise = noise/rms(noise)*10^((speechSPL-SNRs(k))/20);
                if size(noise) ~= size(x)
                    noise = noise';
                end
                test = noise + x;
                
                tmp = joergensen2013(test,noise,fs,IOparameters);
                SNRenvs(k,n,q) = tmp.SNRenv;
                Pcorrect(k,n,q) = tmp.P_correct;
                
            end
            
        end
        amt_disp(['sentence nr: ' num2str(q) ' ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
        
    end
  
    result.Pcorrect = Pcorrect;
    result.SNRenvs = SNRenvs;
    result.conditions =conditions;
    result.SNRs =SNRs;

    
    
    
    %% Average across speech samples
    Pc_est_mean = mean(result.Pcorrect,3);
    
    
    % ------------------  Estimating changes in SRTs based on the mean Pcorrect -------------
    %   The first column of Pc_est_mean should always be the reference
    selection = 1:length(conditions);
    [dSRT SRTs] = joergensen2011_pctodsrt(Pc_est_mean,result.SNRs,selection);
end

if flags.do_JandD2011specsub
    %in the absence of the original stimuli - using those from joergensen2011 instead
    data = amt_load('relanoiborra2019', 'single_150_SentArray22kHz_varLength.mat');
    sentenceArray = data.sentenceArray;
    
    amt_disp(['start JandD2011specsub: ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
    sentenceFileLevel = -26;
    noise_names = 'SSN_CLUE_22kHz.wav';
    speechSPL = 65;
    SNRs = -9:3:9;
    conditions = [0 0.5 1 2 4 8];
    
    IOparameters = [0.61 0.5 8000 0.6]; %
    
    for q = 1:NSpeechsamples
        k = 1;
        x = sentenceArray{q}';
        fs = 22050;
        x = x*10^((speechSPL-sentenceFileLevel)/20);
        
        % the level of the sentence is set such that the long-term RMS of all
        % sentences are presented at a level of 65 dB SPL.
        
        Ts = 1/fs;
        T = length(x)/fs;
        t = 0:Ts:T;
        t = t(1:end-1);
        N = length(t);
        
        % load the noise file
        
        clear tmp
        %[tmp, fs] = audioread (noise_names);
        [tmp, fs] = amt_load('relanoiborra2019', noise_names);
        %if fs_tmp ~= fs
        %    noise_scaled = resample(tmp,fs,fs_tmp);
        %else
            noise_scaled = tmp;
        %end
        
        Nsegments = floor(length(noise_scaled)/N);
        % pick a random segment
        startIdx = randi(Nsegments-2 ,1)*N;
        noise_glob = noise_scaled(startIdx:startIdx+N -1);
        
        
        for n = 1:length(conditions)
            
            for k = 1:length(SNRs)
                noise = noise_glob;
                noise = noise/rms(noise)*10^((speechSPL-SNRs(k))/20);
                if size(noise) ~= size(x)
                    noise = noise';
                end
                test = noise + x;
                
                %                     --------- spec sub -----------------
                W=1024/2; % frame length
                padz=1024/2; %zero padding (pad with padz/2 from the left and padz/2 from the right )
                % % Note that (W+padz) is the final frame window and hence the fft length (it is normally chose as a power of 2)
                SP=0.5; %Shift percentage is 50%
                
                factor = conditions(n);
                ProcMix  = joergensen2011_specsub(test,noise,W,padz,SP,factor);
                
                ProcMixInv = joergensen2011_specsub(x-noise,-noise,W,padz,SP,factor);
%                 Estimating the noise alone using the approach by Hagerman and Olofsson (2004)
                NoiseEst = (ProcMix  - ProcMixInv)/2;
                
                test = ProcMix(1.5*W:N); %cutting off first and last bit
                
                noise = NoiseEst(1.5*W:N);
                %                      -----------------------------
                
                tmp = joergensen2013(test,noise,fs,IOparameters);
                SNRenvs(k,n,q) = tmp.SNRenv;
                Pcorrect(k,n,q) = tmp.P_correct;
                
            end
            
        end
        amt_disp(['sentence nr: ' num2str(q) ' ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
        
    end
    
    result.Pcorrect = Pcorrect;
    result.SNRenvs = SNRenvs;
    result.conditions =conditions;
    result.SNRs =SNRs;

    
    
    
    %% Average across speech samples
    Pc_est_mean = mean(result.Pcorrect,3);
    
    
    % ------------------  Estimating changes in SRTs based on the mean Pcorrect -------------
    %   The first column of Pc_est_mean should always be the reference
    selection = 1:length(conditions);
    [dSRT SRTs] = joergensen2011_pctodsrt(Pc_est_mean,result.SNRs,selection);
end

if flags.do_JandD2011reverb
    %in the absence of the original stimuli - using those from joergensen2011 instead
    data = amt_load('relanoiborra2019', 'single_150_SentArray22kHz_varLength.mat');
    sentenceArray = data.sentenceArray;    
    
    amt_disp(['start JandD2011reverb: ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
    sentenceFileLevel = -26;
    noise_name = 'SSN_CLUE_22kHz';
    speechSPL = 65;
    SNRs = -9:3:9;
    conditions = [0 0.4 0.7 1.3 2.3];
    
    IOparameters = [0.61 0.5 8000 0.6]; %
    
    for q = 1:NSpeechsamples
        
        x = sentenceArray{q}';
        fs = 22050;
        x = x*10^((speechSPL-sentenceFileLevel)/20);
        
        % the level of the sentence is set such that the long-term RMS of all
        % sentences are presented at a level of 65 dB SPL.
        
        Ts = 1/fs;
        T = length(x)/fs;
        t = 0:Ts:T;
        t = t(1:end-1);
        N = length(t);
        
        % load the noise file
        noise_names = 'SSN_CLUE_22kHz.wav';
        clear tmp
        %[tmp, fs] = audioread (noise_names{k});
        [tmp, fs] = amt_load('relanoiborra2019', noise_names);
%        if fs_tmp ~= fs
%            noise_scaled = resample(tmp,fs,fs_tmp);
%        else
            noise_scaled = tmp;
%        end
        
        Nsegments = floor(length(noise_scaled)/N);
        % pick a random segment
        startIdx = randi(Nsegments-2 ,1)*N;
        noise_glob = noise_scaled(startIdx:startIdx+N -1);
        
        
        for n = 1:length(conditions)
            
            for k = 1:length(SNRs)
                noise = noise_glob;
                noise = noise/rms(noise)*10^((speechSPL-SNRs(k))/20);
                if size(noise) ~= size(x)
                    noise = noise';
                end
                test = noise + x;
                
                %              %     ------------ applying reverberation
                if n>1
                  [tmp,Fs] = sig_joergensen2011(conditions(n));
                                    
                  tmp = resample(tmp,fs,Fs); % downsampling to 22.05 kHz
                  tmp_test = fconv(tmp',test); %
                  tmp_noise = fconv(tmp',noise);
                  test_env = abs(hilbert(tmp_test));
                  
                  [bb, aa] = butter(4, 20*2/fs);
                  test_env = filter(bb,aa,test_env);
                  cut =  0.05;
                  threshold = floor(max(test_env)*cut);
                  %         finding the index in the env vector corresponding to the
                  %         threshold:
                  idx = find(test_env(floor(length(test_env)/4):end) > threshold, 1,'last' );
                  
                  idx_end = idx + floor(length(tmp_test)/4);
                  test_env(idx_end);
                  idx_start = floor(0.047*fs);
                  
                  test = tmp_test(idx_start:idx_end);
                  noise = tmp_noise(idx_start:idx_end);
                end
                % ---------------------------------
                
                tmp = joergensen2013(test,noise,fs,IOparameters);
                SNRenvs(k,n,q) = tmp.SNRenv;
                Pcorrect(k,n,q) = tmp.P_correct;
                
            end
            
        end
        amt_disp(['sentence nr: ' num2str(q) ' ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
        
    end
    
    result.Pcorrect = Pcorrect;
    result.SNRenvs = SNRenvs;
    result.conditions =conditions;
    result.SNRs =SNRs;

    
    
    
    %% Average across speech samples
    Pc_est_mean = mean(result.Pcorrect,3);
    
    
    % ------------------  Estimating changes in SRTs based on the mean Pcorrect -------------
    %   The first column of Pc_est_mean should always be the reference
    selection = 1:length(conditions);
    [dSRT SRTs] = joergensen2011_pctodsrt(Pc_est_mean,result.SNRs,selection);
end
%AMT: Stimuli for these last two not available
 if flags.do_FP1990
     amt_disp('amt warning: not enough data to calculate this.');
          SRTs = []; 
     conditions = [];
%     load PlompMimpen_130_SentArray22kHz
%     amt_disp(['start FP1990: ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
%     sentenceFileLevel = 10^((-17.93)/20);
%     noise_names = {'MaleS00.wav','MaleF00.wav','P&MRunningSpeech_FemaleTR.wav'};
%     conditions = {'SSN','SMN','RT'};
%     SNRs = [  -21 -18 -12 -9 -6  -3 0 3];
%     noisedBA = 80;
%     fs = 22050;
%     IOparameters = [0.36 0.5 8000 0.6]; %
%     
%     clear noise_scaled
%     for k = 1:length(noise_names)
%         clear tmp tmp2
%         [tmp, fs] = audioread (noise_names{k});
%         tmp = resample(tmp,fs,fs_tmp);
%         tmp = tmp/rms(tmp);
%         noise_scaled{k} = Leq2dBA(tmp,fs,noisedBA); %here, all noises have same level dBA
%         noiseSPL_dBA(k) = LeqdBA(noise_scaled{k},fs);
%     end
%     
%    
%     
%     for q = 1:NSpeechsamples
%         
%         x_unscaled = sentenceArray{q}';
%         
%         
%         Ts = 1/fs;
%         T = length(x_unscaled)/fs;
%         t = 0:Ts:T;
%         t = t(1:end-1);
%         N = length(t);
%         
%         % load the noise files
%         for k = 1:length(noise_names)
%             
%             Nsegments = floor(length(noise_scaled{k})/N);
%             % pick a random segment
%             startIdx = randi(Nsegments-2 ,1)*N;
%             
%             noise_glob{k} = noise_scaled{k}(startIdx:startIdx+N -1);
%         end
%         
%         
%         
%         for n = 1:length(conditions)
%             
%             for k = 1:length(SNRs)
%                 noise = noise_glob{n};
%                 speech_dBA = (noisedBA+SNRs(k));
%                 SPL_sent(k) = 20*log10(rms(Leq2dBA(noise_scaled{1},fs,speech_dBA))); %#check!
%                 SpeechGain = 10^(SPL_sent(k)/20);
%                 x = x_unscaled ./ sentenceFileLevel *SpeechGain;
%                 SpeechSPL_dBA(k) = LeqdBA(x,fs);
%                 
%                 if size(noise) ~= size(x)
%                     noise = noise';
%                 end
%                 test = noise + x;
%                 
%                 
%                 tmp = joergensen2013(test,noise,fs,IOparameters);
%                 SNRenvs(k,n,q) = tmp.SNRenv;
%                 Pcorrect(k,n,q) = tmp.P_correct;
%                 
%             end
%             
%         end
%         amt_disp(['sentence nr: ' num2str(q) ' ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
%         
%     end
%     
%     result.Pcorrect = Pcorrect;
%     result.SNRenvs = SNRenvs;
%     result.conditions =conditions;
%     result.SNRs =SNRs;
% 
%     
%     
%     
%     %% Average across speech samples
%     Pc_est_mean = mean(result.Pcorrect,3);
%     
%     
%     % ------------------  Estimating changes in SRTs based on the mean Pcorrect -------------
%     %   The first column of Pc_est_mean should always be the reference
%     selection = 1:length(conditions);
%     [dSRT SRTs] = joergensen2011_pctodsrt(Pc_est_mean,result.SNRs,selection);
%     
 end

 if flags.do_Kjems2009
     amt_disp('amt warning: not enough data to calculate this.');
     SRTs = []; 
     conditions = [];
%      load DANTALE2_144single_SentArray44kHz_varLength
%      amt_disp(['start Kjems2009: ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
%             sentenceFileLevel = 10^((-19.79)/20);
%             noise_names = {'ssn_noise_20k','cafe_noise_20k','car_noise_20k','Bottle_noise_20k'};
%             fs = 22050;
%             noisedBA = 65;
%             SNRs = -30:3:10;
%             conditions = {'SSN','Cafe','Car','Bottle'};
%             
%             IOparameters = [0.42 0.5 50 0.9]; %
%             clear noise_scaled
%             
%             for k = 1:length(noise_names)
%                 [tmp, fs] = audioread (noise_names{k});
%                 tmp = resample(tmp,fs,fs_tmp);
%                 tmp = scaletodbspl(tmp,0);
%                 if k == 1
%                     [tmp GaindB]= Leq2dBA(tmp,fs,noisedBA); % the level in dBA is set for the SSN to 65
%                 end
%                 noise_scaled{k} = tmp/rms(tmp).*10^(GaindB/20); %here, all noises have same level in dB, thus different levels dBA!
%                 noiseSPL_dBA(k) = LeqdBA(noise_scaled{k},fs);
%             end
%       
%     for q = 1:NSpeechsamples
%         
%         x_unscaled = sentenceArray{q}';
%         x_unscaled = resample(x_unscaled,fs,44100);
%         
%         Ts = 1/fs;
%         T = length(x_unscaled)/fs;
%         t = 0:Ts:T;
%         t = t(1:end-1);
%         N = length(t);
%         
%         % load the noise files
%         for k = 1:length(noise_names)
%             
%             Nsegments = floor(length(noise_scaled{k})/N);
%             % pick a random segment
%             startIdx = randi(Nsegments-2 ,1)*N;
%             
%             noise_glob{k} = noise_scaled{k}(startIdx:startIdx+N -1);
%         end
%    
%         for n = 1:length(conditions)
%             
%             for k = 1:length(SNRs)
%                 noise = noise_glob{n};
%                 SpeechGain = 10^((GaindB + SNRs(k))/20);
%                  
%                 x = x_unscaled ./ sentenceFileLevel *SpeechGain;
%                 SpeechSPL_dBA(k) = LeqdBA(x,fs);
%                 
%                 if size(noise) ~= size(x)
%                     noise = noise';
%                 end
%                 test = noise + x;
%              
%                 tmp = joergensen2013(test,noise,fs,IOparameters);
%                 SNRenvs(k,n,q) = tmp.SNRenv;
%                 Pcorrect(k,n,q) = tmp.P_correct;
%                 
%             end
%             
%         end
%         amt_disp(['sentence nr: ' num2str(q) ' ' datestr(now, 'dd-mm-yyyy HH:MM:SS')]);
%         
%     end
%     
%     result.Pcorrect = Pcorrect;
%     result.SNRenvs = SNRenvs;
%     result.conditions =conditions;
%     result.SNRs =SNRs;
% 
%         
%     
%     %% Average across speech samples
%     Pc_est_mean = mean(result.Pcorrect,3);
%     
%     % ------------------  Estimating changes in SRTs based on the mean Pcorrect -------------
%     %   The first column of Pc_est_mean should always be the reference
%     selection = 1:length(conditions);
%     [dSRT SRTs] = joergensen2011_pctodsrt(Pc_est_mean,result.SNRs,selection);
%     
 end

function [y]=fconv(h,x)
%FCONV Fast Convolution
%   [y] = FCONV(h, x) convolves x and h.  The output of this
%         function is scaled.
%
%      x = input vector
%      h = input vector
%
%      See also CONV
%
%Version 2.0
%2003-2004, Stephen G. McGovern

Ly=length(x)+length(h)-1;   %
Ly2=pow2(nextpow2(Ly));     % Find smallest power of 2 that is > Ly
m= max(abs(x));
X=fft(x, Ly2);		    % Fast Fourier transform
H=fft(h, Ly2);		    % Fast Fourier transform
Y=X.*H;
y=real(ifft(Y, Ly2));       % Inverse fast Fourier transform
y=y(1:1:Ly);                % Take just the first N elements

m=m/max(abs(y));
y=m*y;


function [ret Signalscale]=Leq2dBA(sig,Fs,dBA)


InSig=sig/rms(sig).*10^(dBA/20);           % scale to dB SPL
x2=InSig;
[B,A] = adsgn(Fs);                    %
r=filter(B,A,InSig);


Laeq=20*log10(rms(r));       %dB(A)
Lleq=20*log10(rms(x2));      %dB
cor=Lleq-Laeq;
Signalscale=dBA+cor;
ret=InSig/rms(InSig).*10^(Signalscale/20);

function ret=LeqdBA(sig,Fs)

InSig=sig;           % scale to dB SPL

[B,A] = adsgn(Fs);
r=filter(B,A,InSig);
ret=20*log10(rms(r));       %dB(A)


function [B,A] = adsgn(Fs)
% ADSGN  Design of a A-weighting filter.
%    [B,A] = ADSGN(Fs) designs a digital A-weighting filter for
%    sampling frequency Fs. Usage: Y = FILTER(B,A,X).
%    Warning: Fs should normally be higher than 20 kHz. For example,
%    Fs = 48000 yields a class 1-compliant filter.
%
%    Requires the Signal Processing Toolbox.
%
%    See also ASPEC, CDSGN, CSPEC.

% Author: Christophe Couvreur, Faculte Polytechnique de Mons (Belgium)
%         couvreur@thor.fpms.ac.be
% Last modification: Aug. 20, 1997, 10:00am.

% References:
%    [1] IEC/CD 1672: Electroacoustics-Sound Level Meters, Nov. 1996.


% Definition of analog A-weighting filter according to IEC/CD 1672.
f1 = 20.598997;
f2 = 107.65265;
f3 = 737.86223;
f4 = 12194.217;
A1000 = 1.9997;
pi = 3.14159265358979;
NUMs = [ (2*pi*f4)^2*(10^(A1000/20)) 0 0 0 0 ];
DENs = conv([1 +4*pi*f4 (2*pi*f4)^2],[1 +4*pi*f1 (2*pi*f1)^2]);
DENs = conv(conv(DENs,[1 2*pi*f3]),[1 2*pi*f2]);

% Use the bilinear transformation to get the digital filter.
[B,A] = bilinear(NUMs,DENs,Fs);