dengtypegreyincidence.asv

基于灰色系统方法的离散多目标优化设计程序

function f2=DengTypeGreyIncidence(f0,f1,factor)
% Deng type degree of  Grey Incidence 
%f0=[1000000;1000000;1000000;1000000;1000000;1000000;1000000];
%f1=[30622.0927; ;1477.74233;1214.19412;59811.2107;211.272102;604.756576;1485.3764];
%factor=[1/7;1/7;1/7;1/7;1/7;1/7;1/7];
global GreyEntropy;
[n,n1]=size(f0);
f00=f0/f0(1);
f10=f1/f1(1);
for i=1:n,
    da(i)=f00(i)-f10(i);
end;
da1=min(abs(da));da2=max(abs(da));kk=0.5;
for i=1:n, 
    fe(i)=(da1+kk*da2)/(abs(da(i))+kk*da2);
end
%fe=fe
f2=0;
for i=1:n 
    f2=f2+fe(i)*factor(i);
end
%%%%%%%%%%%%%%%%%%灰熵权计算%%%%%%%%%%%%%%%5
ff=0;
for i=1:n
    ff=ff+fe(i);
end
ff1=fe/ff;
H1=0;
for i=1:n
    H(i)=-(1+ff1(i)).*(1+ff1(i));
    H1=H1+H(i);
end

ff2e=ff2e/ff2;%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if GreyEntropy==1;
    f2=ff2;% 使用灰熵计算;
else
    f2=f2;%灰关联计算。
end
%%%%%%%%%%%%%%%%%%2007.818%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%