tree_inserttree.m

一个遗传规划的源程序

function tree = tree_inserttree(treesrc,treedst,dstix,nvar)
%   treesrc -> source tree, it will be inserted into destination tree
%   treedst -> destination tree
%   dstix -> 在目标树中的插入索引值
%   nvar ->  终止字符结点类型是变量的个数

tree = treedst;
if dstix>treedst.maxsize, 
    return; 
end
% 把源二叉树插入到目的二叉树中
vin = [1];
vout = [dstix];
iix = 1;
while vin(iix)<=treesrc.maxsize & vout(iix)<=treedst.maxsize,       %%%%%%%%  ??????tree.maxsize
  tree.nodetyp(vout(iix)) = treesrc.nodetyp(vin(iix));
  tree.node(vout(iix)) = treesrc.node(vin(iix));
  vin = [vin vin(iix)*2 vin(iix)*2+1];
  vout = [vout vout(iix)*2 vout(iix)*2+1];
  iix = iix+1;
end
% 修改二叉树的剩余结点
for i = (tree.maxsize+1)/2:tree.maxsize,
  if tree.nodetyp(i)==1,                          %%%%%%  1 代表是树的根结点
    tree.nodetyp(i) = 2;
    tree.node(i) = floor(nvar*rand)+1;
  end
end
return