enframe.m
资源名称:speech.rar [点击查看]
上传用户:ay_070428
上传日期:2014-12-04
资源大小:11427k
文件大小:2k
源码类别:
语音合成与识别
开发平台:
Matlab
- function f=enframe(x,win,inc)
- %ENFRAME split signal up into (overlapping) frames: one per row. F=(X,WIN,INC)
- %
- % F = ENFRAME(X,LEN) splits the vector X up into
- % frames. Each frame is of length LEN and occupies
- % one row of the output matrix. The last few frames of X
- % will be ignored if its length is not divisible by LEN.
- % It is an error if X is shorter than LEN.
- %
- % F = ENFRAME(X,LEN,INC) has frames beginning at increments of INC
- % The centre of frame I is X((I-1)*INC+(LEN+1)/2) for I=1,2,...
- % The number of frames is fix((length(X)-LEN+INC)/INC)
- %
- % F = ENFRAME(X,WINDOW) or ENFRAME(X,WINDOW,INC) multiplies
- % each frame by WINDOW(:)
- % Copyright (C) Mike Brookes 1997
- %
- % Last modified Tue May 12 13:42:01 1998
- %
- % VOICEBOX home page: http://www.ee.ic.ac.uk/hp/staff/dmb/voicebox/voicebox.html
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % This program is free software; you can redistribute it and/or modify
- % it under the terms of the GNU General Public License as published by
- % the Free Software Foundation; either version 2 of the License, or
- % (at your option) any later version.
- %
- % This program is distributed in the hope that it will be useful,
- % but WITHOUT ANY WARRANTY; without even the implied warranty of
- % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- % GNU General Public License for more details.
- %
- % You can obtain a copy of the GNU General Public License from
- % ftp://prep.ai.mit.edu/pub/gnu/COPYING-2.0 or by writing to
- % Free Software Foundation, Inc.,675 Mass Ave, Cambridge, MA 02139, USA.
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- nx=length(x);
- nwin=length(win);
- if (nwin == 1)
- len = win;
- else
- len = nwin;
- end
- if (nargin < 3)
- inc = len;
- end
- nf = fix((nx-len+inc)/inc);
- f=zeros(nf,len);
- indf= inc*(0:(nf-1)).';
- inds = (1:len);
- f(:) = x(indf(:,ones(1,len))+inds(ones(nf,1),:));
- if (nwin > 1)
- w = win(:)';
- f = f .* w(ones(nf,1),:);
- end