matlab遗传算法求解选址结合路径优化问题

最新推荐文章于 2024-07-04 17:46:21 发布

张叔zhangshu

最新推荐文章于 2024-07-04 17:46:21 发布

阅读量7.3k

点赞数 11

分类专栏：选址多目标遗传算法

本文链接：https://blog.csdn.net/weixin_46567845/article/details/121678018

版权

遗传算法路径优化多目标优化客户满意度总成本

关键词由CSDN通过智能技术生成

遗传算法同时被 3 个专栏收录

27 篇文章 83 订阅

订阅专栏

选址

5 篇文章 13 订阅

订阅专栏

多目标

4 篇文章 8 订阅

订阅专栏

问题描述：

客户到自提点取货，配送中心配送货物到取货点。客户到自提点取货为选址，配送中心到取货点为路径优化。
目标–1、客户满意度总体最高
2、总成本最小

3、实例
在这里插入图片描述

clc;clear;%%如需帮助 zhangshu2274
tic;
%% 初始化
PopSize=200;%种群大小 
MaxIteration =500;%最大迭代次数
R=50;
load('shuju2');
load('location1')
load('jsfy');
shuju=c101;
cap=900;                                                        %车辆最大装载量
%% 提取数据信息
syzb=shuju(:,2:3);
zb=shuju(1:9,2:3);
sanjizb=shuju(10:end,2:3);                                       %所有点的坐标x和y
erjizb=zb(2:end,:);                                       %顾客坐标
cusnum=size(erjizb,1);                                         %顾客数
v_num=2;                                                        %f分界点
ejdemands=shuju(2:9,4);
sjdemands=shuju(10:end,4);
%% 遗传算法参数设置
alpha=10000;                                                       %违反的容量约束的惩罚函数系数
N=cusnum+v_num;                                %染色体长度=顾客数目+车辆最多使用数目-1
V=N;
M=2;
pc=0.8;pm=0.9;
%% 初始化种群
chromosome(:,1:N)=InitPop(PopSize,N);
[VC,NV]=decode(chromosome(1,:),cusnum);
%%
chromosome(:,V+1:V+2)=calObj(chromosome,cusnum,cap,ejdemands,sjdemands,location1,alpha,jsfy);             %计算种群目标函数值
%%
[chromosome,individual]= non_domination_sort_mod(chromosome,N);%将解分  最后一列为拥挤度 倒数第二列为分级数
index=find(chromosome(:,N+3)==1);
costrep=chromosome(index,N+1:N+2);%第一级即非劣解
%% 主循环
pool = round(PopSize/2);  %突变池规模
for Iteration=1:MaxIteration
    if ~mod(Iteration,10)
        fprintf('current iter:%d\n',Iteration)
        disp([' Number of Repository Particles = ' num2str(size(costrep,1))]);
    end
    parent_chromosome = selection_individuals(chromosome,pool,2);
    parent_var=parent_chromosome(:,1:N);%分离出解向量
    %% 交叉
    offspring_var=[];offspring_cost=[];
    for ic=1:pool/2
        m1=randi(pool);%选出交叉向量
        m2=randi(pool);
        while m1==m2
            m1=randi(pool);
        end
        scro(1,:)=parent_var(m1,:);
        scro(2,:)=parent_var(m2,:);
        if rand<pc
            c1=randi(N);%选出交叉位置
            c2=randi(N);
            while c1==c2
                c1=randi(N);
            end
            chb1=min(c1,c2);
            chb2=max(c1,c2);
            
            middle=scro(1,chb1+1:chb2);
            scro(1,chb1+1:chb2)=scro(2,chb1+1:chb2);
            scro(2,chb1+1:chb2)=middle;
            for i=1:chb1
                while find(scro(1,chb1+1:chb2)==scro(1,i))
                    zhi=find(scro(1,chb1+1:chb2)==scro(1,i));
                    y=scro(2,chb1+zhi);
                    scro(1,i)=y;
                end
                while find(scro(2,chb1+1:chb2)==scro(2,i))
                    zhi=find(scro(2,chb1+1:chb2)==scro(2,i));
                    y=scro(1,chb1+zhi);
                    scro(2,i)=y;
                end
            end
            for i=chb2+1:N
                while find(scro(1,1:chb2)==scro(1,i))
                    zhi=find(scro(1,1:chb2)==scro(1,i));
                    y=scro(2,zhi);
                    scro(1,i)=y;
                end
                while find(scro(2,1:chb2)==scro(2,i))
                    zhi=find(scro(2,1:chb2)==scro(2,i));
                    y=scro(1,zhi);
                    scro(2,i)=y;
                end
            end
        end
        if rand<pm%逆序变异
            m1=randi(N);
            m2=randi(N);
            while m1==m2
                m1=randi(N);
            end
            loc1=min(m1,m2);loc2=max(m1,m2);
            scro(1,loc1:loc2)=fliplr(scro(1,loc1:loc2));
            %             tt=scro(1,m2);
            %             scro(1,m2)=scro(1,m1);
            %             scro(1,m1)=tt;
        end
        if rand<pm%对换变异
            m1=randi(N);
            m2=randi(N);
            while m1==m2
                m1=randi(N);
            end
            tt=scro(2,m2);
            scro(2,m2)=scro(2,m1);
            scro(2,m1)=tt;
        end
        
        [VC,NV]=decode(scro(1,:),cusnum);
        if size(VC)==0
            scro(1,:)=parent_var(m1,:);
        end
           [VC,NV]=decode(scro(2,:),cusnum);
        if size(VC)==0
            scro(2,:)=parent_var(m2,:);
        end
        scro_cost(1,:)=calObj(scro(1,:),cusnum,cap,ejdemands,sjdemands,location1,alpha,jsfy);
