nexttar.m

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

%nexttar.m
%modified by D. G. Childers 7/9/98

figure(main1_h);
clf;
currf=get(m_curr_h,'String');
currf=eval(currf);
currf=currf+1;
if currf <= totfno
   if (exist('art_set'))
	[martset,nartset]=size(art_set);
		if currf <= martset
		set(m4_1_h,'Value',art_set(currf,1));
		set(m4_2_h,'String',round(art_set(currf,1)));
		set(m4_3_h,'Value',art_set(currf,2));
		set(m4_4_h,'String',round(art_set(currf,2)));
		set(m4_5_h,'Value',art_set(currf,3));
		set(m4_6_h,'String',round(art_set(currf,3)));
		set(m4_7_h,'Value',art_set(currf,4));
		set(m4_8_h,'String',round(art_set(currf,4)));
		set(m4_9_h,'Value',art_set(currf,5));
		set(m4_10_h,'String',round(art_set(currf,5)));
		set(m4_11_h,'Value',art_set(currf,6));
		set(m4_12_h,'String',round(art_set(currf,6)));
		set(m4_13_h,'Value',art_set(currf,7));
		set(m4_14_h,'String',round(art_set(currf,7)));
		set(m4_15_h,'Value',art_set(currf,8));
		set(m4_16_h,'String',round(art_set(currf,8)));
		set(m4_17_h,'Value',art_set(currf,9));
		set(m4_18_h,'String',round(art_set(currf,9)));
		else
         %sh_defau;
         currf=currf-1;
         shrecove;
         currf=currf+1;
		end
   else
	sh_defau;
   end
end

if currf <= totfno
	set(m_curr_h,'String',currf);
	set(m_begt_h,'String',tartime(currf));
	set(m_durt_h,'String',eval('tdur(currf)'));
else
	currf=currf-1;
end