王小平《遗传算法——理论、应用与软件实现》随书光盘

				function new=include(temp,inc,ov)
				
				%
				% include.m
				%
				% Function to build up a process data matrix given a binary
				% "Include" vector.
				%
				numcol=sum(inc);
				
				[D L]=size(temp);
				
				new=zeros(D,numcol);
				
				sum=1;
				
				for i = 1 : L
				
					if inc(i)==1 and ov ~= i
						new(:,sum)=temp(:,i);
						sum=sum+1;
					end
				end