Mercurial > hg > ltpda
comparison m-toolbox/classes/@specwin/win_hft70.m @ 0:f0afece42f48
Import.
| author | Daniele Nicolodi <nicolodi@science.unitn.it> |
|---|---|
| date | Wed, 23 Nov 2011 19:22:13 +0100 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:f0afece42f48 |
|---|---|
| 1 % WIN_HFT70 returns HFT70 window, with N points. | |
| 2 % If mode == 'define', the window values will be empty and all the features | |
| 3 % If mode == 'build', the window values will be calculated | |
| 4 % | |
| 5 % M Hewitson 18-05-07 | |
| 6 % | |
| 7 % $Id: win_hft70.m,v 1.5 2011/05/25 07:30:08 mauro Exp $ | |
| 8 % | |
| 9 | |
| 10 function varargout = win_hft70(w, mode, N) | |
| 11 | |
| 12 switch lower(mode) | |
| 13 | |
| 14 case 'build' | |
| 15 n_args = nargin; | |
| 16 if n_args < 3 | |
| 17 N = w.len; | |
| 18 end | |
| 19 % Calculate the values of the window | |
| 20 z = [0:N-1]./N * 2 * pi; | |
| 21 varargout{1} = (1 - 1.90796 * cos (z) + ... | |
| 22 1.07349 * cos (2 * z) - 0.18199 * cos (3 * z)); | |
| 23 | |
| 24 case 'define' | |
| 25 % Make window struct | |
| 26 w.type = 'HFT70'; | |
| 27 w.alpha = 0; | |
| 28 w.psll = 70.4; | |
| 29 w.rov = 72.2; | |
| 30 w.nenbw = 3.4129; | |
| 31 w.w3db = 3.3720; | |
| 32 w.flatness = -0.0065; | |
| 33 w.len = N; | |
| 34 w.skip = 0; | |
| 35 | |
| 36 varargout{1} = w; | |
| 37 end | |
| 38 | |
| 39 % END |