exc_save.m

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

% exc_save.m
% modified by D. G. Childers 7/16/98 & 8/3/98 & 8/9/98

% save the excitation source into file
cwd=pwd;

cd data;

[fmname pathname]=uiputfile('*.src','Save exc_source file');
if fmname ~= 0
   S=sprintf('Saving data into %s%s',pathname,fmname);
   disp(S);
	o_fmname=fmname;
   o_pname=pathname;
   %fmname=basename(fmname);   
else
   fmname=o_fmname;
   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);

%[FG_m,FG_n]=size(FG_f0);
%[TN_m,TN_n]=size(TN_place);
fid = fopen(eval('fmname'), 'w');
fprintf(fid, '%d\n', stotfno);
for k=1:stotfno,
   		%fend(k)=ftime(k)+fdur(k);  % This was used to convert some old files to the new format.
        	fprintf(fid, '%f\n', ftime(k));
        	fprintf(fid, '%f\n', fend(k)); %This was added on 8/2/98
        	fprintf(fid, '%f\n', fdur(k));
		  	fprintf(fid, '%d\n', explace(k));
        	fprintf(fid, '%d\n', exmode(k));
        	fprintf(fid, '%d\n', vtgltoc(k));
        	fprintf(fid, '%d\n', jsaspsg(k));
	if (~vtgltoc(k) | (jsaspsg(k)==4 | jsaspsg(k)==5 | jsaspsg(k)==6 | jsaspsg(k)==7))
                fprintf(fid, '%f\n', Agmax(k));
	end
      if (explace(k))
			fprintf(fid, '%d\n', EX_loc(k));
         fprintf(fid, '%f\n', FG_f0(k));
         fprintf(fid, '%f\n', FG_t0(k));
         fprintf(fid, '%f\n', FG_av(k));
         fprintf(fid, '%f\n', FG_g0(k));
         fprintf(fid, '%f\n', LF_ee(k));
         fprintf(fid, '%f\n', LF_tp(k));
         fprintf(fid, '%f\n', LF_te(k));
         fprintf(fid, '%f\n', LF_tc(k));
         fprintf(fid, '%f\n', LF_ta(k));
      elseif (exmode(k)==0 | exmode(k)==2)
         fprintf(fid, '%f\n', FG_f0(k));
         fprintf(fid, '%f\n', FG_t0(k));
         fprintf(fid, '%f\n', FG_av(k));
         fprintf(fid, '%f\n', FG_g0(k));
         fprintf(fid, '%f\n', LF_ee(k));
         fprintf(fid, '%f\n', LF_tp(k));
         fprintf(fid, '%f\n', LF_te(k));
         fprintf(fid, '%f\n', LF_tc(k));
         fprintf(fid, '%f\n', LF_ta(k));
		end
      if (jsaspsg(k)==1 | jsaspsg(k)==3 | jsaspsg(k)==5 | jsaspsg(k)==7)
         fprintf(fid, '%f\n', JS_jit(k));
         fprintf(fid, '%f\n', JS_jfilt(k));
         fprintf(fid, '%f\n', JS_shm(k));
         fprintf(fid, '%f\n', JS_sfilt(k));
		end
      if (jsaspsg(k)==2 | jsaspsg(k)==3 | jsaspsg(k)==6 | jsaspsg(k)==7)
         fprintf(fid, '%f\n', An_ah(k));
         fprintf(fid, '%f\n', An_afilt(k));
		end
      if (exmode(k)==1 | exmode(k)==2)
         fprintf(fid, '%d\n', TN_place(k));
         fprintf(fid, '%f\n', TN_CRN(k));
         fprintf(fid, '%f\n', TN_turbg(k));
         fprintf(fid, '%f\n', TN_vvdc(k));
		end
      if ((jsaspsg(k)==4 | jsaspsg(k)==5 | jsaspsg(k)==6 | jsaspsg(k)==7) & ~explace(k))
         fprintf(fid, '%f\n', currsub(k));
         fprintf(fid, '%f\n', totfsub(k));
         fprintf(fid, '%f\n', R(k));
         fprintf(fid, '%f\n', L(k));
         fprintf(fid, '%f\n', C(k));

         fprintf(fid, '%d\n', Ag_model(k));
         fprintf(fid, '%f\n', Ag_Td(k));
         fprintf(fid, '%f\n', Ag_To(k));
         fprintf(fid, '%f\n', Ag_Tc(k));
		end
end
fclose(fid);

cd ..