calltoneiii_one_tt3.m

计算声质中的Aures Tonality

function [K,K_mod,w1,w1_mod,w2,w3,wt,wgr,TLX,Tdz,NoiseN,YdBN,NoiseNs,YdBNs]=...
    CallToneIII_One_TT3(fname,fname_path)
if ~exist('fname')
    fname='d-Trap_fc_700_A20_P1.wav';
     fname='d-Trap_fc_700_A300_P1.wav';
      fname='d-Trap_fc_700_A100_P50.wav';
end
if ~exist('fname_path')
    fname_path=['D:\Dissertation\ToneTest'];
end
if ~exist('displayheading')
    displayheading=1;
end
field='d';MaxTone=0;SPLwant=0;Fraction=1;PercentBelow=[0.2 0.2];
disp(['File Name to be loaded is:' fname])
disp(['Loudness was calculated with MS set to' field]) 
disp(['MaxTone has been set to' num2str(MaxTone)]) 
if SPLwant==0 
   disp('No Calibration will be done')
    else
        disp(['The sound will be calibrated to ' num2str(SPLwant) 'db'])
end
disp(['Noisefllor search will be conducted over:' num2str(Fraction) 'critical bands on each side of component'])
    [K,K_mod,w1,w1_mod,w2,w3,wt,wgr,TLX,Tdz,NoiseN,YdBN,NoiseNs,YdBNs]=Tone_III(fname,field,SPLwant,'no', 'no',MaxTone,fname_path,Fraction,PercentBelow);
    dsip(' ')
   disp(['File name',9,'K',9, 'K_mod', 9, 'w1',9,'w1_mod',9,'w2',9,'w3',9,'wt',9,'wgr',9,'Excess Lvel',9,'Tobe dz',9,'Noise N',9,'Total N'])
   dsip(' ')
   disp([fname,9,num2str(K),9, num2str(K_mod), 9, num2str(w1),9,num2str(w1_mod),9,num2str(w2),9,num2str(w3),9,num2str(wt),9,num2str(wgr),9,num2str(TLX),9,num2str(Tdz),9,num2str(NoiseN),9,num2str(YdBN)])
   tname=fname(1:end-4);save([pwd '\ToneData\ToneData_' tname])