wenergy.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:1k
源码类别:

波变换

开发平台:

Matlab

  1. function [Ea,Ed] = wenergy(C,L)
  2. %WENERGY Energy for 1-D wavelet decomposition.
  3. %   For a one dimensional wavelet decomposition [C,L],  
  4. %   (see WAVEDEC) [Ea,Ed] = WENERGY(C,L) returns Ea,  
  5. %   which is the percentage of energy corresponding to
  6. %   the approximation and Ed, which is the vector containing 
  7. %   the percentages of energy corresponding to the details.
  8. %
  9. %   Example:
  10. %     load noisbump
  11. %     [C,L] = wavedec(noisbump,4,'sym4');
  12. %     [Ea,Ed] = wenergy(C,L)
  13. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  14. %   Last Revision: 14-May-2003.
  15. %   Copyright 1995-2004 The MathWorks, Inc.
  16. %   $Revision: 1.2.4.2 $
  17. Et = sum(C.^2);
  18. level = length(L)-2;
  19. Ca = C(1:L(1));
  20. Cd = detcoef(C,L,'cells');
  21. Ea = 100*sum(Ca.^2)/Et;
  22. for k=1:level , Ed(k) = 100*sum(Cd{k}.^2)/Et; end