还是靠VBA来帮我计算最少用你多少根棍子吧

饮苦食毒 · 发表于 2012-9-14 05:26

每一根全新的木棍的长度是2000mm，现在需要一些不同长度的短木棍，问：要截成这么多的短木棍，最少需要多少根2000mm长的新木棍？

短木棍长度	需要的数量
800	10
600	4
1500	65
700	6
450	7
200	76

貌似公式不太靠谱，规划求解又不想用（也不知道是啥来着），所以还是请求大师们帮忙整个VBA吧，不行，给个思路也可以啊，急等！！！！

kuangben8 · 发表于 2012-9-14 08:01

这题有点意思，关注一下。

840205910 · 发表于 2012-9-14 08:02

VBA也要有算法，它只不过是命令。
就这些数据的话，手工算：1500、450、200的拼65根；800、600拼2根；800、700拼6根；800拼1根。
累计74根

840205910 · 发表于 2012-9-14 08:30

数据如果复杂时，至少有几条优先：长度 > 1/2总长度的，必须取1根：2000 x 65 =1500x65 +500x65
                                             能够拼整的：2000x 2  =800x2+600x4
                                             零头拼的：2000x7  =800x8+700x6+200x2+500x6
                                                         500x7=450x7
                                                         500x37=200x74

840205910 · 发表于 2012-9-14 08:44

1500x65+(800x2)x5+(700x2+600x1)x3+(600x1)

840205910 · 发表于 2012-9-14 08:47

目前来说，人脑能想到的电脑恐怕还做不到

pp9257 · 发表于 2012-9-14 09:20

规划求解做的事

840205910 · 发表于 2012-9-14 09:55

pp9257 发表于 2012-9-14 09:20
规划求解做的事

这么复杂的条件，规划求解能不能完成？

小倒霉蛋子 · 发表于 2012-9-14 10:03

Sub Test()
Columns("A:B").Sort Key1:=Range("A2"), Order1:=xlDescending
arr = Range("A1").CurrentRegion
Do
myNum = myNum + 1
n = UBound(arr) - 1
myLength = 2000
For i = 2 To UBound(arr)
If arr(i, 2) > 0 Then
If myLength - arr(i, 1) >= 0 Then
myMod = myLength Mod arr(i, 1)
myNum2 = (myLength - myMod) / arr(i, 1)
For ii = 1 To myNum2
If arr(i, 2) > 0 Then
myLength = myLength - arr(i, 1)
arr(i, 2) = arr(i, 2) - 1
End If
Next ii
End If
End If
If arr(i, 2) = 0 Then n = n - 1
Next i
Loop Until n = 0
MsgBox myNum
End Sub

复制代码

pp9257 · 发表于 2012-9-14 11:09

小倒霉蛋子发表于 2012-9-14 10:03

我觉得代码是算法过于简单，很多情况都没考虑到的。。
明显的举例
1250 10
1100 33
800 45
700 65
450 10
手工计算，至少要79根
代码计算77根

		自动登录	找回密码
密码			免费注册

[求助] 还是靠VBA来帮我计算最少用你多少根棍子吧

点评

评分