WIN_FTSRS return FTSRS window sample for input z. M Hewitson 18-05-07 $Id: win_FTSRS.m,v 1.1 2007/05/19 09:04:59 hewitson Exp $
0001 function w = win_FTSRS(z) 0002 0003 % WIN_FTSRS return FTSRS window sample for input z. 0004 % 0005 % M Hewitson 18-05-07 0006 % 0007 % $Id: win_FTSRS.m,v 1.1 2007/05/19 09:04:59 hewitson Exp $ 0008 % 0009 0010 z = z * 2 * pi; 0011 v = (1.0 - 1.93 * cos (z) + 1.29 ... 0012 * cos (2 * z) - 0.388 * cos (3 * z) + 0.028 * cos (4 * z)); 0013 0014 % Make window struct 0015 w.name = 'FTSRS'; 0016 w.alpha = 0; 0017 w.psll = 76.6; 0018 w.rov = 75.4; 0019 w.nenbw = 3.7702; 0020 w.w3db = 3.7274; 0021 w.flatness = -0.0156; 0022 w.ws = sum(v); 0023 w.ws2 = sum(v.*v); 0024 w.win = v; 0025 0026 % END