dyaddownnd.m

Matlab工具箱多维小波变换工具箱MDWT.zip

function y = dyaddownnd(x,s)
%[Y]=DYADDOWNND(X,S)
%X is N-D array
%S is the dimension want to down
%Y is N-D array output
%some difference with MATHWORKS wavelet toolbox
h=size(x);
h=[h(s:length(h)),h(1:s-1)];
h(1)=fix(h(1)/2);
x=shiftdim(x,s-1);
y=x([1:h(1)]*2,:);
y=reshape(y,h);
y=shiftdim(y,length(h)-s+1);

%   
% Part of Multi-dimension Wavelet Toolbox Version 1.0
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%