剩余定律的自定义函数解法

香川群子

xiaomage1 发表于 2012-3-21 16:30
老师，您好，我有个关于排列组合的问题，liucqa 老师让我来请教您，您看有时间帮我看一下，多谢啦！！

...

问题看了。

应该有解决办法。

最好请你在附件中，写一些实际数据。

我好用来测试。


用我的附件吧。

NumCombin.zip (4.91 KB, 下载次数: 33)

2012-3-21 17:45 上传

点击文件名下载附件

xiaomage1

香川群子 发表于 2012-3-21 17:44
问题看了。

应该有解决办法。

恩，谢谢老师，附件如下：

香川群子

代码写到一半。先上传一个半成品吧。

明天继续。

xiaomage1

香川群子 发表于 2012-3-21 23:18  代码写到一半。先上传一个半成品吧。   明天继续。

恩，谢谢老师！

lzqlaj

楼主讲的是“孙子剩余定理”，收藏了，仔细研究。

香川群子

废了不少力气，把小马哥1的【万千百十个】五位数字组合分析程序编写完成了。

考虑到程序接口方便，我把数据形式又改了。
现在是改成，各种数字直接按ABCDE，即【万千百十个】方式拆开填入相应列。

这样计算就很方便了。


不过，如果你的原始数据就是ABC等代码，以及直接3位数值形式，
也问题不大。可以用代码自动整理数据，代码我已经写好了。在sheet3里就是整理结果。

香川群子

这个组合分析的要点，是对各种类型的组合不要产生遗漏。

主要思路如下：
每一组数值，如ABC，首先要检查它们和其它数字组合中，
要求其中有2个是相同的，然后才能符合条件，让新元素加入。

那么，假设对于ABC，则它任取2个以后的组合形式一共有3种：
1. A - BC
2. B - AC
3. C - AB

接着，依次检查所有数据中，符合有2个值相同的组合，即：
1. A - BC  →  检查 BC-D 或 BC-E
2. B - AC  →  检查 AC-D 或 AC-E
3. C - AB  →  检查 AB-D 或 AB-E

然后，对于这新的6种组合，都要再次进行检查：
举例，如对于A-BC-D 组合，且符合BC相同时，可以确定D值有效，
接下来，对于BCD这3个值的任意取2数进行组合检查，则有：
1. B -CD  →  CD-E  (即找到有CD也符合相同时，可最终确定 E值)
2. C -BD  →  BD-E  (即找到有BD也符合相同时，可最终确定 E值)
3. D -BC  →  BC-E  (即找到有BC也符合相同时，可最终确定 E值)

………………

这样，把第一步得到的前面6种组合，即：
1. A - BC  →  检查 BC-D 或 BC-E
2. B - AC  →  检查 AC-D 或 AC-E
3. C - AB  →  检查 AB-D 或 AB-E

其中每一个组合再产生3种可能的组合进行检查，就能得到所有的符合条件的组合结果了。

…………

总之，对于m个原始3位数的值，
都要检查 6*3*m=18*m 种组合。




为了高效计算，我在sheet2中做了辅助参数表，并使用了字典定位方式。
最后的计算速度倒还比较快。


以上。

dgxsdr

比较难理解，写了个不要动脑筋的
Sub aa()
Dim i As Integer
    For i = 1 To 10000
        If i Mod 5 = 4 And i Mod 7 = 6 And i Mod 3 = 2 And i Mod 11 = 0 Then
            MsgBox i
            Exit Sub
        End If
    Next i
    MsgBox "没有找到合适的数字"
End Sub

香川群子

dgxsdr 发表于 2012-3-22 14:23
比较难理解，写了个不要动脑筋的
Sub aa()
Dim i As Integer

嗯。确实如此。

用遍历方法强力破解，计算速度其实很快的。


…………
不过，我是从数学逻辑解题的角度来看，如何用代码实现。
实际计算次数是很少的几步。

dgxsdr

香川群子 发表于 2012-3-22 15:09
嗯。确实如此。

用遍历方法强力破解，计算速度其实很快的。

下载慢慢学习，感谢分享！