Create single-machine total Weighted Tardiness (WT) Problem Benchmark
Creates a benchmark function for the single-machine total Weighted Tardiness Problem.
benchmarkGeneratorWT(p, w, d)
p |
processing times |
w |
weights |
d |
due dates |
the function of type cost=f(permutation)
n=6 #processing times p <- sample(100,n,replace=TRUE) #weights w <- sample(10,n,replace=TRUE) #due dates RDD <- c(0.2, 0.4, 0.6,0.8,1.0) TF <- c(0.2, 0.4, 0.6,0.8,1.0) i <- 1 j <- 1 P <- sum(p) d <- runif(n,min=P*(1-TF[i]-RDD[j]/2),max=P*(1-TF[i]+RDD[j]/2)) #create WT objective function fun <- benchmarkGeneratorWT(p,w,d) fun(1:n) fun(n:1)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.