syn_save.m

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

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

% save the excitation source into file
cwd=pwd;

cd data;

[fname pathname]=uiputfile('*.dat','Save synthetic speech 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




%s=sprintf('cd %s',cwd);
%eval(s);

%[FG_m,FG_n]=size(FG_f0);
[SP_m,SP_n]=size(speechsg);
syn_file=fname;
fid = fopen(eval('syn_file'), 'w');
%fprintf(fid, '%f\n', stotfno);
for k=1:SP_n,
        fprintf(fid, '%f\n', speechsg(k));
end

fclose(fid);

cd ..