终极武器 : 解决无记认凭证的对账(多张发票凑数字凑金额) - 需要装Lingo软件

灰袍法师

原帖由 sunsoncheng 于 2009-1-29 15:00 发表
Lingo8 Full Version.rar及那个DLL文件
也传上来算了，又要装电骡，多麻烦

破解的DLL文件在6楼
Lingo8 差不多20M，传上论坛太麻烦了，google可以找到下载的，也不一定要电骡

灰袍法师

原帖由 irisbabe 于 2009-1-29 14:57 发表
每次解出都只有一个解....而我印象中,有时一个总值往往会有很多个解.......多解的情况.
不知道如何才能在excel种体现出多个解呢??
谢谢:)

这个问题很好。我没有在附件做这一步是因为比较繁复，而太复杂的东西很多筒子不喜欢看的。
我自己的做法是：
1 添加一列随机的权重（权重数值取45000-55000之间），求数字总和等于指定值，权重最大的方案
2 求数字总和等于指定值，权重最大，但是添加约束条件权重要小于上一次求解，这样可以反复找出多个解

但如果要找全部解的话，这个做法不是很好，如果全部解超过1000个，那么还是要花很长时间的。

其实这个问题应该是先解决有多少个解，然后才是求详细的解。
要知道有多少个解倒是比求解简单得多，纯粹展开多项式的问题。

xpm130

原帖由 灰袍法师 于 2009-1-29 17:56 发表



1 添加一列随机的权重（权重数值取45000-55000之间），求数字总和等于指定值，权重最大的方 ...

又搞不来了,法师能详细些吗?

江湖胖公子

同意13楼同学的意见，强烈要求详细讲解

灰袍法师

其实最简单的求另一个解的方法就是把数据重新排序，这样Lingo多半就会找出另一个解。

加入权重以后，运算速度大大降低了，确实不是很好的方法。

如果求出的解数据量不多，也可以尝试把其中一个数据改为0，这样也可以强迫Lingo去找另一个解了。

yagi2008

多个解可以通过规划求解来得到~

wolf412

Lingo 11 的破解
我安装运行很正常的
可惜没有办法穿上来的

灰袍法师

求多个解的方法

方法1
如我在15楼所言，随机排序，或者强制把已选择的某个数值改为零，都可以找到另一个解，但是对于想找出全部解的人来说，这样做并不方便，对于只想找几个解的人来说，这个方法比较好。

方法2
附件增加权重指标，可以用区间法逐步指定求解的权重上限下限，理论上可以找到所有解
实际上，由于以下理由，并不一定可以找到全部解的
a. 增加权重后，运算速度降低10倍以上，所以没有那么多时间；
b. 合要求的解可能有成百个，人手调整权重的上下限会累死，而即使用VBA去控制求解，还是可能跟理由a一样，运算时间太长
c. 可能存在多个解的权重刚好一样大，这样就只能求出其中的一个解了。
以附件的数据为例，至少有19个解，但是一一找出来还是很麻烦的。

Lingo 跟 Excel 的结合真可谓天衣无缝啊，可惜有时候会无缘无故运行出错，不知道是不是破解版的原因。

[ 本帖最后由 灰袍法师 于 2009-2-1 18:21 编辑 ]

xpm130

法师辛苦了，多谢！
我在实际应用中只要3、5个解也够了。按您15楼的方法就好用了。

safejkp

谢谢法师啊，正在研究，可能要花多点时间才知道！见笑了！我是菜鸟！