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='';