基于哈希查找的老窖字典

duquancai

在VBA中 用面向对象编程的思想，值得肯定！！！

today0427

下载好好学习 感谢老师分享！

today0427

另外借帖来真心实意喊个口号 我爱祖国 祖国万岁！挥旗ing……

aman1516

越来越需要大数据处理，太强了，想请教下老师，凑数案例中，除了刚好凑整与目标数完全一样的，可否还能按最接近目标数（最大值）的顺序，将剩余数的凑合方案也列出来

三坛老窖

aman1516 发表于 2017-10-1 17:01
越来越需要大数据处理，太强了，想请教下老师，凑数案例中，除了刚好凑整与目标数完全一样的，可否还能按最 ...

可以的，所有小于目标和值的子集和都在字典中，只要加一个循环（以最小单位为步长从下限到上限）即可获取在限定范围内的所有子集。也可在求子集和过程（Subset_SingleDict）中将
                    If curKey = Sum Then
                        GetSubsetNo vTemp(j), i, i
                        If Solve >= MaxSolve Then GoTo 200
                    ElseIf curKey < Sum Then
                        .Item(curKey) = .Item(curKey) & "," & i
                    End If
更改为：
                    If curKey <= 子集和上限 and  curKey >= 子集和下限 Then
                        GetSubsetNo vTemp(j), i, i
                        If Solve >= MaxSolve Then GoTo 200
                    ElseIf curKey < 子集和下限 Then
                        .Item(curKey) = .Item(curKey) & "," & i
                    End If
即可。

aman1516

三坛老窖 发表于 2017-10-1 19:34
可以的，所有小于目标和值的子集和都在字典中，只要加一个循环（以最小单位为步长从下限到上限）即可获取 ...

谢谢，基本明白，但若每个数据前面方案用过之后，后面不能再用，并求出最优化组合方案呢……似乎又转到规划求解或优化这类问题去了

jiaxinl

aman1516  2017-10-1 21:08
лл淽ù治 ...

()
[url=http://club.excelhome.net/forum.php?mod=viewthread&tid=1359141&extra=&mobile=2][/url]

jiaxinl

aman1516 发表于 2017-10-1 21:08
谢谢，基本明白，但若每个数据前面方案用过之后，后面不能再用，并求出最优化组合方案呢……似乎又转到规 ...

请看【香川群子】的凑数
利用背包算法解决分组凑数问题

三坛老窖

aman1516 发表于 2017-10-1 21:08
谢谢，基本明白，但若每个数据前面方案用过之后，后面不能再用，并求出最优化组合方案呢……似乎又转到规 ...

看你的提问，估计你也是在琢磨一维下料问题。
“若每个数据前面方案用过之后，后面不能再用”
这个可以实现。思路是这样的：
在提取一组子集后，在该子集对应的数据上做个标记，再在提取下一个子集时，如果碰上已被提取的数据时，则丢弃之。
实现方法是在反向追踪和值来源的子过程中，在那条递归语句前加一个判断即可。
“求出最优化组合方案”
不知这个最优化组合方案的具体含义，如果我猜得没错，是一维下料的最优方案，那么下一步就是根据前面提取的子集（也就是下料问题中的下料方式），用整数规划或线性规划求最优解。这是一般公认的通行做法。
呵呵，这个似乎离题了

lzqmsy

下载了,学习学习,谢谢楼主!