math - Mathematica 中的整数优化？

Question

我有一个整数规划问题。我有一根 10m 长的 pipe 。我想尽可能多地切出 1.2 米长的部分，然后将管道的其余部分切成 100 毫米的部分。我必须留出 100 毫米让机器抓取。我如何在 Mathematica 中对此进行优化？我想我可以把它作为一个平等来解决，但如果我只是想直接给出答案。基本上，尽可能多的 y，然后是 x:es。

Maximize[{x*100+y*1200, x*100+y*1200<9900},{x,y},Integers]只是给了我一个不平等情节。是的，我已经在 wolfram 上查看了说明。

Answer 1

由于9900和1200都是100的倍数，所以算法就是

TotLen = 9900;
numberOf1200pieces = IntegerPart[TotLen/1200];
numberOf100pieces  = IntegerPart[(TotLen - 1200 numberOf1200pieces)/100];

Print["Number of 1200mm pieces: ", numberOf1200pieces];
Print["Number of 100mm pieces: ", numberOf100pieces];
Print["Leftover: ", 9900 - numberOf1200pieces 1200 - numberOf100pieces 100,"mm"];

Number of 1200mm pieces: 8
Number of 100mm pieces: 3
Leftover: 0mm

你也可以试试:

Maximize[{x*100 + y*1200, x*100 + y*1200 == 9900}, {x, y}, Integers]
->{9900, {x -> 3, y -> 8}}