modify2_v.m

来自「无线传感器网络数学优化模型程序」· M 代码 · 共 27 行

function y=modify2_v(x,z,j,p) %修改速度参数   
global dimension
global popsize
A=x>z; 
B=find(A);
C=length(B);
x(B(1:C))=z;
A1=x<-z;
B1=find(A1);
C1=length(B1);
x(B1(1:C1))=-z;

if j>0
    r1=rand(1);
    if r1<p
        r2=fix(dimension*rand(1))+1;
        r3=fix(popsize*rand(1))+1;
        r4=rand(1);
        if r4<0.5
            x(r2,r3)=0.5*z*rand(1);
        else
            x(r2,r3)=-0.5*z*rand(1);
        end
    end
end

y=x;