mk_done.m

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

% mk_done.m
% modified by D. G. Childers 7/14/98

[totfno,n]=size(eval('%s',mkname));
form_tar=zeros(totfno,4);
for ii=1:totfno
    for j=1:4
   	s=sprintf('form_tar(%d,%d)=%s(%s(%d,1)+1,%d);',ii,j,fname,mkname,ii,j);
		eval(s);
    end
 end
 clear temp t ;

%close(m3_h);
s=sprintf('clear %s',fname);
eval(s);

if exist('m3_h')==1
	eval('close(m3_h);',catch1);
	clear m3_h;
end

if exist('m2_h')==1
	eval('close(m2_h);',catch1);
	clear m2_h;
end

if exist('file_load_sv_win_h') == 1
	eval('close(file_load_sv_win_h);',catch1); % close the file load window
   clear file_load_sv_win_h;
end