史上最酷的Excel VBA 组合算法代码

opiona · 发表于 2013-7-7 12:54

曲高和寡啊
仔细研究中.............
写算法，很厉害啊！

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

在Combin(50,5)= 2118760的计算过程中，我的实际a(j)=i 的赋值次数=2330635次

而Zamyi代码中，b(mm)的赋值次数是= 2349058，比我的算法多做了18423次
（虽然从次数上看只多了1% 不到，但实际浪费的时间会更多……因为还有其他运算）

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

'=================================================================
'史上最酷的Excel VBA组合算法【香川Do循环组合】代码特点:
'
'每一次Do……Loop循环都高效地改变一次数组a中组合状态

'用i变量作为元素 1 to m 中的位置指针
'用j变量作为组合结果 1 to n 的数组a位置指针

'用a(j) = i 变量直接赋值方法，比a(j) = a(j) + 1 方式的数组引用赋值要更快一些。

'用If j=n 作为末位循环以及 j-1退位，提高效率。

'并且增加了用 If i = m - n + j 作为退位条件，进一步提高了效率。
' 因为如果j后面状态相同就不用再作计算、变更了所以效率更高一些。
'=================================================================

thtfzhaobo · 发表于 2013-7-8 10:14

学习，支持研究

t8t · 发表于 2013-7-8 10:29

努力学习。。。怎么下载不了的？？？//

香川群子 · 发表于 2013-7-8 11:54

t8t 发表于 2013-7-8 10:29
努力学习。。。怎么下载不了的？？？//

附件上传过程中出错了吧。

现在已经重新更新上传了。你再下载后慢慢研究吧。

uustudy · 发表于 2013-7-8 13:18

崇拜学习{:soso_e102:}

tcy119 · 发表于 2013-7-8 13:44

哈哈，真快，占个位置，学习学习！！！！

Kelidai · 发表于 2013-7-8 22:56

这真是难得的学习贴。

香川群子 · 发表于 2013-7-15 14:07

自己顶一次。

香川群子的组合算法最棒！

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

[原创] 史上最酷的Excel VBA 组合算法代码

评分

浏览过的版块

[原创] 史上最酷的Excel VBA 组合算法 代码

评分

浏览过的版块

[原创] 史上最酷的Excel VBA 组合算法代码