save_mk.m

这是一个用于语音信号处理的工具箱

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

cwd=pwd;
cd data;
[fmname pathname]=uiputfile('*fmrk.mrk','Save mark file');
if fmname ~= 0
   S=sprintf('Saving data into %s%s',pathname,fmname);
   disp(S);

	o_fmname=fmname;
	o_mkname=mkname;
   o_pname=pathname;
   %fmname=basename(fmname);
   mkname=basename(mkname);
   
else
   fmname=o_fmname;
   mkname=o_mkname;
   pathname=o_pname;
end
% If an output file is not specified ( fmname ), return to main menu
if exist('fmname') ~= 1 | length(fmname) == 0
   disp('Output file is not specified. Returning to main menu.');
   cd ..;
   return;
end




%s=sprintf('cd %s',cwd);
%eval(s);
tt=0:0.1:100;
s=sprintf('save %s%s %s -ascii',pathname,fmname,mkname);
eval(s);
cd ..



%return;