savearar.m

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

% savearar.m
% modified by D. G. Childers 7/13/98

% save articulatory vector and area into file
cwd=pwd;
cd data;

[fname pathname]=uiputfile('*.art','Save articulatory positions file');
if fname ~= 0
   S=sprintf('Saving data into %s%s',pathname,fname);
   disp(S);
   o_fname=fname;
   o_pname=pathname;
   %fname=basename(fname);
   
else
   fname=o_fname;
   pathname=o_pname;
end
% If an output file is not specified ( fname ), return to main menu
if exist('fname') ~= 1 | length(fname) == 0
   disp('Output file is not specified. Returning to main menu.');
   cd ..;
   return;
end


%...........................................
%cwd=pwd;

%cd data;
%[filename pathname]=uiputfile('*.art','Save arti_area file');
filename=fname;
fid = fopen(eval('filename'), 'w');
fprintf(fid, '%d\n', totfno);
for i=1:totfno,
	fprintf(fid, '%f\n', tartime(i));
	fprintf(fid, '%f\n', tdur(i));
	fprintf(fid, '%f\n', nt1a(i));
	fprintf(fid, '%d\n', pharyflag(i));
	for j=1:60,
		fprintf(fid, '%f\n', area(i,j));
	end
	for j=1:60,
		fprintf(fid, '%f\n', leng(i,j));
	end
	fprintf(fid, '%f\n', artset(i,1));
	fprintf(fid, '%f\n', artset(i,2));
	fprintf(fid, '%f\n', artset(i,3));
	fprintf(fid, '%f\n', artset(i,4));
	fprintf(fid, '%f\n', artset(i,5));
	fprintf(fid, '%f\n', artset(i,6));
	fprintf(fid, '%f\n', artset(i,7));
	fprintf(fid, '%f\n', artset(i,8));
	fprintf(fid, '%f\n', artset(i,9));
	fprintf(fid, '%f\n', form_tar(i,1));
	fprintf(fid, '%f\n', form_tar(i,2));
	fprintf(fid, '%f\n', form_tar(i,3));
	fprintf(fid, '%f\n', form_tar(i,4));
	if (pharyflag(i))
		fprintf(fid, '%f\n', artset(i,10));
		fprintf(fid, '%f\n', artset(i,11));
		fprintf(fid, '%f\n', artset(i,12));
	end
end
%s=sprintf('save %s%s',pathname,fname);
%eval(s);

fclose(fid);
close(file_load_sv_win_h); % close the file load window
clear file_load_sv_win_h;

cd ..