香川组合的递归代码

香川群子

天然棉毛裤 发表于 2014-4-15 21:53
香川老师， 我想请教一下您有关于枚举不重复排列的那个代码。现有的代码可以罗列出所有的排列（Max N=8）。 ...

没看明白你的意思。

请上附件。

说明待处理的数据，想要实现的结果（手工列举一些正确的结果）

aoe1981

aoe1981 发表于 2014-4-15 21:51
　　好的，就下面的附件：
　　

目前没有使用子程序yinyangcaipu()，不要受此影响，我只是想用您的代码改造我的解决方案……目前未完成……

aoe1981

天然棉毛裤 发表于 2014-4-15 21:53
香川老师， 我想请教一下您有关于枚举不重复排列的那个代码。现有的代码可以罗列出所有的排列（Max N=8）。 ...

照你意思就是求组合了，不是求排列的问题，组合不考虑元素的位置顺序……

天然棉毛裤

香川群子 发表于 2014-4-15 21:58
没看明白你的意思。

请上附件。

谢谢老师回复我！ 我引用的是老师在其他网站上发表过的一段代码。
draft.rar (16.42 KB, 下载次数: 28)

2014-4-15 22:10 上传

点击文件名下载附件
VBA 文件

1. [quote]Dim sj, jg(), m%, n%, k
   
2. Sub kagawa_Permut()
   
3.     tms = Timer
   
4.     m = [a1].End(4).Row
   
5.     sj = [a1].Resize(m)
   
6.     n = [b1]
   
7.     If n = 0 Or n > m Then n = m
   
8.    
   
9.     AP = WorksheetFunction.Permut(m, n)
   
10.     ReDim jg(AP, n)
    
11.     k = 0
    
12.    
    
13.     Call dgPL("", 0)
    
14.     MsgBox Format(Timer - tms, "0.000s")
    
15.     [b3] = AP
    
16.     If k < 65536 Then [d1].CurrentRegion = "": [d1].Resize(AP, n + 1) = jg
    
17. End Sub
    
18. Sub dgPL(s, t)
    
19.     If t = n Then
    
20.         p = Split(s, ",")
    
21.         For j = 1 To n
    
22. '            jg(k, j) = sj(p(j), 1)
    
23. '            jg(k, 0) = jg(k, 0) & "," & sj(p(j), 1)
    
24.             jg(k, 0) = jg(k, 0) & sj(p(j), 1)
    
25.         Next
    
26. '        jg(k, 0) = Mid(jg(k, 0), 2)
    
27.         k = k + 1
    
28.         Exit Sub
    
29.     End If
    
30.     For j = 1 To m
    
31.         If InStr(s & ",", "," & j & ",") = 0 Then Call dgPL(s & "," & j, t + 1)
    
32.     Next j
    
33. End Sub[/quote]

复制代码

香川群子

aoe1981 发表于 2014-4-15 21:53
出错时是这样的：Public sj, jg(), m, n, r, AC, j，只要改成Public sj, jg(), m, n, r, AC
又是正确的了 ...

j 是递归过程中的变量，不应当定义为公共变量。

如果需要强制声明变量，那么应该在递归过程中进行声明：

Sub zhdg(s$, i, t%)
    Dim j '在这里声明变量j即可
    If t = n Then jg(r) = Mid(s, 2): r = r + 1: Exit Sub
    For j = i + 1 To m
        Call zhdg(s & "_" & j, j, t + 1)
    Next j
End Sub

香川群子

请注意上面这个递归组合算法代码，只是便于理解，并非高效的代码。

aoe1981

香川群子 发表于 2014-4-15 22:17
j 是递归过程中的变量，不应当定义为公共变量。

如果需要强制声明变量，那么应该在递归过程中进行声明 ...

唉呀呀，搞定了，真是画龙点睛啊，四两拔千金，化腐朽为神奇，大师手笔，轻轻一下，问题搞定！多谢……

天然棉毛裤

香川群子 发表于 2014-4-15 21:58
没看明白你的意思。

请上附件。

不知道附件里面有没有说清楚想要实现的结果。

举一个例子吧，比如数据是1，2, 3
如果按照一般枚举可能性有：123,132,213,231,312,321六种，如果加入首尾可以循环的条件：123=231=312,132=321=213，那实际只有两种。

谢谢老师啦！！

aoe1981

香川群子 发表于 2014-4-15 22:19
请注意上面这个递归组合算法代码，只是便于理解，并非高效的代码。

http://club.excelhome.net/thread-1033055-1-1.html
是不是最优的算法在上面的帖子里？我所遇到的问题都是普通的问题，您所说的“最优”可能考虑更为长远、宏大，从解决问题的角度来说，对我暂时没有多大的分别，精力、智力毕竟有限，只愿有朝一日，遇到了，我会毫不犹豫的推荐有个叫“香川群子”的是这方面的权威！

aoe1981

香川群子 发表于 2014-4-15 22:17
j 是递归过程中的变量，不应当定义为公共变量。

如果需要强制声明变量，那么应该在递归过程中进行声明 ...

那话说回来，到底是什么原因了？是不是把j定义成公共变量后，在过程结束后，变量的值并没有释放所造成的？