克隆选择的免疫算法

				% Function Extracts lines from M indexed by I
				function [M] = extract(M,I);    % 筛选功能
				%！！！！！！！！！！！！
				% 从矩阵M中删除第I行
				%！！！！！！！！！！！！
				Maux = zeros(size(M));
				Maux(I,:) = M(I,:);
				M = M - Maux;
				[I] = find(M(:,1)~=0);
				M = M(I,:);