makespan.m

来自「流水车间调度遗法」· M 代码 · 共 23 行

function [timeLength,c]=makespan(Va)
global jobInfo
global c

%Va=[3 1 4 5 2]

c(1,1)=jobInfo(2,Va(1) );
for k=2:size(jobInfo,1)-1
   c(1,k)=c(1,k-1)+jobInfo(k+1,Va(1));
end

for ix=2:size(jobInfo,2)
  c(ix,1)=c(ix-1,1)+jobInfo(2,Va(ix));
end


for ix=2:size(jobInfo,2)
   for k=2:size(jobInfo,1)-1
     c(ix,k)=max( c(ix-1,k),c(ix,k-1) )+jobInfo(k+1,Va(ix));
   end   
end

timeLength=c( size(jobInfo,2) ,size(jobInfo,1)-1 );