gusucode.com > ​多目标进化算法并且加入混合策略matlab源码程序 > ZDT.m

    function mop=ZDT(testname,dimension)
global mop;
%%run for zdt problems
mop=struct('name',[],'od',[],'pd',[],'domain',[],'func',[]);
switch testname
    case 'ZDT1'
        mop=zdt1(mop,dimension);
    case 'ZDT2'
        mop=zdt2(mop,dimension);
    case 'ZDT3'
        mop=zdt3(mop,dimension);        
    case 'ZDT4'
        mop=zdt4(mop,dimension);        
    case 'ZDT5'
        mop=zdt5(mop,dimension);        
    case 'ZDT6'
        mop=zdt6(mop,dimension); 
    case 'test'
        mop=test(mop,dimension);
    otherwise
        error('Undefined test problem name');
end
%%%%%%%%%%FUNCTIONS%%%%%%
    function p=zdt1(p,dim)
        p.name='ZDT1';
        p.od=2;
        p.pd=dim;
        p.domain=[zeros(dim,1) ones(dim,1)];
        p.func=@evaluate;
        function y=evaluate(x)
            y=zeros(2,1);
            y(1) = x(1);
            su = sum(x)-x(1);    
            g = 1 + 9 * su / (dim - 1);
            y(2) =g*(1 - sqrt(y(1) / g));
        end
    end
%%%%%%%
    function p=zdt2(p,dim)
        p.name='ZDT2';
        p.od=2;
        p.pd=dim;
        p.domain=[zeros(dim,1) ones(dim,1)];
        p.func=@evaluate;
        function y=evaluate(x)
            y=zeros(2,1);
            y(1) = x(1);
            su = sum(x)-x(1);    
            g = 1 + 9 * su / (dim - 1);
            y(2) =g*(1 - (y(1) / g).^2);
        end
    end
%%%%%%%
    function p=zdt3(p,dim)
        p.name='ZDT3';
        p.od=2;
        p.pd=dim;
        p.domain=[zeros(dim,1) ones(dim,1)];
        p.func=@evaluate;
        function y=evaluate(x)
            y=zeros(2,1);
            y(1) = x(1);
            su = sum(x)-x(1);    
            g = 1 + 9 * su / (dim - 1);
            y(2) =g*(1 - sqrt(y(1) / g)-(y(1)./g).*sin(10*pi*y(1)));
        end
    end
%%%%%%%
    function p=zdt4(p,dim)
        p.name='ZDT4';
        p.od=2;
        p.pd=dim;
        p.domain=[[0;-5*ones(dim-1,1)] [1;5*ones(dim-1,1)]];
        p.func=@evaluate;
        function y=evaluate(x)
            y=zeros(2,1);
            y(1) = x(1);
            aa=x.^2-10*cos(4*pi*x);
            su=sum(aa)-aa(1);  
            g = 1+10*(length(x)-1)+su;
            y(2) =g*(1 - sqrt(y(1) / g));
        end
    end
%%%%%%%
    function p=zdt5(p,dim)
        p.name='ZDT5';
        p.od=2;
        p.pd=dim;
        p.domain=[];
        p.func=@evaluate;
        function y=evaluate()
            y=zeros(2,1);
            

        end
    end
%%%%%%%
    function p=zdt6(p,dim)
        p.name='ZDT6';
        p.od=2;
        p.pd=dim;
        p.domain=[zeros(dim,1) ones(dim,1)];
        p.func=@evaluate;
        function y=evaluate(x)
            y=zeros(2,1);
            y(1)=1-exp(-4*x(1)).*(sin(6*pi*x(1))).^6;
            g=1+9*((sum(x)-x(1))/(dim-1)).^0.25;
            h=1-(y(1)./g).^2;
            y(2)=g.*h;
        end
    end
%%%%%%%
    function p=test(p,dim)
        p.name='test';
        p.od=2;
        p.pd=dim;
        p.domain=[-10 10];
        p.func=@evaluate;
        function y=evaluate(x)
            y=zeros(2,1);
            y(1)=(x-1).^2;
            y(2)=(x-2).^2;
        end
    end
%%%%%%%

end