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

波变换

开发平台:

Matlab

  1. function LSstr = displs(LS,format)
  2. %DISPLS Display lifting scheme.
  3. %   S = DISPLS(LS,FRM) returns a string describing 
  4. %   the lifting scheme LS. The format string "FRM" 
  5. %   (see SPRINTF) is used to build S. 
  6. %  
  7. %   DISPLS(LS) is equivalent to DISPLS(LS,'%12.8f')
  8. %
  9. %   For more information about lifting schemes type: lsinfo.
  10. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 21-May-2001.
  11. %   Last Revision 09-Jul-2003.
  12. %   Copyright 1995-2004 The MathWorks, Inc.
  13. %   $Revision: 1.1.6.3 $ $Date: 2004/04/13 00:39:34 $ 
  14. if nargin<2, format = '%12.8f'; end
  15. N = size(LS,1);
  16. C1str = '';
  17. for k = 1:N-1
  18.     C1str = [C1str;'''',LS{k,1},''''];
  19. end
  20. C1str = strvcat(C1str,['[', sprintf(format,LS{N,1}),']  ']);
  21. C2str = '';
  22. for k = 1:N
  23.     C2str = strvcat(C2str,['[', sprintf(format,LS{k,2}),']  ']);
  24. end
  25. C3str = '';
  26. for k = 1:N
  27.     C3str = strvcat(C3str,['[', int2str(LS{k,3}),']  ']);
  28. end
  29. LSstr = [C1str,C2str,C3str];
  30. varName = inputname(1);
  31. LSstr = strvcat([varName , ' = {...'], LSstr,'};');
  32. if nargout<1 , disp(LSstr); end