Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
18 lines
604 B
MiniZinc
18 lines
604 B
MiniZinc
predicate fzn_network_flow_cost(array[int,1..2] of int: arc,
|
|
array[int] of int: balance,
|
|
array[int] of int: weight,
|
|
array[int] of var int: flow, var int: cost) =
|
|
|
|
let { int: source_node = 1;
|
|
int: sink_node = 2;
|
|
set of int: ARCS = index_set_1of2(arc);
|
|
set of int: NODES = index_set(balance);
|
|
} in
|
|
cost = sum(i in ARCS) (flow[i] * weight[i])
|
|
/\
|
|
forall (i in NODES) (
|
|
sum (j in ARCS where i == arc[j,source_node]) (flow[j]) -
|
|
sum (j in ARCS where i == arc[j,sink_node]) (flow[j])
|
|
= balance[i]
|
|
);
|