fm_load.m

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

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

if exist('fname') == 1 
   s=sprintf('clear %s',fname);
	eval(s);
end
if exist('mkname') == 1 
   s=sprintf('clear %s',mkname);
	eval(s);
end
if exist('totfno') == 1 
   s=sprintf('clear %s',totfno);
	eval(s);
end

if exist('m3_h')~=1;

m3_h=figure('Position',[619 35 110 308],...
	'NumberTitle','off','Visible','off','Name','Mark','color','white', ...
   'MenuBar','none');
		uicontrol('Style','Pushbutton','Position',[10 258 90 25], ...
      'String','Done','Callback','mk_done');
		uicontrol('Style','Pushbutton','Position',[10 141 90 25], ...
		'String','Unmark','Callback','fm_unmk');
		uicontrol('Style','Pushbutton','Position',[10 83 90 25], ...
      'String','Save','Callback','save_mk');
      uicontrol('Style','Pushbutton','Position',[10 25 90 25], ...
		'String','Cancel','Callback','mk_cancel');

      
m3_2_h=uicontrol('Style','Popupmenu','Position',[10 199 90 25], ...
   'String','Mark | Add Mark ','Callback','mk_load','Value',1);
end

cwd=pwd;

%val=get(m1_1_h,'Value');
cd data

[fname pathname]=uigetfile('*form.for','Load formant file');
if fname ~= 0
   S=sprintf('Loading data in %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


cd ..

if exist('fname') == 1 
s=sprintf('cd %s',cwd);
eval(s);
s=sprintf('[filelen,n]=size(%s);',fname);
eval(s);
temp=ones(filelen,12);
s=temp;
s=sprintf('temp(:,1:4)=%s(:,1:4);',fname);
eval(s);

if exist('m2_h')~=1;

m2_h=figure('Position',[10 35 600 290], 'Resize', 'on', ...
	'NumberTitle','off','Name','Formant Tracks Display Window',...
   'Color',[1 1 1]);
end

figure(m2_h);
FS=10000;
frame_step=100;
t=1/100:1/100:filelen/100;
s=sprintf('plot(t,%s,''color'',[0 0 0])',fname);
eval(s);
xlabel('Time (sec)','color',[0 0 0]);
ylabel('Frequency (Hz)','color',[0 0 0]);
axis([0 filelen/100 0 1000*ceil((max(temp(:,4)))/1000)]);

set(m3_h,'Visible','on');
end

if exist('fname') ~= 1 | length(fname) == 0
   disp('Input file is not specified. Returning to main menu.');

end