loadfant_old.m

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

% load Fant's area file
% loadfant.m
% modified by D. G. Childers 7/14/98

cwd=pwd;
cd data;
[fname pathname]=uigetfile('*.fan','Load arti_area file');

if fname ~= 0
   S=sprintf('Loading data into %s%s',pathname,fname);
   disp(S);
	s=sprintf('load %s%s',pathname,fname);
	eval(s);
   o_fname=fname;
   o_pname=pathname;
   %fname=basename(fname);
   
else
   fname=o_fname;
   pathname=o_pname;
end
% If an Input file is not specified ( fname ), return to main menu
if exist('fname') ~= 1 | length(fname) == 0
   disp('Input file is not specified. Returning to main menu.');
   cd ..;
   return;
end

%s=sprintf('cd %s',cwd);
%eval(s);
fid = fopen(eval('fname'), 'r');
totfno=fscanf(fid, '%d', 1);

for k=1:totfno,
	tartime(k)=fscanf(fid, '%f', 1);
	tdur(k)=fscanf(fid, '%f', 1);
	nt1a(k)=fscanf(fid, '%f', 1);
	for j=1:60,
		area(k,j)=fscanf(fid, '%f', 1);
	end
	slen=fscanf(fid, '%f', 1);
	for j=1:60,
		leng(k,j)=slen;
	end
	if nt1a(k) > 0.0001
		area(k,60) = area(k,60) - nt1a(k);
	end
end
set(m1_2_h,'Enable','off');
set(m1_3_h,'Enable','off');

cd ..