home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 8.ddi / SIGNAL.DI$ / TRIANG.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  260 b   |  13 lines
  1. function w = triang(n)
  2. %TRIANG    TRIANG(N) returns the N-point triangular window.
  3. if rem(n,2)
  4.     % It's an odd length sequence
  5.     w = 2*(1:(n+1)/2)/(n+1);
  6.     w = [w w((n-1)/2:-1:1)]';
  7. else
  8.     % It's even
  9.     w = (2*(1:(n+1)/2)-1)/n;
  10.     w = [w w(n/2:-1:1)]';
  11. end
  12.  
  13.