[求助]如可开料, 最节省?

kowloon

为环保, 为金钱, 请各位大侠帮忙

具体要求见附件

 

 

KGsmK1KK.rar (8.74 KB, 下载次数: 1100)

2008-3-21 01:09 上传

点击文件名下载附件
[求助]如可开料, 最节省?

 

[em06][em06][em06]

彭希仁

此题如果要求到最优的结果,是有难度的,只能求到比较接近结果,虽然这样,都比较耗时耗力,建议做为下一期竟赛题.

kowloon

感谢彭大师的回复

首先是看到EH另一同类帖, 感觉相当有意思及实用价值, 但专注了十多小时后,

所写的VBA洋洋万字, 几十个变量, 无数for循环及goto, if 更加不计其数, 连最初级的Cell. Select, Offset等我经常不愿用的语句都广泛被使用, 修修改改无数次, 经常进入死循环及死机, 速度亦相当慢, 最后感觉是无能为力, 才开此新帖求助。

此题尚有一难点, 是如何设计工作表, 以便程序易写及运行畅顺。

另一问题是数据会有巧合性的存在, 不同的已知数据, 及相同的已知数据但不相同的排序, 对运算速度及结果都会有所不同

附件的工作表环境亦是修改多次才完成, 不一定是最好

由于已专注此题相当长时间, 我当然希望能作为竞赛题, 望版主成全

zasdf

谢谢各位高手朋友们对我工作难题的关注，

在下感谢涕零。

特别感谢kowloon 朋友及版主的热心支持谢谢

tangjie22345

用规划求解功能或许会较好地解决这个问题

kowloon

QUOTE:

以下是引用tangjie22345在2008-3-22 0:16:13的发言：
用规划求解功能或许会较好地解决这个问题

几乎没有正式使用过规划求解

但规划求解是需要公式的, 公式是什么呢? 如能编此公式, 简直是神

而且规划求解每次只填一个单元格, 相信远远不可能满足此题要求

彭希仁

Public arr2, yy
Sub peng()
    arr = Cells(5, 1).Resize(13, 2)
    x = [b3]
    y = 3
    Do
        y = y + 1
        arr1 = arr
        yy = 6300
        Call xi(arr1, 1, 6300)
        z = 0
        For i = 1 To 13
            Cells(i + 4, y) = arr(i, 2) - arr2(i, 2)
            z = z + arr2(i, 2)
        Next i
        If z = 0 Then Exit Sub
        arr = arr2
    Loop
End Sub

Sub xi(arr, x, y)
    If y < yy Then         '求最小值
        yy = y
        arr2 = arr
        If yy = 0 Then
            Exit Sub
        End If
    End If
    For i = x To 13
        If y - arr(i, 1) >= 0 Then
            If arr(i, 2) > 0 Then
                arr1 = arr
                arr1(i, 2) = arr1(i, 2) - 1
                Call xi(arr1, i, y - arr(i, 1))
            End If
        End If
    Next i
End Sub

试了一下,还没有人脑好使.代码有等优化

kowloon

感谢彭大师的VBA代码

初步测试, 速度快, 结果正确, 省料程度差一点点

虽不是至优的结果, 但应用上已可接受

在下的程度无法实时理解vba内的语句及思路, 需要一些时间吸收

彭希仁

其实后面还可以通过贪婪对数据进行修正,还是有望提高省料.

kowloon

我的文件, 大致完成

不会彭版主的百子千孙, 宏中有宏的语法及大脑无法自然反射此类思路, 唯有用我个人惯常使用的初级土方法编写, 效果尚可接受, 速度及VBA的简洁性则笑大人个口。

贪婪对数应是大学数学系或计算器系程度, 对于我这个初中程度的老人家, 太高不可攀了

 

Sj0S6jXi.rar (29.6 KB, 下载次数: 995)

2008-3-23 01:10 上传

点击文件名下载附件
[求助]如可开料, 最节省?

 

[em04]