lab2str.m

数字通信第四版原书的例程

function labels=lab2str(ulab)
%LAB2STR  Convert space delimited label format to the more
%	efficient string matrix format.

% Clay M. Thompson 8-20-90
% Copyright (c) 1986-93 by the MathWorks

len = 12; % Label length parameter

[m,n] = size(ulab);

if m==1,
  % Put labels into format for PRINTMAT

  % First remove extra spaces (delimiters)
  delim = (ulab==' '); ndx = find([delim,0]&[0,delim]);
  if ~isempty(ulab), ulab(ndx) = []; end
  labels = ulab;

else % Convert labels from SIMULAB
  labels = [];
  for i=1:m,
    j = n;
    while (ulab(i,j)~='/')&(j>1), j=j-1; end
    if ulab(i,j)~='/', lab = ulab(i,j); else lab = []; end
    while (ulab(i,j)~=' ')&(j<n), j=j+1; lab = [lab,ulab(i,j)]; end
    labels = [labels,lab,' '];
  end

end