ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 彭希仁

[讨论]排列组合之最优算法

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-10-3 12:27 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

[讨论]彭希仁排列组合之最优算法(不重复)

本帖已被收录到知识树中,索引项:其他结构和算法
http://club.excelhome.net/thread-278319-1-1.html
请教各位高手,能不能不重复计算呀?即A列中的数字只用一次,得到在B 列中限定的位数。

TA的精华主题

TA的得分主题

发表于 2010-10-3 16:10 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
留个脚印,以后用时备查!

TA的精华主题

TA的得分主题

发表于 2010-10-13 15:46 | 显示全部楼层
彭版的思维能力太强了,我看了N遍代码的解释,也没有理解透彻。想改一下代码,怎么也不成功。请彭版赐教!
以6选3为例,如果被排序的数字顺序为:01 02 03 04 05 06
则输出结果为
03 02 01
04 02 01
04 03 01
04 03 02
05 02 01
05 03 01
05 03 02
05 04 01
05 04 02
05 04 03
06 02 01
06 03 01
06 03 02
06 04 01
06 04 02
06 04 03
06 05 01
06 05 02
06 05 03
06 05 04

如果被排序的数字顺序 改为:06 05 04 03 02 01"则输出结果如下
04 05 06
03 05 06
03 04 06
03 04 05
02 05 06
02 04 06
02 04 05
02 03 06
02 03 05
02 03 04
01 05 06
01 04 06
01 04 05
01 03 06
01 03 05
01 03 04
01 02 06
01 02 05
01 02 04
01 02 03
能否改成上面这样的结果由下向上输出,形成正向的序列。即
第1个输出结果为:01 02 03
最后一个结果为:04 05 06
中间的顺序也不变。

[ 本帖最后由 老伙计2008 于 2010-10-13 19:46 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-10-13 20:24 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
研究几天好像终于研究明白了,这样的算法无法实现按楼上要求的顺序进行组合。没办法了
彭版的递归算法也是效率最高的,可是我要对每一个组合进行逐一处理(即每产生一个组合处理一个),考虑效率问题,该方法无法使用。

TA的精华主题

TA的得分主题

发表于 2010-10-14 22:30 | 显示全部楼层
原帖由 灰袍法师 于 2010-10-13 20:29 发表


话说,更快的组合算法就是

for
for
......
而且你想怎么的顺序都可以。又何必一定要改彭版主的程序呢?

反正也就用那么一次.

原来用的就是for for for , 我想使用彭版的方法优化程序,效率损失小很,是可以接受的。
看我我只能改变原来的数据了

[ 本帖最后由 老伙计2008 于 2010-10-14 22:36 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-10-15 14:48 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
学习,收藏。

收藏,学习。

TA的精华主题

TA的得分主题

发表于 2010-11-1 15:43 | 显示全部楼层
厉害厉害,彭希仁又出新作品了!

TA的精华主题

TA的得分主题

发表于 2010-12-28 20:25 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-3-4 10:05 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
排列组合的方法  我也在统计中

TA的精华主题

TA的得分主题

发表于 2011-3-4 23:27 | 显示全部楼层
大侠们请留步~,因为一个古怪的问题需要用到组合后运算,偶套用了彭版的递归算法后迷茫了……如何在jj=jj+1后输出a前用a来引用arr里面的算出sheet2的B29:AE29的结果啊,正着急的说……
Book4Help.xls.Snap1.png
Book4Help.xls.Snap2.png

Book4Help.rar

17.09 KB, 下载次数: 33

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-16 21:42 , Processed in 0.036643 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表