为什么规划求解出来的值，好像不是最佳。。。

boxes

为什么手工调整出来的利润值，比规划求解出来的值还大？求指教

boxes

规划求解值是8280，可手工调整后8320比它更优。。。问题在哪？

刀羊

需要修改条件看看

boxes

看过，没看出问题在哪。。。汗呀

刀羊

boxes 发表于 2019-3-16 20:09
看过，没看出问题在哪。。。汗呀

貌似是两个参数按其求解变化过程，第一次达到了极值即是 41 + 100，后面的就不再计算了。

zhenghui13

不知道是不是因为极值的问题.
我用VBA列出所有的可能值，规划求解好像是有点问题。

1. 'http://club.excelhome.net/forum.php?mod=viewthread&tid=1466255
   
2. '甲->a,乙->b
   
3. '部门一->A,部门二->B
   
4. Sub Combine_Max()
   
5. Dim a As Integer, b As Integer
   
6. Dim aMG As Integer, bMG As Integer
   
7. Dim A_a As Integer, A_b As Integer, B_a As Integer, B_b As Integer
   
8. Dim FxCost As Integer
   
9. Dim GP As Integer
   
10. Dim A_Vol As Integer
    
11. Dim B_Vol As Integer
    
12. Dim A_Limit As Integer
    
13. Dim B_Limit As Integer
    
14. Dim m As Integer
    
15. Dim status As String
    
16. Dim Arr(1 To 3)
    
17. 
    
18. m = 1
    
19. a = 1
    
20. b = 1
    
21. FxCost = 2000
    
22. MaxGP = 0
    
23. aMG = 80
    
24. bMG = 70
    
25. A_a = 4: A_b = 3
    
26. B_a = 6: B_b = 5
    
27. A_Limit = 500
    
28. B_Limit = 750
    
29. With Sheets("List")
    
30.     For a = 1 To 80                             '循环甲
    
31.         For b = 1 To 100                        '循环乙
    
32.             m = m + 1                           '行号
    
33.             GP = a * aMG + b * bMG - FxCost     '利润
    
34.             A_Vol = a * A_a + b * A_b           'A车间产量
    
35.             B_Vol = a * B_a + b * B_b           'A车间产量
    
36.             '检查量是否超过产能
    
37.             If A_Vol <= A_Limit And B_Vol <= B_Limit Then
    
38.                 status = "OK"
    
39.                 If GP > MaxGP Then      '最大利润值相关数据
    
40.                     MaxGP = GP
    
41.                     Arr(1) = a
    
42.                     Arr(2) = b
    
43.                     Arr(3) = GP
    
44.                 End If
    
45.             Else
    
46.                 status = "NOK"
    
47.             End If
    
48.             '数据输出至EXCEL
    
49.             .Cells(m, 1) = a
    
50.             .Cells(m, 2) = b
    
51.             .Cells(m, 3) = FxCost
    
52.             .Cells(m, 4) = GP
    
53.             .Cells(m, 5) = A_Vol
    
54.             .Cells(m, 6) = B_Vol
    
55.             .Cells(m, 7) = status
    
56.         Next b
    
57.     Next a
    
58. End With
    
59. For i = 1 To 3
    
60.     Debug.Print Arr(i)
    
61. Next i
    
62. End Sub

复制代码

astupig

问题出在整数约束的设置那里。把以下对应位置设置为0就可以了（默认是1%）。
因为如果是整数约束， 速度求解有点慢的， 所以规划求解默认选项1%的求解误差精度，这样误差精度小于1%即停止求解。


这个1%怎么算的呢。 你先取消整数约束，这样得到的结果是8333.33；
然后规划求解求啊求，发现有一组41，100（其实规划求解都是从顶点位置开始求的，单纯形法）的结果是8280，跟8333.33的误差在0.64%(（8333.33-8280)/8333.33=0.64%), 然后一拍板，就是它了，太累了， 老子不折腾了！所以这时候就停止求解，弹出41，100是最优解。

建议把1%设置成0%。

另外， 你可以把这个1%设置成0.5%，0.3%， 0.2%试试，这些都可能求出不同的解。 0%是全局最优解。