datadeal.m

完成改进的遗传算法,其中用的是免疫机制.

function datadeal=datadeal(x)
b=x;
[m n]=size(x);
time1=date;   %记录开所用的时间始
for i=1:m
    for j=1:n
        if x(i,j)>=1
            b(i,j)=1;
        elseif(x(i,j)<=-1)
            b(i,j)=-1;
        else b(i,j)=0;
        end
    end
end
%datadeal=b;%%%%    上面程序用于将原始数据转化成0-1数据，然后进行数据的归类。
%-------------------------------------------------------------------------------
b01=b(:,2:41);

%jiaoyi=zeros(m,n);
[hang lie]=find(b01>0);                %hang lie代表b中至大于1的那些值所在的行和列
[a1 b1]=size(hang);
%for i=1:a1
    
%----------------------------------------------------------------------%
temp1=zeros(40,a1);
temp2=zeros(40,a1);
xiang1=0;
xiang2=0;
for i=1:40
    xiang1=0;
    xiang2=0;
    for j=1:a1
        if b01(hang(j,:),i)>0
            xiang1=xiang1+1;
            temp1(i,xiang1)=hang(j);
       elseif b01(hang(j,:),i)<0
            xiang2=xiang2+1;
            temp2(i,xiang2)=hang(j);
        end
    end
end
time2=date;  %计算结束所用的时间。
Runtime=time2-time1;   %用于计算运行所用的时间。
%-----------------------------------------------------------------------%
temp1；
temp2;