布局优化基于粒子群算法实现充电布点优化matlab源码

Posted 2021-06-26 MatlabQQ1575304183

粒子群算法

粒子群算法是在1995年由Eberhart博士和Kennedy博士一起提出的，它源于对鸟群捕食行为的研究。它的基本核心是利用群体中的个体对信息的共享从而使整个群体的运动在问题求解空间中产生从无序到有序的演化过程，从而获得问题的最优解。设想这么一个场景：一群鸟进行觅食，而远处有一片玉米地，所有的鸟都不知道玉米地到底在哪里，但是它们知道自己当前的位置距离玉米地有多远。那么找到玉米地的最佳策略，也是最简单有效的策略就是搜寻目前距离玉米地最近的鸟群的周围区域。

    在PSO中，每个优化问题的解都是搜索空间中的一只鸟，称之为"粒子"，而问题的最优解就对应于鸟群中寻找的"玉米地"。所有的粒子都具有一个位置向量（粒子在解空间的位置）和速度向量（决定下次飞行的方向和速度），并可以根据目标函数来计算当前的所在位置的适应值（fitness value）,可以将其理解为距离"玉米地"的距离。在每次的迭代中，种群中的例子除了根据自身的经验（历史位置）进行学习以外，还可以根据种群中最优粒子的"经验"来学习，从而确定下一次迭代时需要如何调整和改变飞行的方向和速度。就这样逐步迭代，最终整个种群的例子就会逐步趋于最优解。

上面的解释可能还比较抽象，下面通过一个简单的例子来进行说明

在一个湖中有两个人他们之间可以通信，并且可以探测到自己所在位置的最低点。初始位置如上图所示，由于右边比较深，因此左边的人会往右边移动一下小船。

现在左边比较深，因此右边的人会往左边移动一下小船

 

一直重复该过程，最后两个小船会相遇

得到一个局部的最优解

 

将每个个体表示为粒子。每个个体在某一时刻的位置表示为，x(t),方向表示为v(t)

 

 

 

p（t）为在t时刻x个体的自己的最优解，g(t)为在t时刻所有个体的最优解，v(t)为个体在t时刻的方向，x(t)为个体在t时刻的位置

 

 

 

下一个位置为上图所示由x,p,g共同决定了

 

 

 

种群中的粒子通过不断地向自身和种群的历史信息进行学习，从而可以找到问题的最优解。

但是，在后续的研究中表表明，上述原始的公式中存在一个问题：公式中V的更新太具有随机性，从而使整个PSO算法的全局优化能力很强，但是局部搜索能力较差。而实际上，我们需要在算法迭代初期PSO有着较强的全局优化能力，而在算法的后期，整个种群应该具有更强的局部搜索能力。所以根据上述的弊端，shi和Eberhart通过引入惯性权重修改了公式，从而提出了PSO的惯性权重模型：

 

每一个向量的分量表示如下

 

 

其中w称为是PSO的惯性权重，它的取值介于【0,1】区间，一般应用中均采用自适应的取值方法，即一开始令w=0.9，使得PSO全局优化能力较强，随着迭代的深入，参数w进行递减，从而使的PSO具有较强的局部优化能力，当迭代结束时，w=0.1。参数c1和c2称为学习因子，一般设置为1,4961；而r1和r2为介于[0,1]之间的随机概率值。

整个粒子群优化算法的算法框架如下：

step1种群初始化，可以进行随机初始化或者根据被优化的问题设计特定的初始化方法，然后计算个体的适应值，从而选择出个体的局部最优位置向量和种群的全局最优位置向量。

step2 迭代设置：设置迭代次数，并令当前迭代次数为1

step3 速度更新：更新每个个体的速度向量

step4 位置更新：更新每个个体的位置向量

step5 局部位置和全局位置向量更新：更新每个个体的局部最优解和种群的全局最优解

step6 终止条件判断：判断迭代次数时都达到最大迭代次数，如果满足，输出全局最优解，否则继续进行迭代，跳转至step 3。

　　对于粒子群优化算法的运用，主要是对速度和位置向量迭代算子的设计。迭代算子是否有效将决定整个PSO算法性能的优劣，所以如何设计PSO的迭代算子是PSO算法应用的研究重点和难点。

