Mercurial > hg > ltpda
comparison m-toolbox/classes/@specwin/win_hft90d.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_HFT90D returns HFT90D 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_hft90d.m,v 1.5 2011/05/25 07:30:09 mauro Exp $ | |
| 8 % | |
| 9 | |
| 10 function varargout = win_hft90d(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.942604 * cos (z) + ... | |
| 22 1.340318 * cos (2 * z) - 0.440811 * cos (3 * z) + ... | |
| 23 0.043097 * cos (4 * z)); | |
| 24 | |
| 25 case 'define' | |
| 26 % Make window struct | |
| 27 w.type = 'HFT90D'; | |
| 28 w.alpha = 0; | |
| 29 w.psll = 90.2; | |
| 30 w.rov = 76; | |
| 31 w.nenbw = 3.8832; | |
| 32 w.w3db = 3.8320; | |
| 33 w.flatness = -0.0039; | |
| 34 w.len = N; | |
| 35 w.skip = 0; | |
| 36 | |
| 37 varargout{1} = w; | |
| 38 end | |
| 39 | |
| 40 % END |