absolutegreyincidence.m

基于粒子群优化与灰色系统理论的多目标优化程序

function f2=AbsoluteGreyIncidence(f0,f1)  
%%%%%%%%%%%%%absolute degree of grey incidence%%%%%%%%%%%%%%%%%%%%%%
global GreyEntropy;
[n,n1]=size(f0);
    for i=1:n,
        f00(i,1)=f0(i,1)-f0(1,1);
        f10(i,1)=f1(i,1)-f1(1,1);
    end
    ff=f00(n,1);ff1=f10(n,1);
    s0=0;s1=0;s11=0;
    for i=2:n-1
       s0=s0+abs(f00(i,1));s1=s1+abs(f10(i,1));  s11=s11+abs(f00(i,1)-f10(i,1));
    end
    s0=s0+0.5*abs(ff);s1=s1+0.5*abs(ff1);s11=s11+0.5*abs(ff-ff1);
    f2=(1+s1+s0)/(1+s1+s0+s11);
%%%%%%%%%%%%%%%%%%灰熵计算(改进并取负）%%%%%%%%%%%%%%%5
    ff2=(1+f2)*log(1+f2);
%%%%%%%%%%%%%%%%%%优度计算  %%%%%%%%%%%%%%%%%%%%%
    ff3=1/(1+((1-f2)/f2))^2;
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if GreyEntropy==1;
    f2=ff2;% 使用灰熵计算;
elseif GreyEntropy==2;
    f2=ff3;
else
    f2=f2;%灰关联计算。
end
%%%%%%%%%%%%%%%%%%2007.8
 %%%%%%2007.8.18%%%%%%%%%%%%%%%%%%%%%