Diff of /wavelets/wfilt_mband.m [77a22a] .. [95fe2b]  Maximize  Restore

Switch to side-by-side view

--- a/wavelets/wfilt_mband.m
+++ b/wavelets/wfilt_mband.m
@@ -1,101 +1,101 @@
-function [h,g,a] = 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. 
-%
-%   References:  alkin95mband
-%
-%   Frequency responses of the analysis filters:::
-%
-%     w = fwtinit({'mband',1});
-%     wtfftfreqz(w.h);
-%
-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
-
-h=mat2cell(harr.',ones(length(a),1),length(harr));
-
-if(nargout>1)
-    garr = harr(end:-1:1, :);
-    g=mat2cell(garr.',ones(length(a),1),length(harr));
-end
+function [h,g,a] = 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. 
+%
+%   References:  alkin95mband
+%
+%   Frequency responses of the analysis filters:::
+%
+%     w = fwtinit({'mband',1});
+%     wtfftfreqz(w.h);
+%
+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
+
+h=mat2cell(harr.',ones(length(a),1),length(harr));
+
+if(nargout>1)
+    garr = harr(end:-1:1, :);
+    g=mat2cell(garr.',ones(length(a),1),length(harr));
+end

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks