initiate.txt

用matlab语言编的多维粒子群代吗

function [Swarm, PBEST] = initiate(psoOptions,Obj)
Swarm = struct( 'individual',struct(...
  'dim' ,struct(...
    'number',[], ...%个体位置
    'speed',[], ...%个体速度
    'best',[]),'number',[],'speed',[],'best',[]), ...%个体最优
   'P',[], ... 
    'X',[],'Y',[]);
%X是粒子群活动的范围的初始值。
B=ones(1,Obj.Dim,psoOptions.population);
for j = 1 : psoOptions.population

    Swarm(j).X = ( ones(psoOptions.Vars.PopSize, 1) * (Obj.ub - Obj.lb) ) .* rand(psoOptions.Vars.PopSize, Obj.Dim) + ones(psoOptions.Vars.PopSize, 1) * Obj.lb;
    for i = 1 : psoOptions.Vars.PopSize 
      for d=1:Obj.Dim 
        Swarm(j).individual(i).dim(d).number = Swarm(j).X(i,d);            
        Swarm(j).individual(i).dim(d).speed = rand * psoOptions.SParams.Vmax;             
        Swarm(j).individual(i).dim(d).best = Swarm(j).X(i,d);    
        
     B(i,d,j)=Swarm(j).individual(i).dim(d).best;
      
    
     %  PBEST(j,d)=PBEST;   
       
      Swarm(j).individual(i).number=[Swarm(j).individual(i).dim.number];
      Swarm(j).individual(i).best=[Swarm(j).individual(i).dim.best];
    % Swarm(j).individual(i).P=[Swarm(j).individual(i).dim(d).best];
      end
                       Swarm(j).P =[Swarm(j).individual(i).dim.best];
     Swarm(j).individual(i).number=[Swarm(j).individual(i).dim.number];
     Swarm(j).individual(i).best  =[Swarm(j).individual(i).dim.best];
    end
     
    %Swarm(j).Y= feval('LJcluster', Swarm(j).X(i,:));
    %[PBEST, index] = min(Swarm(j).Y);%pbest是一个1。10列的向量。index是最小值的索引
   %是一个j群的全局最优的实数
end
B=min(B);
PBEST=feval('LJcluster', B);