比组合算法更难的【排列算法生成器】代码

张雄友

期待1楼的每行代码都有 s = s & "  去掉，以适合更多有需要的人。

sanso

真的看不懂呀

香川群子

张雄友 发表于 2014-5-16 07:53
期待1楼的每行代码都有 s = s & "  去掉，以适合更多有需要的人。

张雄友，我知道你水平低，但【不懂不要乱说！！！】

你试过运行1楼代码了吗。

yangyangzhifeng

这个直接定位

1. Sub pailie4(ParamArray x())'直接定位法
   
2.     Dim starttime As Single, endtime As Single
   
3.     Dim i As Integer, j As Integer, k As Integer, Num As Long, n As Integer
   
4.     Dim ALL(), TEMP1 As Long, TEMP2 As Long
   
5.     n = UBound(x) + 1    '元素个数
   
6.     starttime = Timer    '开始计时
   
7.     Num = 1
   
8.     For i = 1 To n
   
9.         Num = Num * i  '递归计算n！
   
10.     Next
    
11.     For i = 1 To Num
    
12.         ReDim ALL(1 To n)    '初始化数组all
    
13.         ALL(1) = x(0)
    
14.         TEMP1 = i
    
15.         For j = 2 To n
    
16.             TEMP2 = TEMP1 Mod j
    
17.             TEMP1 = TEMP1 / j
    
18.             If TEMP2 = 0 Then
    
19.                 ALL(j) = x(j - 1)    'temp2为 0则放在最后
    
20.             Else
    
21.                 For k = j To TEMP2 + 1 Step -1
    
22.                     ALL(k) = ALL(k - 1)  ' temp2之后的元素后移一位
    
23.                 Next
    
24.                 ALL(TEMP2) = x(j - 1)    'temp2不为 0 则置于第temp2个元素前
    
25.             End If
    
26.         Next
    
27.         Debug.Print Join(ALL, " ")  '输出
    
28.     Next
    
29.     endtime = Timer
    
30.     Debug.Print "共 " & Num & " 种排列！用时 " & endtime - starttime & " 秒！"
    
31. End Sub

复制代码

香川群子

yangyangzhifeng 发表于 2014-5-17 13:30
这个直接定位

通用的排列方法代码也很多……

我所知道的就有五六种。循环、递归都可以。

除了按字典顺序输出结果的算法，
还有不按照字典顺序输出结果的算法……

panzibao

我发个附件你就看懂了

香川群子

panzibao 发表于 2014-5-22 13:01
我发个附件你就看懂了

对于A列7个长度尺寸，可以有下面34个组和解。
但是系数是否在B列范围内则不论。因为我的程序没有做范围限定……
你可以手工确认一下。

700=82*7+126*1
700=82*4+120*1+126*2
700=82*1+120*2+126*3
704=82*4+120*2+136*1
704=82*1+120*3+126*1+136*1
705=82*1+120*4+143*1
705=82*2+126*1+136*2+143*1
702=82*2+126*2+143*2
701=136*2+143*3
704=82*2+126*2+136*1+152*1
705=82*5+143*1+152*1
705=82*2+120*1+126*1+143*1+152*1
703=136*3+143*1+152*1
700=126*1+136*1+143*2+152*1
701=120*1+143*3+152*1
702=126*1+136*2+152*2
703=120*1+136*1+143*1+152*2
702=82*3+152*3
702=120*1+126*1+152*3
700=82*5+136*1+154*1
700=82*2+120*1+126*1+136*1+154*1
701=82*2+120*2+143*1+154*1
705=136*3+143*1+154*1
702=126*1+136*1+143*2+154*1
703=120*1+143*3+154*1
704=126*1+136*2+152*1+154*1
701=126*2+143*1+152*1+154*1
705=120*1+136*1+143*1+152*1+154*1
704=82*3+152*2+154*1
704=120*1+126*1+152*2+154*1
700=120*1+136*2+154*2
703=126*2+143*1+154*2
700=120*2+152*1+154*2
702=120*2+154*3

香川群子

panzibao 发表于 2014-5-22 13:01
我发个附件你就看懂了

【就是数字用过一次就没在用第二次】

这句话真心看不懂。

香川群子

panzibao 发表于 2014-5-15 19:40
求助高手，比如一排随机数字它们总和在700-705之间的排列，用过的数不算在同个排列里，这样的能不能做

根据你的附件，你可以去下面这个链接，下载18楼附件使用。

http://club.excelhome.net/thread-793469-2-1.html

panzibao

我这样说吧，我是做材料的，一根705长的材料要切成不同尺寸的材料，所以想要做个计算表格，就是把不同长度的尺寸输进去，就显示一根材料应该什么切，关键705这个数字可以改的才好
，谢谢！