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

波变换

开发平台:

Matlab

  1. function dispSTR = displmf(MF)
  2. %DISPLMF Display a Laurent matrices factorization.
  3. %   S = DISPLMF(MF) returns a string which may be used 
  4. %   to display the Laurent matrices factorization MF.
  5. %   Without output argument, "DISPLMF(MF);" diplays the 
  6. %   string S.
  7. %
  8. %   Example:
  9. %      LS = liftwave('db1');
  10. %      APMF = ls2apmf(LS);
  11. %      displmf(APMF);
  12. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 18-Dec-2002.
  13. %   Last Revision: 26-Jun-2003.
  14. %   Copyright 1995-2004 The MathWorks, Inc.
  15. %   $Revision: 1.1.6.3 $  $Date: 2004/04/13 00:39:33 $
  16. space = ' '; 
  17. dispSTR = '';
  18. for k=1:length(MF)
  19.     tmpSTR = disp(MF{k});
  20.     nbROW_1 = size(dispSTR,1);
  21.     if nbROW_1>0
  22.         nbROW_2 = size(tmpSTR,1);
  23.         if nbROW_1 < nbROW_2
  24.             dispSTR = [dispSTR ; space(ones(nbROW_2-nbROW_1,size(dispSTR,2)))];
  25.         elseif nbROW_2<nbROW_1
  26.             tmpSTR = [tmpSTR   ; space(ones(nbROW_1-nbROW_2,size(tmpSTR,2)))];
  27.         end
  28.     end
  29.     dispSTR = [dispSTR , space(ones(size(tmpSTR,1),2)), tmpSTR];
  30. end
  31. if nargout<1 , disp(' '); disp(dispSTR); end