excapply.m

来自「这是一个用于语音信号处理的工具箱」· M 代码 · 共 81 行

% excapply.m
% modified by D. G. Childers 7/16/98
% apply the current excitation source setting

sfno=eval(get(exc_curf_e_h,'String'));
stotfno=eval(get(exc_totf_e_h,'String'));
ftime(sfno)=eval(get(exc_beg_e_h,'String'));
fend(sfno)=eval(get(exc_end_e_h,'String'));
fdur(sfno)=eval(get(exc_dur_e_h,'String'));
if get(exc_glo_h,'Value')
	explace(sfno)=0;
elseif get(exc_vt_h,'Value')
	explace(sfno)=1;
end
if get(exc_voi_h,'Value')
	exmode(sfno)=0;
elseif get(exc_unv_h,'Value')
	exmode(sfno)=1;
elseif get(exc_mix_h,'Value')
	exmode(sfno)=2;
end

%if get(exc_ope_h,'Value')
%	vtgltoc(sfno)=0;
%elseif get(exc_clo_h,'Value')
%	vtgltoc(sfno)=1;
%else
	vtgltoc(sfno)=-1;
%end

jsaspsg(sfno)=get(exc_jitshi_h,'Value')+2*get(exc_aspira_h,'Value')+4*get(exc_subglo_h,'Value');

if (~vtgltoc(sfno) | (jsaspsg(sfno)==4 | jsaspsg(sfno)==5 | jsaspsg(sfno)==6 | jsaspsg(sfno)==7))
	Agmax(sfno)=get(maxglo_area_h,'Value');
end
if (explace(sfno)) 
	EX_loc(sfno)=eval(get(exc_loca_e_h,'String'));
end
if (exmode(sfno)==0 | exmode(sfno)==2)
	FG_f0(sfno)=get(fundf0_h,'Value');
	FG_t0(sfno)=get(pitch_h,'Value');
	FG_av(sfno)=get(lfga_h,'Value');
	FG_g0(sfno)=get(lfg0_h,'Value');
	LF_ee(sfno)=get(lfee_h,'Value');
	LF_tp(sfno)=get(lftp_h,'Value');
	LF_te(sfno)=get(lfte_h,'Value');
	LF_tc(sfno)=get(lftc_h,'Value');
	LF_ta(sfno)=get(lfta_h,'Value');
end
if (jsaspsg(sfno)==1 | jsaspsg(sfno)==3 | jsaspsg(sfno)==5 | jsaspsg(sfno)==7)
	JS_jit(sfno)=get(jitt_h,'Value');
	JS_jfilt(sfno)=get(jitfil_h,'Value');
	JS_shm(sfno)=get(shim_h,'Value');
	JS_sfilt(sfno)=get(shimfil_h,'Value');
end
if (jsaspsg(sfno)==2 | jsaspsg(sfno)==3 | jsaspsg(sfno)==6 | jsaspsg(sfno)==7)
	An_ah(sfno)=get(aspigain_h,'Value');
	An_afilt(sfno)=get(aspifil_h,'Value');
end
if (exmode(sfno)==1 | exmode(sfno)==2)
   %TN_place(sfno)=get(turplace_h,'Value')-1;
  	TN_place(sfno)=get(turplace_h,'Value');
	TN_CRN(sfno)=get(criRe_h,'Value');
	TN_turbg(sfno)=get(turgain_h,'Value');
	TN_vvdc(sfno)=get(glotvol_h,'Value');
end
if ((jsaspsg(sfno)==4 | jsaspsg(sfno)==5 | jsaspsg(sfno)==6 | jsaspsg(sfno)==7) & ~explace(sfno))
   currsub(sfno)=round(get(curres_e_h,'Value'));
	totfsub(sfno)=round(get(totres_e_h,'Value'));
   R(sfno)=[round(get(subresi_h,'Value'))];
	L(sfno)=[round(get(subindu_h,'Value'))];
   C(sfno)=[round(get(subcapa_h,'Value'))];

	%Ag_model(sfno)=get(gloaream_h,'Value')-1;
   Ag_model(sfno)=get(gloaream_h,'Value');
	Ag_Td(sfno)=get(wavedur_h,'Value');
	Ag_To(sfno)=get(opendur_h,'Value');
	Ag_Tc(sfno)=get(closedur_h,'Value');
end