Jip J. Dekker
f2a1c4e389
git-subtree-dir: software/mza git-subtree-split: f970a59b177c13ca3dd8aaef8cc6681d83b7e813
85 lines
1.9 KiB
MiniZinc
85 lines
1.9 KiB
MiniZinc
% RUNS ON mzn20_fd
|
|
% RUNS ON mzn-fzn_fd
|
|
% RUNS ON mzn20_fd_linear
|
|
% RUNS ON mzn20_mip
|
|
% RUNS OM minizinc_cpx
|
|
|
|
%% Product example from the OPL book!
|
|
%% product_int.mzn
|
|
%% Ralph Becket June 26 2007
|
|
%%
|
|
%% This is a version of product.mzn changed to use FD integers rather than
|
|
%% LP floats (everything has been scaled up by 10).
|
|
|
|
%enum Products = {kluski, capellini, fettucine};
|
|
int: NumProducts = 3;
|
|
set of int: Products = 1..NumProducts;
|
|
int: kluski = 0;
|
|
int: capellini = 1;
|
|
int: fettucine = 2;
|
|
|
|
%enum Resources = {flour, eggs};
|
|
int: NumResources = 2;
|
|
set of int: Resources = 1..NumResources;
|
|
int: flour = 0;
|
|
int: eggs = 1;
|
|
|
|
array[Products] of int: demand = [100, 200, 300];
|
|
array[Products] of int: insideCost = [60, 80, 30];
|
|
array[Products] of int: outsideCost = [80, 90, 40];
|
|
array[Products, Resources] of int: consumption =
|
|
[|5, 2
|
|
|4, 4
|
|
|3, 6
|
|
|];
|
|
|
|
array[Resources] of int: capacity = [200, 400];
|
|
|
|
% Original specification:
|
|
%
|
|
% array[Products] of var int: inside;
|
|
% array[Products] of var int: outside;
|
|
%
|
|
% Preprocessed one restricting the domains to relevant finite ranges:
|
|
|
|
array[Products] of var 0..max(capacity): inside; % from constraints 1 and 2
|
|
array[Products] of var 0..max(demand): outside; % from constraints 1 and 3
|
|
|
|
constraint
|
|
forall (p in Products) (
|
|
inside[p] >= 0
|
|
/\ outside[p] >= 0
|
|
);
|
|
|
|
constraint
|
|
forall(r in Resources) (
|
|
sum (p in Products) (
|
|
consumption[p, r] * inside[p]
|
|
)
|
|
<=
|
|
capacity[r]
|
|
);
|
|
|
|
constraint
|
|
forall(p in Products) (
|
|
inside[p] + outside[p] >= demand[p]
|
|
);
|
|
|
|
solve minimize
|
|
sum (p in Products) (
|
|
insideCost[p]*inside[p] + outsideCost[p]*outside[p]
|
|
);
|
|
|
|
output [
|
|
"production planning (FD version)\n",
|
|
" \tkluski\t\tfettucine\tcapellini\n",
|
|
"make inside: \t",
|
|
show(inside[1]), "\t\t",
|
|
show(inside[2]), "\t\t",
|
|
show(inside[3]), "\n",
|
|
"make outside: \t",
|
|
show(outside[1]), "\t\t",
|
|
show(outside[2]), "\t\t",
|
|
show(outside[3]), "\n"
|
|
];
|