ver_eq.m

克隆选择的免疫算法

% Search for repeated indexes
function [Is] = ver_eq(I);
%！！！！！！！！！！！！
% 去除数组I中相同的元素
%！！！！！！！！！！！！
l = length(I); 
Is = [];
if l > 1,
   for i = 1:l-1,
      aux = I(i);
      auxI = I(i+1:end);
      el = find(auxI == aux);
      if isempty(el),
         Is = [Is,aux];
      end;
   end;
   Is = [Is,I(end)];
else,
   Is = I;
end;