bianma.asv

遗传算法解决排课问题

function [r,T,t]=bianma(x)
%解码器
m=x/6440;
i=1;
while i~=0
    if m>i-1&m<=i
        r=i;
        if (x-6440*(r-1))/40<1
            T=round((x-6440*(r-1))/40)+1;
        else
        T=round((x-6440*(r-1))/40);%round可以替代取整函数
        end
        t=x-6440*(r-1)-(T-1)*40;
        i=0;
    else
        i=i+1;
    end
end