小说网 找小说 无限小说 烟雨红尘 幻想小说 酷文学 深夜书屋

2004年7月24日

如何得到某集合的所有子集合?

摘要: 我们都知道,一个含n个元素的集合拥有2^n个子集合,并且不难发现,其中每个子集合都是从0到2^n-1 每个数的二进制格式中0 放弃,1选择的结果,如下所示: {} 000 {1} 100 {2} 010 {1,2} 110 {3} ... 阅读全文

posted @ 2004-07-24 16:04 王峰炬 阅读(142) 评论(0) 推荐(0) 编辑

再谈八皇后问题

摘要: 题目: 十九世纪著名的数学家高斯提出:在8×8格的国际象棋棋盘上摆放八个皇后,使其不能互相攻击,即任意两个皇后都不能处于同一行、同一列或同一斜线上,问有多少种摆法。 分析: 其实问题可以转化为12345678的满足某种条件(行已不等,列亦不等,只需设定其不在同一斜线上,即斜率不为 1 或-1 )的... 阅读全文

posted @ 2004-07-24 00:16 王峰炬 阅读(117) 评论(0) 推荐(0) 编辑

2004年7月23日

关于走楼梯的递归算法

摘要: 题目: 一个共有20个台阶的楼梯,从下面走到上面。一次只能迈一个台阶或两个台阶,并且不能后退,走完这个楼梯共有多少种方法。 分析: 1 步台阶只有1种走法(1) 2步台阶2种(11、2) 3步台阶有3种(111、12、21) 4 步台阶有5种(1111、112、121、211、22) 5 步台阶有... 阅读全文

posted @ 2004-07-23 07:12 王峰炬 阅读(365) 评论(0) 推荐(0) 编辑

2004年7月21日

非递归实现不重复序列的全排列(三)

摘要: ?笔者曾利用进制转换实现不重复序列全排列(http://blog.csdn.net/northwolves/archive/2004/07/21/47400.aspx),但从0 循环到n^(n-1)-1,效率实在不高,经过仔细分析,发现一个另人激动的规律,详情见下表: ? A ? BA ... 阅读全文

posted @ 2004-07-21 16:43 王峰炬 阅读(123) 评论(0) 推荐(0) 编辑

非递归实现不重复序列的全排列(二)

摘要: 下面给出一个回溯算法的代码,在VertyNew(华) 网友提供代码(http://community.csdn.net/Expert/topic/2909/2909080.xml?temp=.9990503)基础上稍作修改: Sub pailie2(ParamArray x())Dim start... 阅读全文

posted @ 2004-07-21 14:39 王峰炬 阅读(88) 评论(0) 推荐(0) 编辑

非递归实现不重复序列的全排列(一)

摘要: 笔者曾写过利用递归实现不重复序列全排列的例子http://blog.csdn.net/northwolves/archive/2004/04/07/19590.aspx 现在给出另一个利用进制实现的代码: Sub pailie1(ParamArray x())Dim starttime As Si... 阅读全文

posted @ 2004-07-21 14:29 王峰炬 阅读(106) 评论(0) 推荐(0) 编辑

完整的将日期时间转换为汉字的代码

摘要: 下面的代码可以将任意日期(1000-01-01 0:0:0------>9999-12-31 23:59:59)转换为汉字显示 Function datename(ByVal mydate As String) As String Dim i As Long, mystr(6) As String... 阅读全文

posted @ 2004-07-21 14:12 王峰炬 阅读(223) 评论(0) 推荐(0) 编辑

2004年6月9日

大数阶乘的计算(六)

摘要: 前些时间写的关于大整数的阶乘计算,效率总是再难以提高:(http://dev.csdn.net/develop/article/28/28306.shtm,http://dev.csdn.net/develop/article/28/28308.shtm,http://dev.csdn.net/d... 阅读全文

posted @ 2004-06-09 10:08 王峰炬 阅读(186) 评论(0) 推荐(0) 编辑

2004年6月7日

大数阶乘的计算(五)

摘要: 很难想象只要改动几句代码就可以大幅提高执行的效率,在前几篇文章中我写了几种大数阶乘的算法(http://www.csdn.net/Develop/read_article.asp?id=28306,http://www.csdn.net/Develop/read_article.asp?id=28... 阅读全文

posted @ 2004-06-07 09:59 王峰炬 阅读(106) 评论(0) 推荐(0) 编辑

2004年6月5日

整数幂的求解

摘要: 求整数的幂: Private Sub Command1_Click()power 64, 10000' 64^10000End SubSub power(ByVal x As Long, ByVal n As Integer, Optional ByRef result As String)D... 阅读全文

posted @ 2004-06-05 20:27 王峰炬 阅读(139) 评论(0) 推荐(0) 编辑

导航