vrp基于matlab遗传算法求解多车辆路径规划问题含matlab源码1249期(代码片段)

一、VRP简介

1 VRP基本原理
车辆路径规划问题(Vehicle Routing Problem，VRP)是运筹学里重要的研究问题之一。VRP关注有一个供货商与K个销售点的路径规划的情况，可以简述为：对一系列发货点和收货点，组织调用一定的车辆，安排适当的行车路线，使车辆有序地通过它们，在满足指定的约束条件下（例如：货物的需求量与发货量，交发货时间，车辆容量限制，行驶里程限制，行驶时间限制等），力争实现一定的目标（如车辆空驶总里程最短，运输总费用最低，车辆按一定时间到达，使用的车辆数最小等）。
VRP的图例如下所示：

2 问题属性与常见问题
车辆路径问题的特性比较复杂，总的来说包含四个方面的属性：
（1）地址特性包括：车场数目、需求类型、作业要求。
（2）车辆特性包括：车辆数量、载重量约束、可运载品种约束、运行路线约束、工作时间约束。
（3）问题的其他特性。
（4）目标函数可能是总成本极小化，或者极小化最大作业成本，或者最大化准时作业。

3 常见问题有以下几类：
（1）旅行商问题
（2）带容量约束的车辆路线问题(CVRP)



该模型很难拓展到VRP的其他场景,并且不知道具体车辆的执行路径，因此对其模型继续改进。



（3）带时间窗的车辆路线问题
由于VRP问题的持续发展，考虑需求点对于车辆到达的时间有所要求之下，在车辆途程问题之中加入时窗的限制，便成为带时间窗车辆路径问题（VRP with Time Windows, VRPTW）。带时间窗车辆路径问题（VRPTW）是在VRP上加上了客户的被访问的时间窗约束。在VRPTW问题中，除了行驶成本之外, 成本函数还要包括由于早到某个客户而引起的等待时间和客户需要的服务时间。在VRPTW中，车辆除了要满足VRP问题的限制之外，还必须要满足需求点的时窗限制，而需求点的时窗限制可以分为两种，一种是硬时窗（Hard Time Window），硬时窗要求车辆必须要在时窗内到达，早到必须等待，而迟到则拒收；另一种是软时窗（Soft Time Window），不一定要在时窗内到达，但是在时窗之外到达必须要处罚，以处罚替代等待与拒收是软时窗与硬时窗最大的不同。


模型2(参考2017 A generalized formulation for vehicle routing problems)：
该模型为2维决策变量



（4）收集和分发问题
（5）多车场车辆路线问题
参考(2005 lim，多车场车辆路径问题的遗传算法_邹彤, 1996 renaud)

由于车辆是同质的，这里的建模在变量中没有加入车辆的维度。


（6）优先约束车辆路线问题
（7）相容性约束车辆路线问题
（8）随机需求车辆路线问题

4 解决方案
（1）数学解析法
（2）人机交互法
（3）先分组再排路线法
（4）先排路线再分组法
（5）节省或插入法
（6）改善或交换法
（7）数学规划近似法
（8）启发式算法

5 VRP与VRPTW对比

二、遗传算法简介

1 引言


2 遗传算法理论
2.1 遗传算法的生物学基础


2.2 遗传算法的理论基础




2.3 遗传算法的基本概念






2.4 标准的遗传算法


2.5 遗传算法的特点


2.6 遗传算法的改进方向

3 遗传算法流程



4 关键参数说明

三、部分源代码

clear
clc
close all
dmax=40;                      %单车的最大行驶距离
qmax=30;                      %单车的最大货物携带量
c0=10;                        %单车的出发成本
c1=1;                         %单车的行驶成本
X=[18.70,15.29
    16.47,8.45
    20.07,10.14
    19.39,13.37
    25.27,14.24
    22.00,10.04
    25.47,17.02
    15.79,15.10
    16.60,12.38
    14.05,18.12
    17.53,17.38
    23.52,13.45
    19.41,18.13
    22.11,12.51
    11.25,11.04
    14.17,9.76
    24.00,19.89
    12.21,14.50];
Q=[0 3.0 2.5 5.5 3.0 1.5 4.0 2.5 3.0 2.0 2.5 3.5 3.0 5.0 4.5 2.0 3.5 4.0];
NIND=100;                     %种群大小
MAXGEN=200;
Pc=0.9;                       %交叉概率
Pm=0.05;                      %变异概率
GGAP=0.9;                     %代沟
D=Distance(X);                %生成距离矩阵
N=size(D,1);                  %客户点数
K=10;                         %初始的车辆数
%生成初始种群
Chrom=InitPop(NIND,N,K);
%优化
gen=1;
figure(1);
hold on;
box on;
xlim([0,MAXGEN])
title('优化过程')
xlabel('代数')
ylabel('最优值')
ObjV = PathCost(Chrom,Q,D,dmax,qmax,c1,c0,K);                  %计算总花费
[preObjV,BestIndex] = min(ObjV);                               %找出最小的花费
BestChrom = Chrom(BestIndex,:);

