WIN_NUTTALL4A return Nuttall4a window sample for input z. M Hewitson 18-05-07 $Id: win_Nuttall4a.m,v 1.2 2008/02/13 18:38:02 ingo Exp $
0001 function w = win_Nuttall4a(w, z) 0002 0003 % WIN_NUTTALL4A return Nuttall4a window sample for input z. 0004 % 0005 % M Hewitson 18-05-07 0006 % 0007 % $Id: win_Nuttall4a.m,v 1.2 2008/02/13 18:38:02 ingo Exp $ 0008 % 0009 0010 z = z * 2 * pi; 0011 v = 0.338946 - 0.481973 * cos (z) + 0.161054 * cos (2 * z) - 0.018027 * cos (3 * z); 0012 0013 % Make window struct 0014 w.name = 'Nuttall4a'; 0015 w.alpha = 0; 0016 w.psll = 82.6; 0017 w.rov = 68; 0018 w.nenbw = 2.1253; 0019 w.w3db = 2.0123; 0020 w.flatness = -0.7321; 0021 w.ws = sum(v); 0022 w.ws2 = sum(v.*v); 0023 w.win = v; 0024 0025 % END