0001 function[Index]=FindParetoSetOld(Pop,FunVal)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012 PopSize = size(Pop,1);
0013 number_objectives = size(FunVal,2);
0014
0015 last = size(FunVal,1);
0016 DomPop = zeros(1,last);
0017
0018 i = 1;
0019 while i<last-1,
0020 while DomPop(i)>0 && i<last
0021 i = i + 1;
0022 end,
0023 j = i + 1;
0024 while j<last
0025 while DomPop(j)>0 && j<last
0026 j = j + 1;
0027 end,
0028 if(sum(FunVal(i,:)>=FunVal(j,:))==number_objectives)
0029 DomPop(j) = DomPop(j) + 1;
0030 elseif(sum(FunVal(j,:)>=FunVal(i,:))==number_objectives)
0031 DomPop(i) = DomPop(i) + 1;
0032 j = last;
0033 end,
0034 j = j + 1;
0035 end
0036 i = i + 1;
0037 end
0038
0039
0040 Index = find(DomPop==0);
0041
0042 return
0043
0044 last = size(FunVal,1);
0045 DomPop = zeros(1,last);
0046 for i=1:last-1
0047 for j=i+1:last
0048 if(sum(FunVal(i,:)>=FunVal(j,:))==number_objectives)
0049 DomPop(j) = DomPop(j) + 1;
0050 elseif(sum(FunVal(j,:)>=FunVal(i,:))==number_objectives)
0051 DomPop(i) = DomPop(i) + 1;
0052 end,
0053 end
0054 end
0055 Index = find(DomPop==0);
0056
0057
0058