“没有最好，只有更好”——论坛“纠客”

香川群子 · 发表于 2013-7-6 20:34

Zamyi 发表于 2011-8-31 18:36
因为“没有最好，只有更好”。

Excel VBA本身是有能力界限的吧。

也许还会有比现在的代码更好、更快的代码出现。但总应该有一个极限吧。
某个世界纪录出现之后，也许就永远无人超越了（在相同电脑环境下。）

下面我的代码，已经超越了你的记录。
或许这已经是VBA数组对不定值任意组合通过循环遍历所有组合解的极限了……呵呵。

http://club.excelhome.net/thread-1033055-1-1.html

组合计算的核心代码如下：

Function Combin_Do(m&, n&) 'kagawa
Dim i&, j&, k&, r&
tms = Timer
ReDim a&(1 To n)
If n = m Then For j = 2 To n: a(j) = j: Next
i = 0: j = 1: k = 0
Do
' r = r + 1
i = i + 1: a(j) = i
If j = n Then
k = k + 1
If i = m Then If j = 1 Then Exit Do Else j = j - 1: i = a(j)
ElseIf i = m - n + j Then
k = k + 1
If j = 1 Then Exit Do Else j = j - 1: i = a(j)
Else
j = j + 1
End If
Loop
Combin_Do = Format(Timer - tms, "0.000s") & " kagawa Do Combin(" & m & "," & n & ")= " & k
End Function

复制代码

速度更快的原因主要有以下几个：
1、直接使用 i 变量作为元素位置，直接使用 j 变量作为组合位置
而a(j) = i 仅作为必须的状态记录，通过变量的有效使用大大提高了计算速度。

2. a(j) = i 每次循环对a(j)只有一次通过变量的直接赋值，比a(j) = a(j) + 1 这种方式要更快一些。

平时感觉不到，但组合遍历循环次数是一个很大的数值时，显然有提速效果。

3. 增加了 If i = m - n + j Then 这样的提前进入下一组循环的算法……

结果当然是有效地减少了总循环次数……效果明显。

…………呵呵

单纯进行组合运算显然不足以显示实用性。
因此把原始数据元素有效组合起来也存在一个效率的问题。

这个问题我承认你的Mid置换方法是最最高效的……我几年前就看到了你的相似用法，
因此在这个方面我的代码方法和你的代码方法是大同小异，殊途同归了……。

呵呵，详细请到我的帖子里去看一下附件吧。

香川群子 · 发表于 2013-7-7 13:08

也上个附件吧。

香川群子 · 发表于 2013-7-8 12:06

经确认，由于我的算法改进（在i=m-n+j时提前退出多余循环）

这个改进在组合取数n接近元素总数m时（>m/2），效果尤其明显。

比如，Combin(50,45)= 2118760 时
Zamyi 代码过程耗时 4.96s 是 Combin(50,5)= 2118760 时 0.82s 的 6倍。

而我的代码过程耗时 0.79秒仅仅是 Combin(50,5)= 2118760 时 0.48s 的 1.65倍。

另外
Zamyi 代码组合并Mid生成结果耗时 7.17s 是 Combin(50,5)= 2118760 时 1.01s 的 7倍。

而我的代码组合并Mid生成结果耗时 0.96秒仅仅是 Combin(50,5)= 2118760 时 0.55s 的 1.75倍。

因此，这时候算法产生的差异已经很大、很大了。

168baijian · 发表于 2013-8-9 10:15

牛人非常多呢,,,,,,谢谢!

wj2008wh · 发表于 2013-10-12 15:36

好东东看看

xgy0214dxy · 发表于 2013-11-17 14:03

楼主点拔，如雷灌耳，收藏了

smartpanda · 发表于 2015-1-28 13:40

学习了，高手交手真是精彩

人生如游戏 · 发表于 2016-7-7 17:34

高手过招，真爽，唯快不破

chchenping888 · 发表于 2020-2-26 22:12

好东西，有学习的了。

		自动登录	找回密码
密码			免费注册

[讨论] “没有最好，只有更好”——论坛“纠客”