04粒子群算法matlab代码

粒子群算法(1)-粒子群算法简介二、粒子群算法的具体表述上面罗嗦了半天，那些都是科研工作者写论文的语气，不过，PSO的历史就像上面说的那样。下面通俗的解释PSO算法。PSO算法就是模拟一群鸟寻找食物的过程，每个鸟就是PSO.中的粒子，也就是我们需要求解问题的可能解，这些鸟在寻找食物的过程中，不停改变自己在空中飞行的位置与速度。大家也可以观察一下，鸟群在寻找食物的过程中,开始鸟群比较分散，逐渐这些鸟就会聚成一群，这个群忽高忽低、忽左忽右，直到最后找到食物。这个过程我们转化 为一个数学问题。寻找函数y=1-cos(3*x)*exp(-x) 的在0,4最大值。该函数的图形如下：当x=0.9350-0.9450 ，达到最大值y=1.3706。为了得到该函数的最大值，我们在0，4之间随机的洒一些点，为了演示，我们放置两个点，并且计算这两个点的函数值，同时给这两个点设置在0，4之间的一个速度。下面这些点就会按照一定的公式更改自己的位置，到达新位置后，再计算这两个点的值，然后再按照一定的公式更新自己的位 置。直到最后在y=1.3706这个点停止自己的更新。这个过程与粒子群算法作为对照如下：这两个点就是粒子群算法中的粒子。该函数的最大值就是鸟群中的食物计算两个点函数值就是粒子群算法中的适应值，计算用的函数就是粒子群算法中的适应度函数。更新自己位置的一定公式就是粒子群算法中的位置速度更新公式。下面演示一下这个算法运行一次的大概过程：第一次初始化第一次更新位置第二次更新位置第21次更新最后的结果（30次迭代）最后所有的点都集中在最大值的地方。粒子群算法(2)-标准的粒子群算法在上一节的叙述中，唯一没有给大家介绍的就是函数的这些随机的点(粒子)是如何运动的，只是说按照一定的公式 更新。这个公式就是粒子群算法中的位置速度更新公式。下面就介绍这个公式是什么。在上一节中我们求取函数y=1-cos(3*x)*exp(-x) 的在0,4最大值。并在0,4之间放置了两个随机的点，这些点的坐标假设为x1=1.5 ； x2=2.5 ；这里的点是一个标量，但是我们经常遇到的问题可能是更一般的情况一一x为一个矢量的情况，比如二维的情况z=2*x1+3*x22的情况。这个时候我们的每个粒子为二维，记粒子P1 =(x11,x12),P2=(x21,x22),P3=(x31,x32),Pn=(xn1,xn2)。这里n为粒子群群体的规模，也就是这个群中粒子的个数，每个粒子的维数为2。更一般的是粒子的维数为q，这样在这个种群中有n个粒子，每个粒子为q维。由n个粒子组成的群体对Q维(就是每个粒子的维数)空间进行搜索。每个粒子表示为：X= ( Xi1,Xi2,Xi3,.,XiQ),每个粒子对应的速度可以表示为Vi=(v i1,Vi2,Vi3,ViQ)，每个粒子在搜索时要考虑两个因素：1。 自己搜索到的历史最优值pi, pi = (p i1,p i2,.,piQ) , i=1,2,3,n。2。 全部粒子搜索到的最优值pg , pg=(p g1 ,pg2 ,.,pgQ),注意这里的pg只有一个。下面给出粒子群算法的位置速度更新公式：1 = Ork +-rf - X frf) +xd 1 = x 打 +r rfj 1-这里有几个重要的参数需要大家记忆，因为在以后的讲解中将会经常用到：它们是：是保持原来速度的系数，所以叫做惯性权重。-是粒子跟踪自己历史最优值的权重系数，它表示粒子自身的认识，所以叫“认知”。通常设置为2。是粒子跟踪群体最优值的权重系数，它表示粒子对整个群体知识的认识，所以叫做“社会知识”，经常叫做“社会”。通常设置为2。- 1：-：是0,1区间均匀分布的随机数。r是对位置更新的时候，在速度前面加的一个系数，这个系数我们叫做约束因子。通常设置为1。这样一个标准的粒子群算法就结束了。下面对整个基本的粒子群的过程给一个简单的图形表示：开始丄U7初抬优粒子群十 同时计算适应7判断终止条件*判断终止条件可是设置适应值到达一定的数值或者循环一定的次数。注意：这里的粒子是同时跟踪自己的历史最优值与全局（群体）最优值来改变自己的位置预速度的，所以又叫做全局版本的标准粒子群优化算法。粒子群算法（3）-标准的粒子群算法（局部版本）在全局版的标准粒子群算法中，每个粒子的速度的更新是根据两个因素来变化的，这两个因素是：1.粒子自己历史最优值pi。2. 粒子群体的全局最优值 pg。如果改变粒子速度更新公式，让每个粒子的速度的更新根据以下两个因素 更新，A.粒子自己历史最优值 pi。B.粒子邻域粒子的最优值 pn k。其余保持跟全局版的标准粒子群算法一样，这个算 法就变为局部版的粒子群算法。一般一个粒子i的邻域随着迭代次数的增加而逐渐增加，开始第一次迭代，它的邻域为0,随着迭代次数邻域线性变大，最后邻域扩展到整个粒子群，这时就变成全局版本的粒子群算法了。经过实践证明：全局版本的粒子群算法 收敛速度快，但是容易陷入局部最优。局部版本的粒子群算法收敛速度慢，但是很难陷入局部最优。现在的粒子群算 法大都在收敛速度与摆脱局部最优这两个方面下功夫。其实这两个方面是矛盾的。看如何更好的折中了。根据取邻域的方式的不同，局部版本的粒子群算法有很多不同的实现方法。第一种方法：按照粒子的编号取粒子的邻域，取法有四种：1，环形取法 2，随机环形取法 3，轮形取法 4，随机轮形取法。因为后面有以环形取法实现的算法，对环形取法在这里做一点点说明：以粒子1为例，当邻域是0的时候，邻域是它本身，当邻域是1时，邻域为2，8 ;当邻域是2时，邻域是2，3，7, 8 ；，以此类推，一直到邻域为 4，这 个时候，邻域扩展到整个例子群体。据文献介绍(国外的文献)，采用轮形拓扑结构，PSO的效果很好。第二种方法：按照粒子的欧式距离取粒子的邻域在第一种方法中，按照粒子的编号来得到粒子的邻域，但是这些粒子其实可能在实际位置上并不相邻，于是Suganthan 提出基于空间距离的划分方案，在迭代中计算每一个粒子与群中其他粒子的距离。记录任何2个粒子间的的最大距离为dm。对每一粒子按照|xa-xb|/dm 计算一个比值。其中|xa-xb|是当前粒子a到b的距离。而选择阈值 frac根据迭代次数而变化。当另一粒子b满足|xa-xb|/dmfrac 时，认为b成为当前粒子的邻域。这种办法经过实验，取得较好的应用效果，但是由于要计算所有粒子之间的距离，计算量大，且需要很大的存储 空间，所以，该方法一般不经常使用。粒子群算法(5)-标准粒子群算法的实现标准粒子群算法的实现思想基本按照粒子群算法(2)-标准的粒子群算法的讲述实现。主要分为3个函数。第一个函数为粒子群初始化函数InitSwarm(SwarmSizeAdaptFu nc)其主要作用是初始化粒子群的粒子，并设定粒子的速度、位置在一定的围。本函数所采用的数据结构如下所示：W2,1W2,2W2,DV2,1V 2,2V2,D-1V2,DF2第2个粒子Wn-1,1Wn-1,2Wn-1,D-1Vn-1,1Vn-1,2Vn-1,d-1Vn-1,DFn-1第N-1个粒子Wn,iWn,2Wn,dVn,iVN,2Vn,d-1Vn,dFn第N个粒子表OptSwarm记录每个粒子的历史最优解（粒子历史最好的适应度）以及全部粒子搜索到的全局最优解。用Wg代表全局最优解，W.,1代表每个粒子的历史最优解。粒子群初始化阶段表OptSwarm的前N行与表ParSwarm中的相同，而Wg的值为表ParSwarm中适应度值的最大值对应的行。Wj,1Wj,2Wj,D-1Wj,D第1个粒子的历史最优解Wk,1Wk,2Wk,D-1Wk,D第2个粒子的历史最优解uWl,1Wl,2Wl,D-1Wl,D第N-1个粒子的历史最优 解Wm,1Wm,2Wm,D-1DW”第N个粒子的历史最优解Wg,1Wg,2Wg,D-1Wg,D全局粒子的历史最优解根据这样的思想MATLAB代码如下：fun ctio n ParSwarm,OptSwarm =ln itSwarm(SwarmSize,ParticleSize,ParticleScope,AdaptF unc)%功能描述：初始化粒子群，限定粒子群的位置以及速度在指定的围%ParSwarm,OptSwarm,BadSwarm=l nitSwarm(SwarmSize,ParticleSize,ParticleScope,AdaptFunc)%输入参数：SwarmSize:种群大小的个数%输入参数：ParticleSize :一个粒子的维数%输入参数：ParticleScope: 一个粒子在运算中各维的围；%ParticleScope 格式:%3维粒子的ParticleScope格式：%x1Mi n, x1Max%x2Mi n,x2Max%x3Mi n,x3Max%输入参数：AdaptFunc :适应度函数%输出：ParSwarm初始化的粒子群%输出：OptSwarm 粒子群当前最优解与全局最优解%用法ParSwarm,OptSwarm,BadSwarm =ln itSwarm(SwarmSize,ParticleSize,ParticleScope,AdaptF unc）；%异常：首先保证该文件在 Matlab的搜索路径中，然后查看相关的提示信息 %编制人：XXX%编制时间：2007326%参考文献：无%容错控制if nargin=4error（输入的参数个数错误。）endif n argout1|colum1error(输入的粒子的维数错误，是一个1行1列的数据。);endrow,colum=size(ParticleScope);if row=ParticleSize|colum=2error(输入的粒子的维数围错误。);end%初始化粒子群矩阵%初始化粒子群矩阵，全部设为0-1随机数%ran d(state,0);ParSwarm=ra nd(SwarmSize,2*ParticleSize+1);%对粒子群中位置，速度的围进行调节 for k=1:ParticleSizeParSwarm(:,k)=ParSwarm(:,k)*(ParticleScope (k, 2)-ParticleScope (k,1)+ParticleScope (k,1);%调节速度，使速度与位置的围一致ParSwarm(:,ParticleSize+k)=ParSwarm(:,ParticleSize+k)*(ParticleScope (k, 2)-ParticleScope (k,1)+ParticleScope (k,1);end%对每一个粒子计算其适应度函数的值 for k=1:SwarmSizeParSwarm(k,2*ParticleSize+1)=AdaptFu nc(ParSwarm(k,1:ParticleSize);end%初始化粒子群最优解矩阵OptSwarm=zeros(SwarmSize+1,ParticleSize);%粒子群最优解矩阵全部设为零maxValue,row=max(ParSwarm(:,2*ParticleSize+1);%寻找适应度函数值最大的解在矩阵中的位置 (行数)OptSwarm=ParSwarm(1:SwarmSize,1:ParticleSize);OptSwarm(SwarmSize+1,:)=ParSwarm(row,1:ParticleSize);下面的函数BaseStepPso实现了标准全局版粒子群算法的单步更新位置速度的功能fun ctio nParSwarm,OptSwarm=BaseStepPso(ParSwarm,OptSwarm,AdaptFu nc,ParticleScope,MaxW,MinW丄 oopCou nt,CurCou nt)%功能描述：全局版本：基本的粒子群算法的单步更新位置，速度的算法%ParSwarm,OptSwarm=BaseStepPso(ParSwarm,OptSwarm,AdaptFu nc,ParticleScope,MaxW,Mi nW丄 oopCou nt,CurCou nt)%输入参数：ParSwarm:粒子群矩阵，包含粒子的位置，速度与当前的目标函数值%输入参数：OptSwarm :包含粒子群个体最优解与全局最优解的矩阵%输入参数：ParticleScope: 一个粒子在运算中各维的围；%输入参数：AdaptFunc :适应度函数%输入参数：LoopCount :迭代的总次数%输入参数：CurCount :当前迭代的次数%返回值：含意同输入的同名参数%用法：ParSwarm,OptSwarm=BaseStepPso(ParSwarm,OptSwarm,AdaptFu nc,ParticleScope,MaxW,Mi nW丄 oopCou nt,CurCou nt)%异常：首先保证该文件在 Matlab的搜索路径中，然后查看相关的提示信息。%编制人：XXX%编制时间：2007.3.26%参考文献：XXX%参考文献：XXX%修改记录%修改人：XXX% 添加 2*unifrnd(0,1)*SubTract1(row,:) 中的 unifrnd(0,1)随机数，使性能大为提高%参照基于MATLAB的粒子群优化算法程序设计%总体评价：使用这个版本的调节系数，效果比较好%容错控制if nargin=8error(输入的参数个数错误。)endif n argout=2error(输出的个数太少，不能保证循环迭代。)end%开始单步更新的操作*%* %*更改下面的代码，可以更改惯性因子的变化%线形递减策略w=MaxW-CurCou nt*(MaxW-Mi nW)/LoopCou nt);%w固定不变策略%w=0.7;2006，%参考文献：贵敏，贾建援，韩琪，粒子群优化算法的惯性权值递减策略研究，交通大学学报, 1%w非线形递减，以凹函数递减 %w=(MaxW-Mi nW)*(CurCou nt/LoopCou ntF2+(Mi nW-MaxW)*(2*CurCou nt/LoopCou nt)+Ma xW;%w非线形递减，以凹函数递减%w=Mi nW*(MaxW/Mi nW)A(1/(1+10*CurCou nt/LoopCou nt);%*更改上面的代码，可以更改惯性因子的变化 *Q%*%得到粒子群群体大小以及一个粒子维数的信息ParRow,ParCol=size(ParSwarm);%得到粒子的维数ParCol=(ParCol-1)/2;SubTract 1=OptSwarm(1:ParRow,:)-ParSwarm(:,1:ParCol);%(*%*更改下面的代码，可以更改 c1,c2的变化*c1=2;c2=2;%con=1;%c1=4-exp(-co n*abs(mea n(ParSwarm(:,2*ParCol+1)-AdaptFu nc(OptSwarm(ParRow+1,:);%c2=4-c1;%*更改上面的代码，可以更改 c1,c2的变化*Q%*for row=1:ParRowSubTract2=OptSwarm(ParRow+1,:)-ParSwarm(row,1:ParCol);TempV=w.*ParSwarm(row,ParCol+1:2*ParCol)+2*u nifrnd(0,1).*SubTract1(row,:)+2*u nifrnd(0,1).*SubTract2;%限制速度的代码for h=1:ParColif TempV(:,h)ParticleScope(h,2)TempV(:,h)=ParticleScope(h,2);endif TempV(:,h)v-ParticleScope(h,2)TempV(:,h)二ParticleScope(h,2)+1e-10;%加1e-10防止适应度函数被零除endend%更新速度ParSwarm(row,ParCol+1:2*ParCol)=TempV;Q%*%*更改下面的代码，可以更改约束因子的变化 *%a=1;%a=0.729;%*更改上面的代码，可以更改约束因子的变化 *Q%*%限制位置的围TempPos=ParSwarm(row,1:ParCol)+a*TempV;for h=1:ParColif TempPos(:,h)ParticleScope(h,2)TempPos(:,h)=ParticleScope(h,2);endif TempPos(:,h)AdaptFu nc(OptSwarm(row,1:ParCol)OptSwarm(row,1:ParCol)=ParSwarm(row,1:ParCol);endend%for循环结束%寻找适应度函数值最大的解在矩阵中的位置(行数)，进行全局最优的改变maxValue,row=max(ParSwarm(:,2*ParCol+1);if AdaptFu nc(ParSwarm(row,1:ParCol)AdaptFu nc(OptSwarm(ParRow+1,:)OptSwarm(ParRow+1,:)=ParSwarm(row,1:ParCol);End这两个函数给出以后， 需要一个函数来把这两个函数组装起来，以此实现一个完整的粒子群算法，这个函数就是 PsoProcess代码如下:fun ctio nResult ,OnLin e,OffLi ne,Mi nM axMea nAdapt=PsoProcess(SwarmSize,ParticleSize,ParticleScope,In itF un c,StepF indFun c,AdaptF un c,lsStep,lsDraw,LoopCo un t,lsPlot)%功能描述：一个循环n次的PSO算法完整过程，返回这次运行的最小与最大的平均适应度，以及在线性能与离线性能%Result,O nLi ne,OffLi ne,Mi nM axMea nAdapt=PsoProcess(SwarmSize,ParticleSize,ParticleScope,I nitF un c,StepF indFun c,AdaptF un c,lsStep,lsDraw,LoopCo un t,IsPlot)%输入参数：SwarmSize:种群大小的个数%输入参数：ParticleSize :一个粒子的维数%输入参数：ParticleScope: 一个粒子在运算中各维的围；%ParticleScope 格式:%3维粒子的ParticleScope格式：%x1Mi n, x1Max%x2Mi n,x2Max%x3Mi n,x3Max%输入参数：InitFunc:初始化粒子群函数%输入参数:StepFindFunc:单步更新速度，位置函数%输入参数：AdaptFunc :适应度函数%输入参数：IsStep :是否每次迭代暂停；IsStep二0，不暂停，否则暂停。缺省不暂停%输入参数：IsDraw :是否图形化迭代过程；IsDraw = 0，不图形化迭代过程，否则，图形化表示。缺 省不图形化表示%输入参数：LoopCount :迭代的次数；缺省迭代100次%输入参数：IsPlot :控制是否绘制在线性能与离线性能的图形表示；IsPlot=0,不显示；%IsPlot=1 ;显示图形结果。缺省IsPlot=1%返回值：Result为经过迭代后得到的最优解%返回值：OnLine为在线性能的数据%返回值：OfLine为离线性能的数据%返回值：MinMaxMeanAdapt为本次完整迭代得到的最小与最大的平均适应度%用法Result ,OnLin e,OffLi ne,Mi nM axMea nAdapt=PsoProcess(SwarmSize,ParticleSize,ParticleScope,In itF un c,StepF indFun c,AdaptF un c,lsStep,lsDraw,LoopCo un t,lsPlot);%异常：首先保证该文件在 Matlab的搜索路径中，然后查看相关的提示信息。%编制人：XXX%编制时间：2007326%参考文献：XXXXX%修改记录：%添加MinMaxMeanAdapt，以得到性能评估数据%修改人：XXX%修改时间：%参考文献：XXX.%容错控制if nargin1|colum1error（输入的粒子的维数错误，是一个1行1列的数据。）;end row,colum=size(ParticleScope);if row=ParticleSize|colum=2error（输入的粒子的维数围错误。）;end%设置缺省值if nargin7lsPlot=1;LoopCou nt=1OO;lsStep=0;IsDraw=0;endif nargin8IsPlot=1;lsDraw=0;LoopCou nt=100;endif nargin9LoopCou nt=100;IsPlot=1;endif nargin 1error(输入的参数错误);endy1=1/4000*sum(x.A2);y2=1;for h=1:coly2=y2*cos(x(h)/sqrt(h);end绘制函数图像的代码如下:fun cti onDrawGriewa nk()%绘制Griewank函数图形 x=-8:0.1:8;y=x;X,Y=meshgrid(x,y);row,col=size(X);for l=1:colfor h=1:rowz(h,l)=Griewa nk(X(h,l),Y(h,l);endendsurf(X,Y,z);shadi ng in terp绘制函数图像的代码如下:fun cti onDrawRastrigi n()%绘制Rastrigin函数图形x=-5:0.05:5;y=x;X,Y=meshgrid(x,y);row,col=size(X);for l=1:colfor h=1:rowz(h,l)=Rastrigi n(X(h,l),Y(h,l);endendsurf(X,Y,z);shadi ngin terp