twvrp基于matlab遗传和模拟退火算法求解带时间窗的取送货问题含matlab源码1139期(代码片段)

一、简介
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 积木块假设
具有低阶、定义长度短，且适应度值高于群体平均适应度值的模式称为基因块或积木块。
积木块假设：个体的基因块通过选择、交叉、变异等遗传算子的作用，能够相互拼接在一起，形成适应度更高的个体编码串。
积木块假设说明了用遗传算法求解各类问题的基本思想，即通过积木块直接相互拼接在一起能够产生更好的解。
二、源代码

function [R,minvalue]=Run_VRP(D,RP,demand,popsize,k,capacity,original,C,Pc,Pm,farm)
%RUN_VRP Summary of this function goes here
%   Detailed explanation goes here

N=size(RP,1);% %N是请求数
%farm
R=farm(1,:);%一个随机解(个体)->用来存放最优解（最短路径）
evalue=zeros(popsize,1);%存储路径长度
alph = 0.9; %退火衰减系数
counter=0;
while counter < C
    for i = 1:popsize
        evalue(i,1) = myEvalue(D,RP,farm(i,:),k,capacity,original,demand); %计算目标函数
    end
    minvalue=min(evalue);%找到当前最优解
    coor=find(evalue==minvalue);%返回的是在len中路径最短的路径在evalue的位置 ；坐标(i,1)
    R=farm(coor(1,1),:);%更新最优解
    if counter == 0 %计算初始退火温度
        t = temp_inatial(evalue,popsize);
    end
    farm = select(farm,evalue,popsize,k,D,RP,capacity,original,demand,t);%模拟退火+轮盘赌->选择
    %farm =crossover(RP,farm,N,k,popsize,Pc);
    %farm = variation(farm,N,k,popsize,Pm);
    for i = 1:popsize
        evalue(i,1) = myEvalue(D,RP,farm(i,:),k,capacity,original,demand); %计算目标函数
    end
    maxvalue=max(evalue);%找到当前最差解
    coor=find(evalue==maxvalue);%返回的是在len中路径最长的路径坐标(i,1)
    farm(coor(1,1),:) = R;%用最优解替代最差解
    counter = counter + 1; %今天怎么了，连这个都忘了，罚做50个俯卧撑
    t = t * alph; %退火降温
end %mainLoop
end %function
a1=find(p_p==0);
p_p(a1)=1;
for i = 1:k
    load(i,1) = original;
end
m = 0;
for i = 1:N-1
    if p(1,i) ==0  %标记车的编号
        m = m + 1;
    end
    cost(m,1) = cost(m,1) + 0.55*D(p_p(i),p_p(i+1))/60000;%注意矩阵角标和节点编码相差1
    time(m,1) =time(m,1)+D(p_p(i),p_p(i+1))/v; %计算每个点的到达时间 
    if p(1,i+1)>=1&&p(1,i+1)<=size(R,1)
       if time(m,1)<Timesetup(p(1,i+1),1)
          time(m,1) = Timesetup(p(1,i+1),1);
       end
    else
       if p(1,i+1)>=size(R,1)+1&&p(1,i+1)<=2*size(R,1)
          if time(m,1)-R(p(1,i+1)-size(R,1),4)/60-1>0  %30指限定服务时间，若超出会产生惩罚费用
             latetime(p(1,i+1)-size(R,1),1)=time(m,1)-R(p(1,i+1)-size(R,1),4)/60-1; 
             cost(m,1)= cost(m,1)+ M2*latetime(p(1,i+1)-size(R,1),1);
          end
       end
    end
    if p(i+1)==0
       load(m,1) = load(m,1) + demand(2*size(R,1)+1,1); 
    else  
       load(m,1) = load(m,1) + demand(p(i+1),1);
    end
    if load(m,1) > capacity
       cost(m,1) = cost(m,1) + M1;
    else
       if load(m,1) < 0
          cost(m,1) = cost(m,1) + M1;
       end
     end
