[ff23f8]: wavelets / wfilt_mband.m Maximize Restore History

Download this file

wfilt_mband.m    101 lines (95 with data), 1.5 kB

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
function [h,g,a,info] = wfilt_mband(N)
%WFILT_MBAND Generates M-Band coders
% Usage: [h,g,a] = wfilt_mband(N);
%
% `[h,g,a]=wfilt_mband(N)` returns linear-phase M-band wavelet filters.
%
% Examples:
% ---------
%
% wfiltinfo('mband4');
%
% References: alkin95mband
%
a= [4;4;4;4];
switch(N)
case 1
harr = [
[ 0.036796442259
-0.024067904384
-0.064951364125
-0.042483542576
-0.030838286810
0.174767766545
0.409804433561
0.540933249858
0.540933249858
0.409804433561
0.174767766545
-0.030838286810
-0.042483542576
-0.064951364125
-0.024067904384
0.036796442259
],...
[
0.024067904384
-0.036796442259
-0.042483542576
-0.064951364125
-0.174767766545
0.030838286810
0.540933249858
0.409804433561
-0.409804433561
-0.540933249858
-0.030838286810
0.174767766545
0.064951364125
0.042483542576
0.036796442259
-0.024067904384
],...
[
0.024067904384
0.036796442259
-0.042483542576
0.064951364125
-0.174767766544
-0.030838286810
0.540933249858
-0.409804433561
-0.409804433561
0.540933249858
-0.030838286810
-0.174767766545
0.064951364125
-0.042483542576
0.036796442259
0.024067904384
],...
[
0.036796442259
0.024067904384
-0.064951364125
0.042483542576
-0.030838286810
-0.174767766545
0.409804433561
-0.540933249858
0.540933249858
-0.409804433561
0.174767766545
0.030838286810
-0.042483542576
0.064951364125
-0.024067904384
-0.036796442259
]
];
otherwise
error('%s: No such M-Band filters.',upper(mfilename));
end
g=mat2cell(harr,size(harr,1),ones(1,size(harr,2)));
h = g;
info.istight = 1;