enframe.m
上传用户:ay_070428
上传日期:2014-12-04
资源大小:11427k
文件大小:2k
源码类别:

语音合成与识别

开发平台:

Matlab

  1. function f=enframe(x,win,inc)
  2. %ENFRAME split signal up into (overlapping) frames: one per row. F=(X,WIN,INC)
  3. %
  4. % F = ENFRAME(X,LEN) splits the vector X up into
  5. % frames. Each frame is of length LEN and occupies
  6. % one row of the output matrix. The last few frames of X
  7. % will be ignored if its length is not divisible by LEN.
  8. % It is an error if X is shorter than LEN.
  9. %
  10. % F = ENFRAME(X,LEN,INC) has frames beginning at increments of INC
  11. % The centre of frame I is X((I-1)*INC+(LEN+1)/2) for I=1,2,...
  12. % The number of frames is fix((length(X)-LEN+INC)/INC)
  13. %
  14. % F = ENFRAME(X,WINDOW) or ENFRAME(X,WINDOW,INC) multiplies
  15. % each frame by WINDOW(:)
  16. % Copyright (C) Mike Brookes 1997
  17. %
  18. %      Last modified Tue May 12 13:42:01 1998
  19. %
  20. %   VOICEBOX home page: http://www.ee.ic.ac.uk/hp/staff/dmb/voicebox/voicebox.html
  21. %
  22. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  23. %   This program is free software; you can redistribute it and/or modify
  24. %   it under the terms of the GNU General Public License as published by
  25. %   the Free Software Foundation; either version 2 of the License, or
  26. %   (at your option) any later version.
  27. %
  28. %   This program is distributed in the hope that it will be useful,
  29. %   but WITHOUT ANY WARRANTY; without even the implied warranty of
  30. %   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  31. %   GNU General Public License for more details.
  32. %
  33. %   You can obtain a copy of the GNU General Public License from
  34. %   ftp://prep.ai.mit.edu/pub/gnu/COPYING-2.0 or by writing to
  35. %   Free Software Foundation, Inc.,675 Mass Ave, Cambridge, MA 02139, USA.
  36. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  37. nx=length(x);
  38. nwin=length(win);
  39. if (nwin == 1)
  40.    len = win;
  41. else
  42.    len = nwin;
  43. end
  44. if (nargin < 3)
  45.    inc = len;
  46. end
  47. nf = fix((nx-len+inc)/inc);
  48. f=zeros(nf,len);
  49. indf= inc*(0:(nf-1)).';
  50. inds = (1:len);
  51. f(:) = x(indf(:,ones(1,len))+inds(ones(nf,1),:));
  52. if (nwin > 1)
  53.     w = win(:)';
  54.     f = f .* w(ones(nf,1),:);
  55. end