如何求复杂函数最大值，这样为啥错了

Question

$Assumptions

Element[a1, Integers]

Element[a2, Integers]

Element[a3, Integers]

f[a_, b_, c_] := a*b*c/365

w1 = f[a1, 0.041, 50]

w2 = f[a2, 0.043, 100]

w3 = f[a3, 0.045, 180]

w4 = f[100 - a1 - a2, 0.031, 40]

w5 = f[a1, 0.0325, 90]

w6 = f[a2, 0.031, 40]

w7 = f[a3 + w3, 0.028, 30]

w8 = 100 - a3 + w1 + w2 + w4 + w5 + w6

w9 = f[w8, 0.044, 110]

w[a1_, a2_, a3_] := w8 + w9 + a3 + w3 + w7

FindMaximum[w, {a1, a2, a3}]

Answer 1

请参考函数“FindMaximum”的帮助文档，首先限制条件不那样写，FindMaximum不应该直接用函数名，应该类似于这种：

FindMinimum[{x + y, 
  3 x + 2 y >= 7 && x >= 0 && y >= 0 && x \[Element] Integers}, {x, 
  y}]

然后，Mma说在限制条件下找不到最优解。

 

Mma代码要粘贴在点编辑器按钮“”弹出的窗口中。