输入Excel文件，遗传算法解决旅行商问题 matlab

好的，这是一个关于遗传算法解决旅行商问题的 Matlab 代码示例，可以读取 Excel 文件作为输入数据：

% 遗传算法解决旅行商问题
% 读取Excel文件数据
data = xlsread('filename.xlsx');
n = size(data,1);
D = zeros(n,n); % 距离矩阵
for i = 1:n
    for j = 1:n
        D(i,j) = sqrt((data(i,1)-data(j,1))^2 + (data(i,2)-data(j,2))^2);
    end
end

% 遗传算法参数设置
popsize = 100; % 种群大小
maxGen = 500; % 最大迭代次数
pc = 0.9; % 交叉概率
pm = 0.01; % 变异概率

% 初始化种群
pop = zeros(popsize,n);
for i = 1:popsize
    pop(i,:) = randperm(n);
end

% 计算适应度函数
fitness = zeros(popsize,1);
for i = 1:popsize
    fitness(i) = tspfun(pop(i,:),D);
end

% 迭代更新种群
bestfit = inf;
besttour = [];
for i = 1:maxGen
    % 选择操作
    [pop,fitness] = selection(pop,fitness);

    % 交叉操作
    pop = crossover(pop,pc);

    % 变异操作
    pop = mutation(pop,pm);

    % 计算适应度函数
    fitness = zeros(popsize,1);
    for j = 1:popsize
        fitness(j) = tspfun(pop(j,:),D);
    end

    % 记录每次迭代的最优解
    [fmin,index] = min(fitness);
    if fmin < bestfit
        bestfit = fmin;
        besttour = pop(index,:);
    end

    % 输出每次迭代的结果
    fprintf('Generation %d: %f\n',i,bestfit);
end

% 输出最优解
fprintf('Best tour: ');
disp(besttour);
fprintf('Best fitness: %f\n',bestfit);

% 画出最优路径图像
figure;
plot(data(:,1),data(:,2),'o');
hold on;
for i = 1:n-1
    x = [data(besttour(i),1),data(besttour(i+1),1)];
    y = [data(besttour(i),2),data(besttour(i+1),2)];
    plot(x,y,'r-');
end
x = [data(besttour(n),1),data(besttour(1),1)];
y = [data(besttour(n),2),data(besttour(1),2)];
plot(x,y,'r-');
hold off;

其中 `filename.xlsx` 是你的 Excel 文件名，`tspfun` 函数计算旅行商问题的适应度函数。