Dawn@4: function new_paramlist = func_parseParameters(paramlist, handles, matfile, data_len)
Dawn@4: % new_paramlist = func_parseParameters(paramlist, handles, matfile, data_len)
Dawn@4: % sort through the parameter list and find dependencies, then output a new
Dawn@4: % parameter list with the new param list
Dawn@4: % also check data_len to ensure existing parameters have the same length 
Dawn@4: %
Dawn@4: % Author: Yen-Liang Shue, Speech Processing and Auditory Perception Laboratory, UCLA
Dawn@4: % Copyright UCLA SPAPL 2009
Dawn@4: 
Dawn@4: VSData = guidata(handles.VSHandle);
Dawn@4: 
Dawn@4: % handles carries the F0 and FMT methods
Dawn@4: F0algorithm = VSData.vars.F0algorithm;
Dawn@4: FMTalgorithm = VSData.vars.FMTalgorithm;
Dawn@4: 
Dawn@4: % vector stores which param to enable:
Dawn@4: %0 = disable, 1 = calculate, 2 = conditional calculate
Dawn@4: new_param_vec = zeros(length(func_getparameterlist()), 1);  
Dawn@4: 
Dawn@4: for k=1:length(paramlist)
Dawn@4:     if (strcmp(paramlist{k}, 'H1*-A1*, H1*-A2*, H1*-A3*'))
Dawn@4:         new_param_vec(func_getparameterlist('H1*-A1*, H1*-A2*, H1*-A3*')) = 1;
Dawn@4:         new_param_vec(func_getparameterlist(F0algorithm)) = new_param_vec(func_getparameterlist(F0algorithm)) + 2;
Dawn@4:         new_param_vec(func_getparameterlist(FMTalgorithm)) = new_param_vec(func_getparameterlist(FMTalgorithm)) + 2;
Dawn@4:         new_param_vec(func_getparameterlist('H1, H2, H4')) = new_param_vec(func_getparameterlist('H1, H2, H4')) + 2;
Dawn@4:         new_param_vec(func_getparameterlist('A1, A2, A3')) = new_param_vec(func_getparameterlist('A1, A2, A3')) + 2;
Dawn@4: 
Dawn@4:     elseif (strcmp(paramlist{k}, 'H1*-H2*, H2*-H4*'))
Dawn@4:         new_param_vec(func_getparameterlist('H1*-H2*, H2*-H4*')) = 1;
Dawn@4:         new_param_vec(func_getparameterlist(F0algorithm)) = new_param_vec(func_getparameterlist(F0algorithm)) + 2;
Dawn@4:         new_param_vec(func_getparameterlist(FMTalgorithm)) = new_param_vec(func_getparameterlist(FMTalgorithm)) + 2;    
Dawn@4:         new_param_vec(func_getparameterlist('H1, H2, H4')) = new_param_vec(func_getparameterlist('H1, H2, H4')) + 2;
Dawn@4:     
Dawn@4:     elseif (strcmp(paramlist{k}, 'Energy'))
Dawn@4:         new_param_vec(func_getparameterlist('Energy')) = 1;
Dawn@4:         new_param_vec(func_getparameterlist(F0algorithm)) = new_param_vec(func_getparameterlist(F0algorithm)) + 2;
Dawn@4:         
Dawn@4:     elseif (strcmp(paramlist{k}, 'CPP'))
Dawn@4:         new_param_vec(func_getparameterlist('CPP')) = 1;
Dawn@4:         new_param_vec(func_getparameterlist(F0algorithm)) = new_param_vec(func_getparameterlist(F0algorithm)) + 2;
Dawn@4:         
Dawn@4:     elseif (strcmp(paramlist{k}, 'Harmonic to Noise Ratios - HNR'))
Dawn@4:         new_param_vec(func_getparameterlist('Harmonic to Noise Ratios - HNR')) = 1;
Dawn@4:         new_param_vec(func_getparameterlist(F0algorithm)) = new_param_vec(func_getparameterlist(F0algorithm)) + 2;
Dawn@4:         
Dawn@4:     elseif (strcmp(paramlist{k}, 'Subharmonic to Harmonic Ratio/F0 - SHR, (shr)F0'))
Dawn@4:         new_param_vec(func_getparameterlist('Subharmonic to Harmonic Ratio/F0 - SHR, (shr)F0')) = 1;
Dawn@4:         
Dawn@4:     elseif (strcmp(paramlist{k}, 'A1, A2, A3'))
Dawn@4:         new_param_vec(func_getparameterlist('A1, A2, A3')) = 1;
Dawn@4:         new_param_vec(func_getparameterlist(F0algorithm)) = new_param_vec(func_getparameterlist(F0algorithm)) + 2;
Dawn@4:         new_param_vec(func_getparameterlist(FMTalgorithm)) = new_param_vec(func_getparameterlist(FMTalgorithm)) + 2;
Dawn@4: 
Dawn@4:     elseif (strcmp(paramlist{k}, 'H1, H2, H4'))
Dawn@4:         new_param_vec(func_getparameterlist('H1, H2, H4')) = 1;
Dawn@4:         new_param_vec(func_getparameterlist(F0algorithm)) = new_param_vec(func_getparameterlist(F0algorithm)) + 2;
Dawn@4:         
Dawn@4:     elseif (strcmp(paramlist{k}, 'F1, F2, F3, F4 (Snack)'))
Dawn@4:         new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Snack)')) = 1;
Dawn@4: 
Dawn@4:     elseif (strcmp(paramlist{k}, 'F1, F2, F3, F4 (Praat)'))
Dawn@4:         new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Praat)')) = 1;        
Dawn@4:         
Dawn@4:     elseif (strcmp(paramlist{k}, 'F1, F2, F3, F4 (Other)') && VSData.vars.FormantsOtherEnable == 1)
Dawn@4:         new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Other)')) = 1;
Dawn@4:     
Dawn@4:     elseif (strcmp(paramlist{k}, 'F0 (Straight)'))
Dawn@4:         new_param_vec(func_getparameterlist('F0 (Straight)')) = 1;
Dawn@4:         
Dawn@4:     elseif (strcmp(paramlist{k}, 'F0 (Snack)'))
Dawn@4:         new_param_vec(func_getparameterlist('F0 (Snack)')) = 1;
Dawn@4:         
Dawn@4:     elseif (strcmp(paramlist{k}, 'F0 (Praat)'))
Dawn@4:         new_param_vec(func_getparameterlist('F0 (Praat)')) = 1;
Dawn@4:     
Dawn@4:     elseif (strcmp(paramlist{k}, 'F0 (Other)') && VSData.vars.F0OtherEnable == 1)
Dawn@4:         new_param_vec(func_getparameterlist('F0 (Other)')) = 1;
Dawn@4:     end
Dawn@4:     
Dawn@4: end
Dawn@4: 
Dawn@4: % check the conditional parameters to see whether they already exist in the
Dawn@4: % matfile
Dawn@4: if (exist(matfile, 'file'))
Dawn@4:     matdata = load(matfile);
Dawn@4:     
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('F0 (Straight)')), 2) == 0 && isfield(matdata, 'strF0'))        
Dawn@4:         if (length(matdata.strF0) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('F0 (Straight)')) = 0;
Dawn@4:         end
Dawn@4:     end
Dawn@4:     
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('F0 (Snack)')), 2) == 0 && isfield(matdata, 'sF0'))
Dawn@4:         if (length(matdata.sF0) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('F0 (Snack)')) = 0;
Dawn@4:         end
Dawn@4:     end
Dawn@4: 
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('F0 (Praat)')), 2) == 0 && isfield(matdata, 'pF0'))
Dawn@4:         if (length(matdata.pF0) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('F0 (Praat)')) = 0;
Dawn@4:         end
Dawn@4:     end
Dawn@4:         
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('F0 (Other)')), 2) == 0 && isfield(matdata, 'oF0'))
Dawn@4:         if (length(matdata.sF0) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('F0 (Other)')) = 0;
Dawn@4:         end
Dawn@4:     end
Dawn@4:         
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Snack)')), 2) == 0 && isfield(matdata, 'sF1'))
Dawn@4:         if (length(matdata.sF1) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Snack)')) = 0;
Dawn@4:         end
Dawn@4:     end
Dawn@4: 
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Praat)')), 2) == 0 && isfield(matdata, 'pF1'))
Dawn@4:         if (length(matdata.sF1) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Praat)')) = 0;
Dawn@4:         end
Dawn@4:     end    
Dawn@4:     
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Other)')), 2) == 0 && isfield(matdata, 'oF1'))
Dawn@4:         if (length(matdata.sF1) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Other)')) = 0;
Dawn@4:         end
Dawn@4:     end    
Dawn@4:     
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('A1, A2, A3')), 2) == 0 && isfield(matdata, 'A1'))
Dawn@4:         if (length(matdata.A1) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('A1, A2, A3')) = 0;
Dawn@4:         end
Dawn@4:     end
Dawn@4:     
Dawn@4:     if (mod(new_param_vec(func_getparameterlist('H1, H2, H4')), 2) == 0 && isfield(matdata, 'H1'))
Dawn@4:         if (length(matdata.H1) == data_len)
Dawn@4:             new_param_vec(func_getparameterlist('H1, H2, H4')) = 0;
Dawn@4:         end
Dawn@4:     end
Dawn@4:     
Dawn@4: end
Dawn@4: 
Dawn@4: new_param_vec(new_param_vec ~= 0) = 1;
Dawn@4: 
Dawn@4: % now build list with the proper processing order of the parameters
Dawn@4: new_paramlist = cell(sum(new_param_vec), 1);
Dawn@4: cnt = 1;
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('F0 (Straight)')) == 1)
Dawn@4:     new_paramlist{cnt} = 'F0 (Straight)';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('F0 (Snack)')) == 1)
Dawn@4:     new_paramlist{cnt} = 'F0 (Snack)';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('F0 (Praat)')) == 1)
Dawn@4:     new_paramlist{cnt} = 'F0 (Praat)';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('F0 (Other)')) == 1 && VSData.vars.F0OtherEnable == 1)
Dawn@4:     new_paramlist{cnt} = 'F0 (Other)';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Snack)')) == 1)
Dawn@4:     new_paramlist{cnt} = 'F1, F2, F3, F4 (Snack)';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Praat)')) == 1)
Dawn@4:     new_paramlist{cnt} = 'F1, F2, F3, F4 (Praat)';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('F1, F2, F3, F4 (Other)')) == 1 && VSData.vars.FormantsOtherEnable == 1)
Dawn@4:     new_paramlist{cnt} = 'F1, F2, F3, F4 (Other)';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('A1, A2, A3')) == 1)
Dawn@4:     new_paramlist{cnt} = 'A1, A2, A3';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('H1, H2, H4')) == 1)
Dawn@4:     new_paramlist{cnt} = 'H1, H2, H4';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('Energy')) == 1)
Dawn@4:     new_paramlist{cnt} = 'Energy';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('CPP')) == 1)
Dawn@4:     new_paramlist{cnt} = 'CPP';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('Harmonic to Noise Ratios - HNR')) == 1)
Dawn@4:     new_paramlist{cnt} = 'Harmonic to Noise Ratios - HNR';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('Subharmonic to Harmonic Ratio/F0 - SHR, (shr)F0')) == 1)
Dawn@4:     new_paramlist{cnt} = 'Subharmonic to Harmonic Ratio/F0 - SHR, (shr)F0';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('H1*-H2*, H2*-H4*')) == 1)
Dawn@4:     new_paramlist{cnt} = 'H1*-H2*, H2*-H4*';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: 
Dawn@4: if (new_param_vec(func_getparameterlist('H1*-A1*, H1*-A2*, H1*-A3*')) == 1)
Dawn@4:     new_paramlist{cnt} = 'H1*-A1*, H1*-A2*, H1*-A3*';
Dawn@4:     cnt = cnt + 1;
Dawn@4: end
Dawn@4: