mgif_sas_old.m

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

%
% Callback function for Save As.. button of mgif window
% Author : Minkyu Lee
% Date : 28-Oct-1994
%

cwd=pwd;
S=sprintf('%s.out',name);
[ofname opathname]=uiputfile(S,'Save MGIF output');
S=sprintf('cd %s',cwd);
eval(S);

if ofname ~= 0
	S=sprintf('Saving data into %s%s', opathname, ofname);
	disp(S);
	S=sprintf('%s%s', opathname, ofname);
	fid=fopen(S,'a');
	if fid == -1
		S=sprintf('Error: cannot open file or file name not given');
		disp(S);
	else
		dg_final=[dg_final ; dg_m(ext_left+1:length(dg_m)-ext_right)];
		g_final=[g_final ; g_m(ext_left+1:length(dg_m)-ext_right)];
		x=1:length(ff); ffb=[ ff(x) ; fb(x) ];
		if mgif_ps_flag == 1
			fprintf(fid,'\n%d %d -- ',round(xsmin)+gci_m(cur_gci),round(xsmin)+gci_m(cur_gci+1)-1);
		else
			fprintf(fid,'\n%d %d -- ',round(xsmin), round(xsmax));	
		end
		fprintf(fid,'%4.1f %4.1f ', ffb);
		fclose(fid);
	end
end