home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 10.ddi / CONTROL.DI$ / LAB2STR.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  778 b   |  32 lines
  1. function labels=lab2str(ulab)
  2. %LAB2STR  Convert space delimited label format to the more
  3. %    efficient string matrix format.
  4.  
  5. % Clay M. Thompson 8-20-90
  6. % Copyright (c) 1986-93 by the MathWorks
  7.  
  8. len = 12; % Label length parameter
  9.  
  10. [m,n] = size(ulab);
  11.  
  12. if m==1,
  13.   % Put labels into format for PRINTMAT
  14.  
  15.   % First remove extra spaces (delimiters)
  16.   delim = (ulab==' '); ndx = find([delim,0]&[0,delim]);
  17.   if ~isempty(ulab), ulab(ndx) = []; end
  18.   labels = ulab;
  19.  
  20. else % Convert labels from SIMULAB
  21.   labels = [];
  22.   for i=1:m,
  23.     j = n;
  24.     while (ulab(i,j)~='/')&(j>1), j=j-1; end
  25.     if ulab(i,j)~='/', lab = ulab(i,j); else lab = []; end
  26.     while (ulab(i,j)~=' ')&(j<n), j=j+1; lab = [lab,ulab(i,j)]; end
  27.     labels = [labels,lab,' '];
  28.   end
  29.  
  30. end
  31.  
  32.