tsp.m

来自「解决背包问题 自动求解最大价值 利益最大化问题」· M 代码 · 共 17 行

clear;
clc;
parent=first(100);
%N=input('请输入准备生成的子代代数\n');
d=inf;
N=0;
while d>45
    [parent,dm]=value(parent);
    %disp(parent(1,:));
    d=dm(1)
    so=son(parent);
    so=crosser(so);
    parent=variation(so);
    N=N+1;
end
%disp(parent(1,:));
disp(N);