30 lines
774 B
MiniZinc
30 lines
774 B
MiniZinc
include "globals.mzn";
|
|
|
|
% Horizonte de tiempo.
|
|
int: horizon;
|
|
set of int: Time = 0..horizon;
|
|
enum Task;
|
|
enum Machine;
|
|
|
|
% Duración de cada máquina.
|
|
array[Task,Machine] of int: d;
|
|
int: maxd = max([ d[t,m] | t in Task, m in Machine ]);
|
|
int: mind = min([ d[t,m] | t in Task, m in Machine ]);
|
|
|
|
% Hora de inicio.
|
|
array[Task] of var Time: S;
|
|
|
|
% Duración.
|
|
array[Task] of var mind..maxd: D;
|
|
|
|
% Inicio de tarea opcional.
|
|
array[Task,Machine] of var opt Time: O;
|
|
|
|
constraint forall(t in Task)(alternative(S[t],D[t],
|
|
[O[t,m]|m in Machine],[d[t,m]|m in Machine]));
|
|
constraint forall(m in Machine)
|
|
(disjunctive([O[t,m]|t in Task],[d[t,m]|t in Task]));
|
|
constraint cumulative(S,D,[1|i in Task],card(Machine));
|
|
|
|
solve minimize max(t in Task)(S[t] + D[t]);
|