ctypegreyincidence.asv

来自「基于灰色系统方法的离散多目标优化设计程序」· ASV 代码 · 共 20 行

function f2=CtypeGreyIncidence(f0,f1)  
%%%%%%%%%%%%%Improved Absolute degree of grey incidence%%%%%%%%%%%%%%%%%%%%%%
    [n,n1]=size(f0);
     for i=1:n
       d0(i)=f0(i,1)/f1(i,1); 
    end
     for i=1:n-1
       d1(i)=(f0(i+1,1)-f0(i,1))/(f1(i+1,1)-f1(i,1)); 
    end
    for i=2:n-1
       d2(i)=((f0(i+1,1)-2*f0(i,1))+f0(i,1))/((f1(i+1,1)-2*f1(i,1))+f1(i,1)); 
    end
    D0(1)=(d1(1)+d0(1))/2;D(n)=d0(n);
    for i=2:n-1
        D0(i)=(d0(i)+d1(i)+d2(i))/3;
    end
    
    %%%%%%%%%%%%%
    f2=1/(1+d0/n+d1/(n-1)+d2/(n-2));
 %%%%%%2007.8.18%%%%%%%%%%%%%%%%%%%%%