www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavelet/wnsubstr.m
function s = wnsubstr(s) %WNSUBSTR Convert number to TEX indices. % S = WNSUBSTR(N) % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 15-Feb-1998. % Last Revision: 02-Aug-2000. % Copyright 1995-2002 The MathWorks, Inc. if ~ischar(s) , s = sprintf('%.0f',s); end l = length(s); p = '_'; p = p(1,ones(1,l)); s = [p;s]; s = s(:)';