mgif_sa.m

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

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

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

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(NEW_LEFT)+gci_m(cur_gci),...
					round(NEW_LEFT)+gci_m(cur_gci+1)-1);
		else
			fprintf(fid,'\n%d %d -- ',round(NEW_LEFT), round(NEW_RIGHT));		
		end
	end
	fprintf(fid,'%4.1f %4.1f ', ffb);
	for ii=NEW_LEFT+gci_m(cur_gci):NEW_LEFT+gci_m(cur_gci+1),
		TRACK(ii,1)=gci_m(cur_gci+1)-gci_m(cur_gci);	%pitch
      TRACK(ii,2)=ffb(1,1);                        %formant frequency 1
		TRACK(ii,3)=ffb(1,2);                        %formant frequency 2
		TRACK(ii,4)=ffb(1,3);                        %formant frequency 3
      TRACK(ii,5)=ffb(1,4);                        %formant frequency 4
      TRACK(ii,6)=ffb(1,5);                        %formant frequency 5
	end
	fclose(fid);
end