www.gusucode.com > rctobsolete 工具箱 matlab源码程序 > rctobsolete/mutools/subs/namstuff.m

    % function [numsys,names,namelen,maxlen] = namstuff(systemnames);

%   Copyright 1991-2004 MUSYN Inc. and The MathWorks, Inc.

function [numsys,names,namelen,maxlen] = namstuff(systemnames);
  maxlen = 0;
  names = [];
  tmpln = length(systemnames);
  iloc = find(systemnames ~= ']' & systemnames ~= '[');
  tmp = [' ' systemnames(iloc) ' '];
  blks = find(tmp == ' ');
  blksd = diff(blks);
  imp = find(blksd>1);
  numsys = length(imp);
  namelen = zeros(numsys,1);
  for i=1:numsys
     nn = tmp(blks(imp(i))+1:blks(imp(i)+1)-1);
     if length(nn) > maxlen
       maxlen = length(nn);
     end
     namelen(i) = length(nn);
     names = [names ; [nn mtblanks(tmpln-length(nn))]];
  end
  names = names(:,1:maxlen);