integerpso.asv

来自「该程序是一整数版的PSO程序。该程序对于整数版PSO的各种应用可作为模板程序。」· ASV 代码 · 共 32 行

% 整数PSO====2005.7.5
clear;
clf;
clc;
% 参数给定
xmax=100;
xmin=-100;
vmax=2;
vmin=-2;
popsize=10;
dimsize=5;   
wmax=1;
c1=2;
c2=2;
itermax=200;
% 初始化群体x
x=round((0.5-rand(popsize,dimsize))*(xmax-xmin));
vid=(vmax-vmin)*rand(popsize,dimsize);
[y]=intefun(x);                            %计算popsize个初始微粒的fitness
pbestx=x;                                  % 初始个体经历过的最优点位置
pbesty=y;                                  % 初始个体经历过的最优位置的fitness
for i=1:popsize
    if y(i)==min(y)
        gbestx=x(i,:);
        gbesty=min(y);
    end
end
%主循环
% for iter=1:itermax
    [x]=adaptintx(c1,c2,popsize,dimsize,x,vid,vmax,vmin,xmax,xmin,pbestx,gbestx);
%     [y]=intefun(x); 
%     [pbestx,pbesty,gbestx,gbesty]=adaptbest3(popsize,x,y,pbestx,pbesty,gbestx,gbesty); % 更新当前个体最优和群体最优