%         scro_cost(1,:)=costfunction(scro(1,:),location1,location2);
scro_cost(2,:)=calObj(scro(2,:),cusnum,cap,ejdemands,sjdemands,location1,alpha,jsfy);
%         scro_cost(2,:)=costfunction(scro(2,:),location1,location2);
        offspring_var=[offspring_var;scro];%解
        offspring_cost=[offspring_cost;scro_cost];%适应度
        
    end
    offspring_chromosome(:,1:V)=offspring_var;
    offspring_chromosome(:,V+1:V+M)=offspring_cost;
    
    main_pop = size(chromosome,1);
    offspring_pop = size(offspring_chromosome,1);
    intermediate_chromosome(1:main_pop,:) = chromosome;
    intermediate_chromosome(main_pop + 1 :main_pop + offspring_pop,1 : M+V) = ...
        offspring_chromosome;
    intermediate_chromosome = ...
        non_domination_sort_mod(intermediate_chromosome,N);
    %% 选择
    
    chromosome = replace_chromosome(intermediate_chromosome,PopSize,N);
    
    
    index=find(intermediate_chromosome(:,N+3)==1);
    costrep=intermediate_chromosome(index,N+1:N+2);
    cost=intermediate_chromosome(:,N+1:N+2);
        if ~mod(Iteration,1)
    
            figure (1)
            plot(costrep(:,1),costrep(:,2),'r*',cost(:,1),cost(:,2),'kx');
            xlabel('成本');ylabel('满意度');
            title(strcat('Interaction ',num2str(Iteration), ' Pareto non-dominated solutions'));
        end
    if ~mod(Iteration,MaxIteration)
        fun_pf=costrep;
        [fun_pf,~]=sortrows(fun_pf,1);
        plot(fun_pf(:,1),fun_pf(:,2),'k*-');
        title(strcat('Interaction ',num2str(Iteration), ' Pareto non-dominated solutions'));
        hold on;
        grid on;
    end
end

%% 假设选择第一个解作为最优解
[VC,NV]=decode(chromosome(1,1:N),cusnum)
 [cost1,cost2,zzl]=costFuction(VC,NV,jsfy,ejdemands,sjdemands,location1,cap,alpha);
 [myd,d,b]=manyidu(location1,VC)
 %%
figure
hold on;box on
title('最优配送方案路线图')
hold on;
 for i=2:size(syzb,1)
    text(syzb(i,1),syzb(i,2),num2str(i-1),'color',[1,0,0]);
end
 plot(zb(:,1),zb(:,2),'ro','linewidth',1);hold on;
 plot(zb(1,1),zb(1,2),'s','linewidth',2,'MarkerEdgeColor','b','MarkerFaceColor','b','MarkerSize',10);hold on
  plot(sanjizb(:,1),sanjizb(:,2),'ko','linewidth',1);hold on;
 D=size(d,2);
%   C=linspecer(D);
  DD=size(VC,1)+D;
  C=linspecer(DD);
  CC=size(VC,1);
  %%
 for i=1:CC
      part_seq=VC{i}; 
         len=length(part_seq);  
         for j=0:len
        %当j=0时，车辆从配送中心出发到达该路径上的第一个门店
        if j==0
            fprintf('%s','配送路线',num2str(i),'：');
            fprintf('%d->',0);
            c1=zb(part_seq(1)+1,:);
            plot([zb(1,1),c1(1)],[zb(1,2),c1(2)],'-','color',C(i,:),'linewidth',1);
        %当j=len时，车辆从该路径上的最后一个门店出发到达配送中心
        elseif j==len
            fprintf('%d->',part_seq(j));
            fprintf('%d',0);
            fprintf('\n');
            c_len=zb(part_seq(len)+1,:);
            plot([c_len(1),zb(1,1)],[c_len(2),zb(1,2)],'-','color',C(i,:),'linewidth',1);
        %否则，车辆从路径上的前一个门店到达该路径上紧邻的下一个门店
        else
            fprintf('%d->',part_seq(j));
            c_pre=zb(part_seq(j)+1,:);
            c_lastone=zb(part_seq(j+1)+1,:);
            plot([c_pre(1),c_lastone(1)],[c_pre(2),c_lastone(2)],'-','color',C(i,:),'linewidth',1);
        end
    end
 end
%%

%   j=0;
%   for i=1:D
 for j=1:40
%      part_seq=VC{i};
%          len=length(part_seq); 
%          j=j+1;
       
%          for j=1:len
            c_pre=zb(d(b(j))+1,:);
            c_lastone=sanjizb(j,:);
            
            plot([c_pre(1),c_lastone(1)],[c_pre(2),c_lastone(2)],'-','color',C(b(j)+size(VC,1),:),'linewidth',1);
         
%         end
    end