2014新年元旦第一强帖：实用凑数凑金额高效递归剪枝算法

zm19782001

万分感谢香川。这个问题困扰我好久了。必须感谢！

office8424

香川老师这个算法,在业界有没有颁发过什么奖章啊!!!!这个绝对可以归纳到高等数学里面去了!!!

香川群子

office8424 发表于 2014-6-5 15:20
香川老师这个算法,在业界有没有颁发过什么奖章啊!!!!这个绝对可以归纳到高等数学里面去了!!!

这个算法也不是在技术上有很大的创新，值得颁奖。


但是，在个人电脑上，实际应用方面，尤其是仅仅依靠简单那的VBA代码就能达到如此效果，
应该说我自己都认为、称之为世界第一毫无夸张。

因为VBA的低级应用方面，并没有高级人才在这里下工夫。所以我就毫不客气地世界第一了，呵呵。


…………
如果你有兴趣，我准备写个长帖，把算法原理好好介绍一下啊。

office8424

香川群子 发表于 2014-6-25 16:18
这个算法也不是在技术上有很大的创新，值得颁奖。

我当然有兴趣!!!!高等数学在基础实践中的运用,写篇论文都可以了,你写好卖给毕业生,包赚!!!话说我只能给你鲜花其他给不了哈哈!!!

codexq

跟楼主思路差不多：先快速排序→递归实现深度优先搜索，剪枝只用到是否比目标数大这个条件

跟lz思路不一样的地方就是，程序检测到一个解的时候马上退出。我测试了很多组随机数（每组50个数），即使在4位小数的情况下，都基本上不存在唯一解。

但是在小样本的情况下，例如每组20个数，基本上都存在唯一解。

lz你的程序用了剪枝，但是你把整棵树除了剪枝部分都遍历了，有点本末倒置了，深搜本来就是在找到答案后马上退出才显出优势。如果lz你要现实所有答案，不放利用do循环进行广搜。

2007小金猪

先收藏，再学习，感谢Eh老师的无私支持

香川群子

codexq 发表于 2014-7-4 20:02
跟楼主思路差不多：先快速排序→递归实现深度优先搜索，剪枝只用到是否比目标数大这个条件

跟lz思路不一 ...

我的程序是实用化的，并不是你想象的那么简单。

如果只需要得到1个解，那么设置求解个数=1即可。

当然，也可以设置为其它指定个数解，直至所有解。

并且，如果要得到所有解，我的程序也是速度效率很高的，肯定比你想象中的广搜要快。呵呵。


你有兴趣的话，还是继续深入研究一下代码吧。

…………
至于包含负数，结果排除重复值……小数位设置及向上取整模糊计算……呵呵。

lightringer

大神您好，我有49个数，需要抽出三个组合，分别有一个和，需要同时求出三个组合，能否实现

b,c,d∈{0,1}

A=[a1:a49]

B=[b1:b49]

C=[c1:c49]

D=[d1:d49]

Sum(A*B)=x

Sum(A*C)=y

Sum(A*D)=z

Sum(B*C)=0

Sum(B*D)=0

Sum(C*D)=0

a,x,y,z是已知量，求B，C，D

即是求从49个数中，抽出若干组成三种组合，各组的和分别为x，y，z

香川群子

lightringer 发表于 2014-7-5 21:19
大神您好，我有49个数，需要抽出三个组合，分别有一个和，需要同时求出三个组合，能否实现

没看懂，你应该上附件说明。

byhyxb

大侠之作，学习了