作者neocc (neo)
看板Visual_Basic
标题[VBA ] 列出矩阵内所有排列组合的值
时间Sat Nov 10 14:53:18 2012
请问我要怎麽列印出矩阵里面的值 所有排列组合的状况呢?
ex: M={(1,2),(3,4)} 印出 col1 col2
row1 1 2
row2 1 4
row3 3 2
row4 3 4
共有四种 印到储存格里面
M={(1,2),(3,4),(5,6)} 会有9种组合
这是简单的情况..
我的矩阵内 情形是这样 M是7*7, 里面会有0值与非零值 以下是举例
M={(1,2,0,0..,0),(9,5,3,1,0..0),(7,6,3,0,0..0),(0,0,0...0)....(0,0,...0)}
我印出来的条件 :
1, 遇到有 组合里面有0的就不印 例如(1,3,7,0,0,0,0)这种组合
==========如果能达到第一条件写出这样小弟已经很佩服..以下是附加条件
2, (1,2,x,y,z,a,b),和 (2,1,x,y,z,a,b)这种组合 是一样的
(第1和2数字互调视为相同)
3, (1,x,y,2,z,a,b),和 (2,x,y,1,z,a,b)这组合 是不一样的
就是第一, 第二数字 彼此互调 视为相同组合
其他位置的数字互调 都算不同组合
==========全部达到的话我觉得是神人了>< 我想超久阿!!
想了好久...想不出来= =
敬请高手帮忙!!!
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.193.71.35
※ 编辑: neocc 来自: 123.193.71.35 (11/10 15:06)
※ 编辑: neocc 来自: 123.193.71.35 (11/10 15:12)
※ 编辑: neocc 来自: 123.193.71.35 (11/10 15:15)
1F：推 chrisjon:把第1和2个字排列，然後check 1和2 有没有相同 这样呢? 11/10 19:17
2F：→ yauhh:最前面row1有写错吗? 1 2 ?? 11/10 21:59
3F：→ MOONRAKER:想了好久 想到了什麽 写出来瞧瞧 11/10 22:37
4F：→ MOONRAKER:这个元素检查简单得很。凑元素排列还难一点。 11/10 22:42
5F：→ neocc:谢谢各位^^ 11/11 00:20