str2mat2.m

来自「王小平《遗传算法——理论、应用与软件实现》随书光盘」· M 代码 · 共 34 行

% function s=str2mat2(t1,t2,t3)
% 替代函数
function s=str2mat2(t1,t2,t3)
[Q1,L1]=size(t1);
[Q2,L2]=size(t2);

if nargin == 2,
   if L1 > L2,
      s=[t1; [t2 blanks(L1-L2) ]];   
   elseif L1 < L2,
      X=setstr(ones(Q1,L2-L1)*32);
      s=[[t1 X]; t2 ];   
   else,
      s=[t1; t2];
   end
else,
   [Q3,L3]=size(t3);
   max_L=max([L1 L2 L3]);

   if L1==max_L,
      s=[t1; [t2 blanks(L1-L2)]; [t3 blanks(L1-L3)]];
   elseif L2==max_L,
      X=setstr(ones(Q1,L2-L1)*32);
      s=[[t1 X]; t2; [t3 blanks(L2-L3)]];
   else,
      X=setstr(ones(Q1,L3-L1)*32);
      s=[[t1 X]; [t2 blanks(L3-L2)]; t3];
   end
   
end