while gen<MAXGEN
    %计算适应度
    ObjV=PathCost(Chrom,Q,D,dmax,qmax,c1,c0,K);
    line([gen-1,gen],[preObjV,min(ObjV)]);pause(0.001)
    [preObjV,BestIndex]=min(ObjV);
    BestObjV(gen)=preObjV;
    AveObjV(gen)=sum(ObjV)/NIND;
    BestChrom(gen,:) = Chrom(BestIndex,:);
    
    FitnV = Fitness(ObjV);
    %选择
    SelCh1 = Select(Chrom,FitnV,GGAP);
    %交叉
    SelCh2 = Recombin(SelCh1,Pc);
     %变异
    SelCh3 = Mutate(SelCh2,Pm);
    %逆转操作
    SelCh4 = Reverse(SelCh3,D,Q,dmax,qmax,c1,c0,K);
    %重新插入新的种群
    Chrom =Reins(Chrom,SelCh4,ObjV);
    gen = gen+1;
end
%画出最优解的路线图
ObjV=PathCost(Chrom,Q,D,dmax,qmax,c1,c0,K);
[minObjV,minInd]=min(ObjV);
DrawPath(Chrom(minInd(1),:),X);
%输出最优解
disp('最优服务顺序:')
p=OutputPath(Chrom(minInd(1),:));
disp(['总花费：',num2str(minObjV)]);
s=0;
R=Chrom(minInd(1),:);
for i=1:size(R,2)-1
    s=s+D(R(i),R(i+1));
end
disp(['总里程：',num2str(s)]);
function NewChrIx=Sus(FitnV,Nsel)
%%随机遍历抽样
%输入
%FitnV 适应度值，列向量
%Nsel  被选择个体的数目
%输出
%NewChrIx 被选择个体的索引号
[Nind,ans]=size(FitnV);
cumfit = cumsum(FitnV);
trials = cumfit(Nind)/Nsel*(rand+(0:Nsel-1)');
Mf=cumfit(:,ones(1,Nsel));
Mt=trials(:,ones(1,Nind))';
[NewChrIx,ans]=find(Mt<Mf&[zeros(1,Nsel);Mf(1:Nind-1,:)]<=Mt);
[ans,shut]=sort(rand(Nsel,1));
NewChrIx=NewChrIx(shut);
function varargout = dsxy2figxy(varargin)
if length(varargin1) == 1 && ishandle(varargin1) ...
                            && strcmp(get(varargin1,'type'),'axes')   
    hAx = varargin1;
    varargin = varargin(2:end);
else
    hAx = gca;
end;
if length(varargin) == 1
    pos = varargin1;
else
    [x,y] = deal(varargin:);
end
axun = get(hAx,'Units');
set(hAx,'Units','normalized'); 
axpos = get(hAx,'Position');
axlim = axis(hAx);
axwidth = diff(axlim(1:2));
axheight = diff(axlim(3:4));
if exist('x','var')
    varargout1 = (x - axlim(1)) * axpos(3) / axwidth + axpos(1);
    varargout2 = (y - axlim(3)) * axpos(4) / axheight + axpos(2);
else
    pos(1) = (pos(1) - axlim(1)) / axwidth * axpos(3) + axpos(1);
    pos(2) = (pos(2) - axlim(3)) / axheight * axpos(4) + axpos(2);
    pos(3) = pos(3) * axpos(3) / axwidth;
    pos(4) = pos(4) * axpos(4 )/ axheight;
    varargout1 = pos;
end
set(hAx,'Units',axun)
function DrawPath(Chrom,X)
%%画路线图函数
%输入
%Chrom   待画路线
%X       各服务点的坐标位置

R=Chrom;
figure;
hold on
plot(X(:,1),X(:,2),'o','color',[0.5,0.5,0.5])
plot(X(Chrom(1,1),1),X(Chrom(1,1),2),'rv','MarkerSize',20)
for i=1:size(X,1)
    text(X(i,1)+0.05,X(i,2)+0.05,num2str(i),'color',[1,0,0]);
end
A=X(R,:);
row=size(A,1);
for i=2:row
    [arrowx,arrowy]=dsxy2figxy(gca,A(i-1:i,1),A(i-1:i,2));
    annotation('textarrow',arrowx,arrowy,'HeadWidth',8,'color',[0,0,1]);
end
hold off
xlabel('横坐标')
ylabel('纵坐标')
title('轨迹图')
box on

四、运行结果

五、matlab版本及参考文献

1 matlab版本
2014a

2 参考文献
[1] 包子阳,余继周,杨杉.智能优化算法及其MATLAB实例（第2版）[M].电子工业出版社，2016.
[2]张岩,吴水根.MATLAB优化算法源代码[M].清华大学出版社，2017.