prevexcf.m

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

% prevexcf.m
% modified by D. G. Childers 7/16/98

% previous source frame

if (sfno - 1) >= 1

	figure(exc_sou1_h);
	clf;
   sfno=sfno-1;
   %%%%%%%%%%%%%%%%
   if sfno==0
      sfno=1;
   end
   %%%%%%%%%%%%%%%%
	%glott_on;
	if (explace(sfno))
      set(exc_vt_h,'Value',1);
      vt_on;
	else
      set(exc_glo_h,'Value',1);
      glott_on;
	end
	if (exmode(sfno)==0)
		set(exc_voi_h,'Value',1);
		set(exc_voi_h,'Enable','on');
		popvoice;
		lfparset;
	elseif (exmode(sfno)==1)
		set(exc_unv_h,'Value',1);
		set(exc_unv_h,'Enable','on');
		popunvoi;
		tnparset;
	elseif (exmode(sfno)==2)
		set(exc_mix_h,'Value',1);
		set(exc_mix_h,'Enable','on');
		popmix;
		lfparset;
		tnparset;
	end

	if get(exc_jitshi_h,'Value')
      set(exc_jitshi_h,'Value',0);
      if exist('jittshim_h')==1
		eval('close(jittshim_h);',catch1);
		clear jittshim_h;
   	end
   end
   if get(exc_aspira_h,'Value')
      set(exc_aspira_h,'Value',0);
      if exist('aspino_h')==1
			eval('close(aspino_h);',catch1);
			clear aspino_h;
		end       
    end     
    if get(exc_subglo_h,'Value')
       set(exc_subglo_h,'Value',0);
       if exist('subglot_h')==1
			 eval('close(subglot_h);',catch1);
			 clear subglot_h;
		 end
	 end
         

	if (jsaspsg(sfno)==1 | jsaspsg(sfno)==3 | jsaspsg(sfno)==5 | jsaspsg(sfno)==7)
		set(exc_jitshi_h,'Enable','on');
		set(exc_jitshi_h,'Value',1);
		popjtsh;
		jsparset;
	end	
	if (jsaspsg(sfno)==2 | jsaspsg(sfno)==3 | jsaspsg(sfno)==6 | jsaspsg(sfno)==7)
		set(exc_aspira_h,'Enable','on');
		set(exc_aspira_h,'Value',1);
		popaspi;
		asparset;
	end
	if (jsaspsg(sfno)==4 | jsaspsg(sfno)==5 | jsaspsg(sfno)==6 | jsaspsg(sfno)==7)
		set(exc_subglo_h,'Enable','on');
		set(exc_subglo_h,'Value',1);
		popsbglo;
		sbparset;
	end
set(exc_curf_e_h,'String',sfno);
set(exc_totf_e_h,'String',stotfno);
set(exc_beg_e_h,'String',ftime(sfno));
%set(exc_end_e_h,'String',ftime(sfno)+fdur(sfno));
set(exc_end_e_h,'String',fend(sfno));
set(exc_dur_e_h,'String',fdur(sfno));

end