end
for i = 1:k
    evalue
   evalue = evalue + cost(i,1);%这条路径的总费用
end
function evalue = myEvalue( D,R,p,k,capacity,original,demand)
%MYEVALUE Summary of this function goes here
%   Detailed explanation goes here
%   myEvalue( D,p )  D是距离矩阵，p是某个染色体
%***\\\\\\MinZx) = a^Kx) + a^Distix) + a^Waitx)///***
M1 = 1000000; %惩罚系数,惩罚容量限制
M2 = 120;    %惩罚系数,惩罚时间限制
N = size(p,2);  %路径的节点
Timesetup=R(:,4)/60+0.1;%5指取货处准备时间
evalue = 0; 
cost = zeros(k,1)+100;  %存储每辆车的行驶路径长
load = zeros(k,1);  %存储每辆车的载货量
time= zeros(k,1)+0.1;  %滚动时域的时间
latetime=zeros(size(R,1),1);%%储存需要惩罚的迟到时间
v = 50000;  %v是车速,用来把cost函数转化为时间
p_p=zeros(N,1);%存储真实路径

for i=1:N
    if p(1,i)>=1&&p(1,i)<=size(R,1)
       p_p(i,1)= R(p(1,i),2);
    else
        if p(1,i)>=size(R,1)+1&&p(1,i)<=2*size(R,1)
           p_p(i,1)= R(p(1,i)-size(R,1),1);
        end
    end    
end
a1=find(p_p==0);
p_p(a1)=1;
u=0;


for i=1:N
    if p_p(i,1)==1
        u=u+1;
    end
    if u==2
        ibreak = i;
        break;
    end
end
p_1=zeros(1,ibreak);
p_2=zeros(1,N-ibreak+1);
p_1(1,:)=p(1,1:ibreak);
p_1(1,1)=3;
p_2(1,2:N-ibreak+1)=p(1,ibreak+1:N);
p_2(1,1)=1;
p_p_1=zeros(ibreak,1);
p_p_2=zeros(N-ibreak+1,1);
p_p_1(:,1)=p_p(1:ibreak,1);
p_p_1(1,1)=77;
p_p_2(2:N-ibreak+1,1)=p_p(ibreak+1:N,1);
p_p_2(1,1)=76;


m=0;
for j=1:k
    load(j,1) = original;
    if j==1
       p_p_p=p_p_1;
       p_pp=p_1;
    else
        if j==2
             p_p_p=p_p_2;
             p_pp=p_2;
        end   
    end
    m = m + 1;
    for i=1:size(p_p_p)-1
        cost(m,1) = cost(m,1) + 0.55*D(p_p_p(i),p_p_p(i+1))/60000;%注意矩阵角标和节点编码相差1
        time(m,1) =time(m,1)+D(p_p_p(i),p_p_p(i+1))/v; %计算每个点的到达时间 
        if p(1,i+1)>=size(R,1)+1&&p(1,i+1)<=2*size(R,1)
            if time(m,1)-R(p(1,i+1)-size(R,1),4)/60-0.5>0  %30指限定服务时间，若超出会产生惩罚费用
                latetime(p(1,i+1)-size(R,1),1)=time(m,1)-R(p(1,i+1)-size(R,1),4)/60-0.5; 
                cost(m,1)= cost(m,1)+ M2*latetime(p(1,i+1)-size(R,1),1);
             end
        end
    if p(i+1)==0
       load(m,1) = load(m,1) + demand(2*size(R,1)+1,1); 
    else  
       load(m,1) = load(m,1) + demand(p(i+1),1);
    end
    if load(m,1) > capacity
       cost(m,1) = cost(m,1) + M1;
    else
       if load(m,1) < 0
          cost(m,1) = cost(m,1) + M1;
       end
   end    
        
    end
    
end

三、运行结果

四、备注
版本：2014a