home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 8.ddi / SIGNAL.DI$ / KAISER.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  391 b   |  16 lines
  1. function w = kaiser(nn,beta)
  2. %KAISER    KAISER(N,beta) returns the BETA-valued N-point Kaiser window.
  3.  
  4. %    L. Shure 3-4-87
  5. %    Copyright (c) 1984-1992 by the MathWorks, Inc.
  6.  
  7. nw = round(nn);
  8. bes = abs(besseli(0,beta));
  9. odd = rem(nw,2);
  10. xind = (nw-1)^2;
  11. n = fix((nw+1)/2);
  12. xi = (0:n-1) + .5*(1-odd);
  13. xi = 4*xi.^2;
  14. w = besseli(0,beta*sqrt(1-xi/xind))/bes;
  15. w = abs([w(n:-1:odd+1) w])';
  16.