www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavelet/wfusdec.m
function [Dfus,Tfus] = wfusdec(D1,D2,AfusMeth,DfusMeth) %WFUSDEC Fusion of two wavelet decompositions. % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 13-Jan-2003. % Last Revision: 24-Jul-2007. % Copyright 1995-2007 The MathWorks, Inc. % Check arguments. if nargin==3 , DfusMeth = AfusMeth; end okTREE = false; if isa(D1,'wdectree') && isa(D2,'wdectree') okTREE = true; Tfus = D1; tn = leaves(D1); D1 = read(D1,'data',tn); tn = leaves(D2); D2 = read(D2,'data',tn); end if iscell(D1) && iscell(D2) nbCell = length(D1); Dfus = cell(size(D1)); Dfus{1} = wfusmat(D1{1},D2{1},AfusMeth); for k=2:nbCell Dfus{k} = wfusmat(D1{k},D2{k},DfusMeth); end if okTREE Tfus = write(Tfus,'data',Dfus); Dfus = rnodcoef(Tfus); end else error(message('Wavelet:FunctionArgVal:Invalid_ArgVal')); end