【DCTWVRP】基于matlab遗传算法求解带容量+距离+距离的VRP问题【含Matlab源码 1211期】

一、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 all
close all
clc
tic
%% 基础参数输入
NIND=100;             %种群大小
MAXGEN=200;          %遗传代数
GGAP=0.9;            %代沟
Pc=0.75;             %交叉概率
Pm=0.1;             %变异概率
const=20;            %客户个数
X=[3.2,14.1;3.8,5.5;15.2,10.9;18.6,12.9;11.9,8.2;10.2,9.5;5.3,9.6;0.6,9.9;6.1,18.0;7.6,19.2
    16.0,15.7;15.3,15.2;1.6,14.7;9.0,9.2;5.4,13.3;7.8,10.0;18.6,7.8;14.5,4.3;15.0,18.7;9.8,5.0;1.4,6.9];   %需求点位置坐标,1号点为出发点
carload_min=3;                %小型车的载重限制
demand=[0.8,0.6,0.4,1.4,0.8,0.6,1.9,1.3,1.8,1.5,0.4,1.6,1.1,1.6,1.0,0.8,1.4,1.2,0.4,1.4];           %服务点需求
D=Distanse(X);
%% 种群初始化
Chrom=zeros(NIND,const);
for i=1:NIND
    Chrom(i,:)=randperm(const);   %种群初始化
end
%% 画出随机解的路径图
[ObjV,route]=PathLength(D,Chrom); %计算路线长度和路径
preObjV=min(ObjV);                %初始种群的最优个体
route_initial=routemake(route,1); %第一个个体的路径
% DrawPath(route_initial,X);
% hold off
% pause(0.0001);
%% 输出随机解的路径和总距离
disp('初始种群中的一个随机值:')
OutputPath(route_initial);
disp(['总成本：',num2str(ObjV(1))]);
disp('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
%% 计算目标函数
%% 优化
gen=0;
MinY=inf;
trace=zeros(MAXGEN,1);
h=waitbar(0,'程序启动中，请等待...');
while gen<MAXGEN
    %% 计算适应度
    [ObjV,route]=PathLength(D,Chrom); %计算路线长度
    %line([gen-1,gen],[preObjV,min(ObjV)]);
    %pause(0.0001)
    %preObjV=min(ObjV);
    % 适应度函数计算
    FitnV=Fitness(ObjV);
    % 选择
    SelCh=Select(Chrom,FitnV,GGAP);
    % 交叉操作
    SelCh=Recombin(SelCh,Pc);
    % 变异
    SelCh=Mutate(SelCh,Pm);
    % 逆转操作
    SelCh=Reverse(SelCh,D);
    % 重插入子代的新种群
    Chrom=Reins(Chrom,SelCh,ObjV);
    % 更新迭代次数
    gen=gen+1;
    % 最优解保存
    [minObjV,minInd]=min(ObjV);          %计算最优解
    route_new=routemake(route,minInd);   %最终路径
    if minObjV<MinY
        MinY=minObjV;
        best_route=route_new;
        trace(gen,1)=MinY;
    else
        trace(gen,1)=trace(gen-1,1);
    end
    str=['程序正常运行中，','已迭代',num2str(gen),'次'];
    waitbar(gen/MAXGEN,h,str);
    pause(0.05);
end
%% 绘制
plot(1:gen,trace);
title('优化过程');
xlabel('迭代次数');
ylabel('最优值');
hold off
%% 画出最优解的路线图
[car1_num,car2_num]=car_type(best_route,demand,carload_min);%输出各种车型的数量
Num_car=car1_num+car2_num;
DrawPath(best_route,X);
hold off
%% 输出最优解的路径和总距离
disp('最优解:')
p=OutputPath(route_new);
disp(['总成本：',num2str(minObjV)]);
disp(['车辆分配：','大车',num2str(car1_num),'辆',';','小车',num2str(car2_num),'辆',';']);
disp('------------------------------------');
toc