www.pudn.com > LPCToolbox.rar > FRWRITE.M

%  
function [err,msg] = frwrite 
global Ap Cs  
 
fname = Cs.datfilename; 
range = Cs.framerange; 
numfr = length(range); 
 
if numfr < 2, 
  err=1; msg='Frame range is not defined'; 
  return; 
end 
 
fr = Cs.pks(range, 1:3, 1); 
 
fid = fopen(fname, 'w'); 
if fid < 0, 
  err=2; msg=sprintf('Unable to open %s', fname); 
  return; 
end 
 
% Header 
 
fprintf(fid, 'Frames: %d - %d\n', range(1), range(numfr)); 
 
% Info about analysis parameters 
 
fprintf(fid, 'p: sf=%d aw=%d cw=%d pr=%0.3f\n', ... 
       Cs.Fs, Ap.analysis_width, Ap.context_width, Ap.preemph); 
 
fprintf(fid, 'p: hm=%d nc=%d fft=%d tpi=%d\n', ... 
       Ap.usehamming, Cs.ncoeffs, Ap.fftlen, Ap.usetpi); 
 
% Info about the frames themselves 
 
for i=1:numfr, 
  fprintf(fid, 'f: %5d %5d %5d\n', fr(i,1), fr(i,2), fr(i,3)); 
end 
 
fclose(fid); 
 
err=0; msg='';