4. 对粒子群优化算法中惯性权重的认识

参数w被称之为是惯性权重，顾名思义w实际反映了粒子过去的运动状态对当前行为的影响，就像是我们物理中提到的惯性。如果w<<1，从前的运动状态很少能影响当前的行为，粒子的速度会很快的改变；相反，w较大，虽然会有很大的搜索空间，但是粒子很难改变其运动方向，很难向较优位置收敛，由于算法速度的因素，在实际运用中很少这样设置。也就是说，较高的w设置促进全局搜索，较低的w设置促进快速的局部搜索。

clc;clear;close all;​%% 导入地图Spoly = shaperead('.\\BOUNT\\BOUNT_poly.shp', 'UseGeoCoords', true);Tpoly = struct2table(Spoly);row2 = cell2mat(cellfun(@(x) floor(str2num(x)./10000),Tpoly.ADCODE99,'UniformOutput',false)) == 35; % 福建省SSpoly = Spoly(row2);worldmap([23,29],[115,121])geoshow(SSpoly, 'FaceColor', [0.9 0.9 0.9], 'LineStyle', ':') % 画出福建地图%% 导入站点地理气象信息StationData = importdata('.\\stationdata.csv');StationWeather = importdata('.\\201609.csv'); %提取的16年9月站点极大风速和降雨newStationWeather = findstationdata(StationData.textdata,StationWeather);%% 导入杆塔信息PoleData500 = importdata('.\\poledata500.csv');%% 粒子群算法[PoleWind, mindis] = IDW(StationData,newStationWeather,PoleData500.data(:,2:3),'wind');PoleNo = find(PoleWind(find(mindis > 0.03)) > 25);PolePosition = PoleData500.data(PoleNo,2:3);​index = find(~isnan(newStationWeather(:,2)));StationPosition = StationData.data(index,:);PolePosition = PoleData500.data(:,2:3);dim = 20;%气象站% [c_best, F_best, F_record] = AF(PolePosition,PoleWind(PoleNo),PoleNo,dim); %导入杆塔位置,风速,编号,最优布点数量;导出最优布点结果,最优食物浓度,食物浓度变化[ F_best, F_record]=PSO(PolePosition,PoleWind(PoleNo),PoleNo,dim);F_best = PoleNo(F_best);​%% 可视化polelat = PoleData500.data(F_best,3);polelon = PoleData500.data(F_best,2);g4 = plotm(24.1,118.4,'r');g5 = geoshow(polelat,polelon,'DisplayType','point','Marker','o','MarkerEdgeColor','k','MarkerFaceColor','c');legend([g4 g5],{'500kV线路','微气象站建设位置'},'Location','southeast')% figure% plot(result,'k');% xlabel('迭代次数')% ylabel('食物浓度（适应度）')% axis([0 500 0 4.5]);

function newStationWeather = findstationdata(StationName,StationWeather)newStationWeather = zeros(size(StationName,1),2)*NaN;for i = 1:size(StationWeather.textdata,1)    [~, row] = ismember(StationWeather.textdata(i),StationName);    if row ~= 0        if ~isnan(newStationWeather(row,1))            newStationWeather(row,1) = max(newStationWeather(row,1),StationWeather.data(i,1));        else            newStationWeather(row,1) = StationWeather.data(i,1);        end        if ~isnan(newStationWeather(row,2))            newStationWeather(row,2) = max(newStationWeather(row,2),StationWeather.data(i,2));        else            newStationWeather(row,2) = StationWeather.data(i,2);        end    endend% newStationWeather(isnan(newStationWeather)) = 0;    

function AF_value = AF_function(x,PolePosition,PoleData)​AF_value = 0;if sum(diff(sort(x)) == 0) <= 0    dis = pdist2(PolePosition(x,:),PolePosition(x,:));    if sum(sum(dis < 0.01)) <= max(size(x))%        dis2 = pdist2(PolePosition(x,:),StationPosition);%        if min(min(dis2)) > 0.015            for j = 1:max(size(x))                if PoleData(x(j)) > 60                    AF_value = AF_value + 1;                elseif PoleData(x(j)) > 0                    AF_value = AF_value + exp(0.08*(PoleData(x(j))-60));                end            end%        end    endend

 

​​​​​​​