ad.m

基于遗传算法的模糊指派

function add=ad(A,old,nind,p,x)
A=[9 10 12;6 8 12;9 10 13;7 10 14;15 17 19;5 9 10;5 8 10;11 12 13;12 15 16;11 16 18;16 18 20;14 15 18;12 13 18;12 15 17;9 12 17;6 8 10;4 6 8;12 15 18;12 15 17;12 15 17;4 7 9;15 17 19;16 19 21;6 8 9;9 10 12;4 5 8;5 7 9;6 9 11;13 15 16;9 10 12;18 20 22;9 11 13;8 9 11;16 18 19;8 10 12;8 9 11;9 11 12;8 9 11;16 18 19;8 10 12;16 18 20;5 6 9;15 17 19;10 13 14;7 10 12;6 8 10;15 16 19;5 7 9;9 12 14;11 13 15;16 18 20;15 17 19;12 15 17;8 9 11;11 13 15;6 9 11;5 7 9;11 16 18;13 15 16;12 15 18;14 16 18;8 10 12;13 14 16;7 8 11;9 11 13;4 6 8;8 10 12;7 8 11;12 15 17;9 11 13;15 17 19;18 20 22;11 14 16;13 15 16;7 9 10;5 7 9;9 11 14;11 12 13;8 9 11;11 13 15;11 13 15;13 15 16;12 15 18;9 10 12;11 12 13;11 13 15;13 15 16;11 13 15;9 10 12;11 14 16;8 10 12;16 18 19;11 13 15;16 18 19;11 16 18;8 10 12;16 18 19;7 9 11;16 18 19;13 14 16];
M=[];a=0;b=0;c=0;
C=[];D=[];
p=10;x=0.6;
for k=1:nind
for i=1:p
    h=(i-1)*p+old(k,i);
    a=a+A(h,1);
    b=b+A(h,2);
    c=c+A(h,3);
end
    %m=(A(i,3)-A(i,1))/(6+A(i,3)-A(i,1));
    C=[C;a,b,c];
    m=(C(k,3)-C(k,1))/(6+C(k,3)-C(k,1));
    %m=(C(k,3)-C(k,1))/(3+C(k,3)-C(k,1));
    D=[D,m];
end
for k=1:nind
    if D(1,k)<x
    n=0;
    elseif D(1,k)>=x
    n=(D(1,k)-x).^2;
    %n=(C(1,i)-x).^2;
    end
    M=[M,n];
end
add=M;