cumulative
function cumulative(starts: array(integer) of cpvar, durations:array(integer) of cpvar, ends: array(integer) of cpvar, usages: array(integer) of cpvar, sizes: array(integer) of cpvar, cap: integer) : cpctr
 function cumulative(starts: array(integer) of cpvar, durations:array(integer) of cpvar, ends: array(integer) of cpvar, usages: array(integer) of cpvar, sizes: array(integer) of cpvar, cap: array(integer) of integer) : cpctr
 function cumulative(starts: array(integer) of cpvar, durations:array(integer) of cpvar, ends: array(integer) of cpvar, usages: array(integer) of cpvar, sizes: array(integer) of cpvar, cap: integer, alg: integer) : cpctr
 | 
     starts 
     | 
     Array of variables representing the start times of the tasks
     | 
| 
     ends 
     | 
     Array of variables representing the completion times of the tasks
     | 
| 
     durations 
     | 
     Array of variables representing the durations of the tasks
     | 
| 
     usages 
     | 
     Array of variables representing the resource consumptions of the tasks
     | 
| 
     sizes 
     | 
     Array of variables representing the sizes of the tasks
     | 
| 
     cap 
     | 
     Integer representing the initial capacity of the resource (constant over time or capacity value for each time period)
     | 
| 
     alg 
     | 
     Choice of the propagation algorithm:
     KALIS_TIMETABLING or
     KALIS_TASK_INTERVALS
     | 
model "Cumulative scheduling"
 uses "kalis"
 declarations
  TASKS = 1..5
  obj : cpvar
  starts, ends, durations, usages, sizes : array(TASKS) of cpvar
 end-declarations
 C := 2                       ! Resource capacity
 HORIZON := 10                ! Time horizon
! Setting up the variables representing task properties
 forall (t in TASKS) do
  starts(t).name:= "T"+t+".start"
  ends(t).name:= "T"+t+".end"
  durations(t).name:= "T"+t+".duration"
  sizes(t).name:= "T"+t+".size"
  usages(t).name:= "T"+t+".use"
  0 <= starts(t); starts(t) <= HORIZON
  0 <= ends(t); ends(t) <= HORIZON
  t <= durations(t); durations(t) <= t+1
  1 <= sizes(t); sizes(t) <= 100
  1 <= usages(t); usages(t) <= 1
  obj >= ends(t)
 end-do
! Cumulative resource constraint
 cumulative(starts, durations, ends, usages, sizes, C)
! Define the branching strategy
 cp_set_branching(assign_var(KALIS_SMALLEST_MIN,KALIS_MIN_TO_MAX))
! Solve the problem
 if cp_minimize(obj) then
  cp_show_sol
  write("Resource use profile: ")
  forall(t in TASKS, time in 0..HORIZON)
   if (starts(t).sol <= time) and (ends(t).sol > time) then
    rload(time) += usages(t).sol
   end-if
  forall(time in 0..HORIZON) write(rload(time))
  writeln
 else
  writeln("No solution found")
 end-if
end-model
 © 2001-2024 Fair Isaac Corporation. All rights reserved. This documentation is the property of Fair Isaac Corporation (“FICO”). Receipt or possession of this documentation does not convey rights to disclose, reproduce, make derivative works, use, or allow others to use it except solely for internal evaluation purposes to determine whether to purchase a license to the software described in this documentation, or as otherwise set forth in a written software license agreement between you and FICO (or a FICO affiliate). Use of this documentation and the software described in it must conform strictly to the foregoing permitted uses, and no other use is permitted.
 
