agif_auto_save.m

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

%Callback for save button of automatic GIF analyses windows
%Author Karthik June 2 1997

cwd=pwd;

[fname pathname]=uiputfile('*.dat','Save file (ASCII)');
S=sprintf('cd %s',cwd);
eval(S);

if fname ~= 0
   S=sprintf('Saving data into %s (ASCII format)',fname);
   disp(S);
   S=sprintf('save %s%s dg_final -ascii',pathname,fname);
   eval(S);
else
   fname=o_fname;
   pathname=o_pname;
end
if gif_mark_flag == 1;
   SPEECH = SPEECH_OLD_A;   
   gif_mark_flag = 0;
   NEW_LEFT = 1;
   NEW_RIGHT = length(SPEECH);
   NEW_LEN = length(SPEECH);
   axis_mark_left = 1;
   axis_mark_right = NEW_RIGHT;
   V = axis_mark_left:axis_mark_right;
end