displs.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:1k
- function LSstr = displs(LS,format)
- %DISPLS Display lifting scheme.
- % S = DISPLS(LS,FRM) returns a string describing
- % the lifting scheme LS. The format string "FRM"
- % (see SPRINTF) is used to build S.
- %
- % DISPLS(LS) is equivalent to DISPLS(LS,'%12.8f')
- %
- % For more information about lifting schemes type: lsinfo.
- % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 21-May-2001.
- % Last Revision 09-Jul-2003.
- % Copyright 1995-2004 The MathWorks, Inc.
- % $Revision: 1.1.6.3 $ $Date: 2004/04/13 00:39:34 $
- if nargin<2, format = '%12.8f'; end
- N = size(LS,1);
- C1str = '';
- for k = 1:N-1
- C1str = [C1str;'''',LS{k,1},''''];
- end
- C1str = strvcat(C1str,['[', sprintf(format,LS{N,1}),'] ']);
- C2str = '';
- for k = 1:N
- C2str = strvcat(C2str,['[', sprintf(format,LS{k,2}),'] ']);
- end
- C3str = '';
- for k = 1:N
- C3str = strvcat(C3str,['[', int2str(LS{k,3}),'] ']);
- end
- LSstr = [C1str,C2str,C3str];
- varName = inputname(1);
- LSstr = strvcat([varName , ' = {...'], LSstr,'};');
- if nargout<1 , disp(LSstr); end