最近遇到的排列组合问题

Kelidai · 发表于 2015-5-19 14:45

香川群子发表于 2015-5-18 13:18
按每一个元素一个单元格进行多行多列数组输出的代码。

这个比直接合并字符串处理要复杂。

群子大侠，我在实际工作中遇到如下问题，同一产品的不同工序必须按顺序排列，比如：

产品3工序1

产品4工序2

产品3工序3

符合要的排列组合只有：

这样的话代码应该如何修改？

PLZH-3.zip (20.49 KB, 下载次数: 7)

香川群子 · 发表于 2015-5-19 15:15

问题并没有说清楚。

bluexuemei · 发表于 2015-5-19 15:41

Sub test()
'需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
ojs.eval ("def aa(aa);$aa=aa.transpose;end")
y = ojs.Run("aa", Range("a1", [c1].End(4)).Value)
y = ojs.eval("$aa.map{|x|x.compact.map{|s|s.is_a?(Float)?(s.to_i):s}.permutation(x.compact.size).to_a}.reduce(&:product).map(&:flatten).map(&:join).zip")
[e1].Resize(UBound(y) + 1, UBound(y, 2) + 1) = y
'Stop
End Sub

复制代码

Kelidai · 发表于 2015-5-19 16:14

本帖最后由 Kelidai 于 2015-5-19 16:31 编辑

香川群子发表于 2015-5-19 15:15
问题并没有说清楚。

比如每列对应一个加工中心，在同一个加工中心，同一产品必须按相应的工序生产（工序不可以前后颠倒），

这样看来，加工中心1有三种排列组合，加工中心2有一种排列组合......加工中心6有一种排列组合
其实问题是下面的排程引起的，我现在的设计的排程只能排一种可能，并且不是最好的，我想列出所有可能的排程方案，通过计算找到最好的方案。

排程.zip (208.17 KB, 下载次数: 11)

香川群子 · 发表于 2015-5-19 16:56

Kelidai 发表于 2015-5-19 16:14
比如每列对应一个加工中心，在同一个加工中心，同一产品必须按相应的工序生产（工序不可以前后颠倒），
...

这说明你一开始就想错了。

每一列中根本就无需排列，你仅仅需要各种组合结果。

Kelidai · 发表于 2015-5-19 17:02

香川群子发表于 2015-5-19 16:56
这说明你一开始就想错了。

每一列中根本就无需排列，你仅仅需要各种组合结果。

是的，就是想要各种有效的排列组合

Kelidai · 发表于 2015-5-19 17:10

香川群子发表于 2015-5-19 16:56
这说明你一开始就想错了。

每一列中根本就无需排列，你仅仅需要各种组合结果。

是的，就是想要各种有效的排列组合

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

[求助] 最近遇到的排列组合问题