本站内容均来自兴趣收集,如不慎侵害的您的相关权益,请留言告知,我们将尽快删除.谢谢.
【路径规划】基于matlab改进的遗传算法求解送取货且带时间窗的车辆调度路径规划问题【含Matlab源码 1083期】
一、简介
1 遗传算法概述 遗传算法（Genetic Algorithm，GA）是进化计算的一部分，是模拟达尔文的遗传选择和自然淘汰的生物进化过程的计算模型，是一种通过模拟自然进化过程搜索最优解的方法。该算法简单、通用，鲁棒性强，适于并行处理。
2 遗传算法的特点和应用 遗传算法是一类可用于复杂系统优化的具有鲁棒性的搜索算法，与传统的优化算法相比，具有以下特点： （1）以决策变量的编码作为运算对象。传统的优化算法往往直接利用决策变量的实际值本身来进行优化计算，但遗传算法是使用决策变量的某种形式的编码作为运算对象。这种对决策变量的编码处理方式，使得我们在优化计算中可借鉴生物学中染色体和基因等概念，可以模仿自然界中生物的遗传和进化激励，也可以很方便地应用遗传操作算子。 （2）直接以适应度作为搜索信息。传统的优化算法不仅需要利用目标函数值，而且搜索过程往往受目标函数的连续性约束，有可能还需要满足“目标函数的导数必须存在”的要求以确定搜索方向。遗传算法仅使用由目标函数值变换来的适应度函数值就可确定进一步的搜索范围，无需目标函数的导数值等其他辅助信息。直接利用目标函数值或个体适应度值也可以将搜索范围集中到适应度较高部分的搜索空间中，从而提高搜索效率。 （3）使用多个点的搜索信息，具有隐含并行性。传统的优化算法往往是从解空间的一个初始点开始最优解的迭代搜索过程。单个点所提供的搜索信息不多，所以搜索效率不高，还有可能陷入局部最优解而停滞；遗传算法从由很多个体组成的初始种群开始最优解的搜索过程，而不是从单个个体开始搜索。对初始群体进行的、选择、交叉、变异等运算，产生出新一代群体，其中包括了许多群体信息。这些信息可以避免搜索一些不必要的点，从而避免陷入局部最优，逐步逼近全局最优解。 （4） 使用概率搜索而非确定性规则。传统的优化算法往往使用确定性的搜索方法，一个搜索点到另一个搜索点的转移有确定的转移方向和转移关系，这种确定性可能使得搜索达不到最优店，限制了算法的应用范围。遗传算法是一种自适应搜索技术，其选择、交叉、变异等运算都是以一种概率方式进行的，增加了搜索过程的灵活性，而且能以较大概率收敛于最优解，具有较好的全局优化求解能力。但，交叉概率、变异概率等参数也会影响算法的搜索结果和搜索效率，所以如何选择遗传算法的参数在其应用中是一个比较重要的问题。 综上，由于遗传算法的整体搜索策略和优化搜索方式在计算时不依赖于梯度信息或其他辅助知识，只需要求解影响搜索方向的目标函数和相应的适应度函数，所以遗传算法提供了一种求解复杂系统问题的通用框架。它不依赖于问题的具体领域，对问题的种类有很强的鲁棒性，所以广泛应用于各种领域，包括：函数优化、组合优化生产调度问题、自动控制 、机器人学、图像处理（图像恢复、图像边缘特征提取……)、人工生命、遗传编程、机器学习。
3 遗传算法的基本流程及实现技术 基本遗传算法（Simple Genetic Algorithms,SGA）只使用选择算子、交叉算子和变异算子这三种遗传算子，进化过程简单，是其他遗传算法的基础。
3.1 遗传算法的基本流程 通过随机方式产生若干由确定长度（长度与待求解问题的精度有关）编码的初始群体； 通过适应度函数对每个个体进行评价，选择适应度值高的个体参与遗传操作，适应度低的个体被淘汰； 经遗传操作（复制、交叉、变异）的个体集合形成新一代种群，直到满足停止准则（进化代数GEN>=?）； 将后代中变现最好的个体作为遗传算法的执行结果。 
其中，GEN是当前代数；M是种群规模，i代表种群数量。
3.2 遗传算法的实现技术 基本遗传算法（SGA）由编码、适应度函数、遗传算子（选择、交叉、变异）及运行参数组成。 3.2.1 编码 （1）二进制编码 二进制编码的字符串长度与问题所求解的精度有关。需要保证所求解空间内的每一个个体都可以被编码。 优点：编、解码操作简单，遗传、交叉便于实现 缺点：长度大 （2）其他编码方法 格雷码、浮点数编码、符号编码、多参数编码等 3.2.2 适应度函数 适应度函数要有效反映每一个染色体与问题的最优解染色体之间的差距。 3.2.3选择算子 
3.2.4 交叉算子 交叉运算是指对两个相互配对的染色体按某种方式相互交换其部分基因，从而形成两个新的个体；交叉运算是遗传算法区别于其他进化算法的重要特征，是产生新个体的主要方法。在交叉之前需要将群体中的个体进行配对，一般采取随机配对原则。 常用的交叉方式： 单点交叉 双点交叉（多点交叉，交叉点数越多，个体的结构被破坏的可能性越大，一般不采用多点交叉的方式） 均匀交叉 算术交叉 3.2.5 变异算子 遗传算法中的变异运算是指将个体染色体编码串中的某些基因座上的基因值用该基因座的其他等位基因来替换，从而形成一个新的个体。
就遗传算法运算过程中产生新个体的能力方面来说，交叉运算是产生新个体的主要方法，它决定了遗传算法的全局搜索能力；而变异运算只是产生新个体的辅助方法，但也是必不可少的一个运算步骤，它决定了遗传算法的局部搜索能力。交叉算子与变异算子的共同配合完成了其对搜索空间的全局搜索和局部搜索，从而使遗传算法能以良好的搜索性能完成最优化问题的寻优过程。
3.2.6 运行参数 
4 遗传算法的基本原理 4.1 模式定理 
4.2 积木块假设 具有低阶、定义长度短，且适应度值高于群体平均适应度值的模式称为基因块或积木块。 积木块假设：个体的基因块通过选择、交叉、变异等遗传算子的作用，能够相互拼接在一起，形成适应度更高的个体编码串。 积木块假设说明了用遗传算法求解各类问题的基本思想，即通过积木块直接相互拼接在一起能够产生更好的解。
二、源代码
clear all;
clc;
format short g;
global D;
global q;
global q1;
global ss;
global E;
global L;
global ELL;
% test=xlsread('test.xlsx',1);
%
% position=test(:,2:3);
% data=[
% 100 100 0 0 0 40
% 60 100 10 0.2 0 3
% 20 110 15 0.3 0 4
% 160 150 21 0.3 1 6
% 160 110 16 0.4 0 4
% 30 20 25 0.3 1 4
% 100 60 22 0.2 0 6
% 100 170 15 0.1 0 5
% 30 10 12 0.4 0 6
% 60 50 15 0.3 1 7
% 160 160 20 0.2 0 6
% 50 140 23 0.3 0 6];
position=[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];
% 配送中心及各个需求点之间的距离矩阵D
D=squareform(pdist(position(:,1:2),'euclidean'));
% 车辆的单位行驶成本: h
% 动用每辆车的固定成本：R.
% 车辆的行驶速度v;
% 车辆的最大装载量 Qmax。
h=1;R=10;v=1;Qmax=200;epsilon=0.001;
R0=2;R1=0.8;
% 车辆在配送中心及各个需求点之间行驶的时间矩阵 T
T=D/v;
% 最大迭代次数
Iter=30;
% 水滴个数N
N=size(position,1);
% 速度更新参数：
av=1;bv=0.01;cv=1;
% 泥土量更新参数：
as=1;bs=0.01;cs=1;
% 局部泥土更新权系数
alpha=0.9;
% 全局泥土更新权系数
beta=0.9;
% 任意两点间的初始泥土量 Initsoil
Initsoil=1000;
% 初始泥土量矩阵W ???
W=ones(N)*1000;
% 每个水滴的初始速度InitVel；
% InitVel=100;
InitVel=randperm(100,1);
% 全局最优目标函数值
TotalZ=1000000;
% 全局最优路径
TotalRoute=[];
% 主程序
t=0;
WaterDrop(1,N)=struct('SW',[],... % 水滴对应的初始泥土量矩阵
'Source',[],... % 水滴的出发点为1; 即配送中心
'Target',[],... %
'VisitNode',[],... % 已访问过的点序列 (访问路径)
'UnvisitNode',[],... % 未访问过的点的集合
'Vel',[],... % 水滴的初始速度
'Soil',[],... % 水滴携带的初始泥土量
'Q',[],... % 水滴出发时的装载量
'S',[],... % 水滴到达source(k)点的时刻
'ZZ',[],... %水滴对应的目标函数初始值
'FK',[]); % 从source(k)出发可以去的下一个需求点的集合 FV
% q=test(:,4); % 每个需求点的需求量
% q1=TestData(:,5);
q=[0 6 5 11 6 3 8 5 6 4 5 7 6 10 9 4 7 8 ]';
% q1=[0 3.6 24.63.62.44.83 3.6 2.4 34.23.64 5.4 2.6 2.4 3]';
% ss=test(:,7); % 每个需求点的服务时间
ss=[0 1.8 1.0 2.3 1.8 1.2 2.4 1.5 1.8 1.2 1.5 2.1 1.8 2.0 2.7 1.3 1.2 1.5]';
E=[0 5.0 4 1 2.0 5 2 1 3 1 2 2.0 2 3 2 3 2 1]';
L=[40 20 15 20 20 15 18 24 27 20 16 20 10 25 28 24.0 20 23]';
%
% E=test(:,5); % 每个需求点的时间窗下限
% L=test(:,6); % 每个需求点的时间窗上限
ELL=L-E;
% EP=test(:,8);
% LP=test(:,9);
I=1:N;
while t < Iter
clc
fprintf('第%d次进化
',t+1) ;
% 设置初始动态变量：
% 本次迭代的最优目标函数值
Z=1000000;
% 本次迭代的最优路径
Route=[];
for k=1:N
WaterDrop(k).SW=W;
WaterDrop(k).Source=1;
WaterDrop(k).VisitNode=[1];
WaterDrop(k).UnvisitNode=I;
WaterDrop(k).Vel= InitVel;
% 水滴携带的初始泥土量
WaterDrop(k).Soil=0;
% 水滴出发时的装载量
WaterDrop(k).Q(WaterDrop(k).Source)=0;
% 水滴到达source(k)点的时刻；
WaterDrop(k).S(WaterDrop(k).Source)=0;
% 第k个水滴对应的目标函数初始值
WaterDrop(k).ZZ=0;
end
for k=1:N
while WaterDrop(k).Source~=1 || ~isequal(WaterDrop(k).UnvisitNode,[1])
WaterDrop(k).FK=[];
if WaterDrop(k).Source==1
alt=2;
else
alt=1;
end
for i=alt:length(WaterDrop(k).UnvisitNode)
WaterDrop(k).Q(WaterDrop(k).UnvisitNode(i))=WaterDrop(k).Q(WaterDrop(k).Source)+q(WaterDrop(k).UnvisitNode(i));
% 判断i点的载重量是否小于车辆最大载重且到达i点的时间是否在i点所要求的时间窗内
if WaterDrop(k).Q(WaterDrop(k).UnvisitNode(i))<Qmax;
WaterDrop(k).FK=[WaterDrop(k).FK,WaterDrop(k).UnvisitNode(i)];
end
end
% for i=alt:N
% if ismember(i,WaterDrop(k).UnvisitNode)
% % if sum(ismember(WaterDrop(k).UnvisitNode,i))
% WaterDrop(k).Q(i)=WaterDrop(k).Q(WaterDrop(k).Source)+q(i);
% WaterDrop(k).S(i)=WaterDrop(k).S(WaterDrop(k).Source)+ss(WaterDrop(k).Source)+T(WaterDrop(k).Source,i);
% % 判断i点的载重量是否小于车辆最大载重且到达i点的时间是否在i点所要求的时间窗内
% if WaterDrop(k).Q(i)<Qmax && WaterDrop(k).S(i)>=E(i) && WaterDrop(k).S(i)<=L(i)
% WaterDrop(k).FK=[WaterDrop(k).FK,i];
% end
% end
% end
if isempty(WaterDrop(k).FK)
WaterDrop(k).Target=1;
else
% 计算去下一个可以服务的需求点的概率
% 判断从source(k)到下一个可以服务的需求点的路径上泥土量的最小值是否小于0
Minsoil=0;
for u=1:length(WaterDrop(k).FK)
if WaterDrop(k).SW(WaterDrop(k).Source,WaterDrop(k).FK(u))<Minsoil
Minsoil=WaterDrop(k).SW(WaterDrop(k).Source,WaterDrop(k).FK(u));
end
end
% 求下一个可以服务需求点对应的函数f之和（可以增加改进，调整节点选择概率）
SumF=0;
for u=1:length(WaterDrop(k).FK)
g(WaterDrop(k).Source,WaterDrop(k).FK(u))=WaterDrop(k).SW(WaterDrop(k).Source,WaterDrop(k).FK(u))-Minsoil;
f(WaterDrop(k).Source,WaterDrop(k).FK(u))=1/(0.01+g(WaterDrop(k).Source,WaterDrop(k).FK(u)));
SumF=SumF+f(WaterDrop(k).Source,WaterDrop(k).FK(u));
end
% 求可以服务需求点对应的概率
P=[];
U=[];
for u=1:length(WaterDrop(k).FK)
P=[P,f(WaterDrop(k).Source,WaterDrop(k).FK(u))/SumF];
U=[U,WaterDrop(k).FK(u)];
end
% 按照概率P(source(k),u), 用轮盘赌法从FV(k) 集合中随机选择一个点
WaterDrop(k).Target=U(RoutedGame(P));
end
% 更新水滴的速度
WaterDrop(k).Vel=WaterDrop(k).Vel+av/(bv+cv*WaterDrop(k).SW(WaterDrop(k).Source,WaterDrop(k).Target)^2);
Maxtime=max(epsilon,WaterDrop(k).Vel);
% 计算水滴流动到目标点需要的时间
TT(WaterDrop(k).Source,WaterDrop(k).Target)=D(WaterDrop(k).Source,WaterDrop(k).Target)/Maxtime;
% 计算水滴携带泥土的增量
DeltaSW(WaterDrop(k).Source,WaterDrop(k).Target)= as/(bs+cs*TT(WaterDrop(k).Source,WaterDrop(k).Target)^2);
% 更新水滴流过的路径上的泥土量
WaterDrop(k).SW(WaterDrop(k).Source,WaterDrop(k).Target)=...
(1-alpha)*WaterDrop(k).SW(WaterDrop(k).Source,WaterDrop(k).Target)-alpha*DeltaSW(WaterDrop(k).Source,WaterDrop(k).Target);
% 更新水滴携带的泥土量
WaterDrop(k).Soil=WaterDrop(k).Soil+DeltaSW(WaterDrop(k).Source,WaterDrop(k).Target);
% %早到晚到惩罚系数
% cfe1=0;
% cfe2=0;
% cfe0=0;
WaterDrop(k).S(WaterDrop(k).Target)=WaterDrop(k).S(WaterDrop(k).Source)+ss(WaterDrop(k).Source)+T(WaterDrop(k).Source,WaterDrop(k).Target);
% if WaterDrop(k).S(WaterDrop(k).Target)<E
% cfe1=EP(WaterDrop(k).Target)*abs(E-WaterDrop(k).Target);
% elseif WaterDrop(k).S(WaterDrop(k).Target)>L
% cfe1=LP(WaterDrop(k).Target)*abs(WaterDrop(k).Target-L);
% end
% cfe0=cfe1+cfe2;
if WaterDrop(k).Target==1
% （有序集合）配送车辆返回配送中心
WaterDrop(k).VisitNode=[WaterDrop(k).VisitNode,WaterDrop(k).Target];
% 目标函数中增加动用一辆车的固定成本（表示形成了一辆车的回路）
WaterDrop(k).ZZ=WaterDrop(k).ZZ+h*D(WaterDrop(k).Source,WaterDrop(k).Target)+D(WaterDrop(k).Source,WaterDrop(k).Target)*(R0+R1*(q(WaterDrop(k).Target)))+R;
WaterDrop(k).Source=WaterDrop(k).Target;
WaterDrop(k).Q(WaterDrop(k).Source)=0;
WaterDrop(k).S(WaterDrop(k).Source)=0;
三、运行结果
四、备注
版本：2014a
Be First to Comment