reduce.m

来自「遗传算法的目录以及各种算例」· M 代码 · 共 26 行

function [xx]=reduce(x,var1,var2)
%
% REDUCE
%
% Function to return a matrix xx with
% columns var1 and var2 removed. If var1=var2,
% then only one column is removed.
%
% Called: [xx]=reduce(x,var1,var2)
%

icol=0;
[rows,cols]=size(x);
if cols>2
   xx=zeros(rows,cols-2);
   for i=1:cols
     if i~=var1 & i~=var2
        icol=icol+1;
        xx(:,icol)=x(:,i);
     end;
   end;
else
   disp(' ');
   disp('Error: Matrix has only 2 columns');
end;