香川组合的递归代码

awalker · 发表于 2014-3-29 14:14

真的是太强大了，有谁可以代码解析一下吗，只懂一点for跟数组的，完全看不懂。

aoe1981 · 发表于 2014-4-13 12:19

本帖信息量极大，需花大量时间、精力研究……难望前者项背，叹服！

raku · 发表于 2014-4-13 12:54

收藏学习，虽然现在看不懂。

aoe1981 · 发表于 2014-4-13 22:16

香川群子发表于 2013-5-25 23:51
代码本身没问题

但是代码最好放在模块中使用，而不要放在sheet代码页中。

很复杂，得多花时间研究……递归时，尤其内部存在循环时，感觉很困惑的是程序的运行流程，一个exit sub半天搞不清楚退出的是哪一层……好在，选取元素的顺序是有规律的……还有就是变量众多，关系复杂……应当是先写一段核心的选取元素的代码的，以便清楚基本的算法，然后是逐步用变量代替，增强程序的适应性，最后浓缩的自然是精华，但过于抽象，不易于理解，思维缺少梯度……算了，再行慢慢参悟，白天打印到纸上，眼睛疼……

aoe1981 · 发表于 2014-4-15 20:05

香川群子发表于 2013-5-25 23:51
代码本身没问题

但是代码最好放在模块中使用，而不要放在sheet代码页中。

里头的组合递归代码如果强制声明变量时（Option Explicit），总是出错，使用Public sj, jg(), m, n, r, AC,j声明变量时，不管j声明成%，还是&，或者干脆就是j，变体型，最终结果也会出错，当然，取消Option Explicit时，又是正确的……这里头的变量关系确实复杂……

Furinkazan · 发表于 2014-4-15 20:35

看排列组合，香川独领风骚。真强，就是没看懂，遗憾

香川群子 · 发表于 2014-4-15 21:43

aoe1981 发表于 2014-4-15 20:05
里头的组合递归代码如果强制声明变量时（Option Explicit），总是出错，使用Public sj, jg(), m, n, r, A ...

你说的问题，上附件我来看一看问题在哪里。

aoe1981 · 发表于 2014-4-15 21:51

香川群子发表于 2014-4-15 21:43
你说的问题，上附件我来看一看问题在哪里。

　　好的，就下面的附件：
　　

复件营养菜谱.rar (13.82 KB, 下载次数: 21)

aoe1981 · 发表于 2014-4-15 21:53

香川群子发表于 2014-4-15 21:43
你说的问题，上附件我来看一看问题在哪里。

出错时是这样的：Public sj, jg(), m, n, r, AC, j，只要改成Public sj, jg(), m, n, r, AC
又是正确的了……不知道j应当是什么类型……代码我做过修改，但核心部分没变，也没法变，没弄明白！

天然棉毛裤 · 发表于 2014-4-15 21:53

香川老师，我想请教一下您有关于枚举不重复排列的那个代码。现有的代码可以罗列出所有的排列（Max N=8）。我想问问如果假设条件所有头尾相接的都整合为一个： 12345=51234=45123=34512=23451，然后这些统统返回成一项：12345.应该在程序里怎么添加呢？谢谢大神！！

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

[分享] 香川组合的递归代码