tedzheng13-优快云博客

转载统计中位值的一般概念

转自:http://blog.sciencenet.cn/blog-349948-832667.html

2016-02-20 11:18:12 3122

原创 Josephus环

约瑟夫问题是个有名的问题：N个人围成一圈，从第一个开始报数，第M个将被杀掉，最后剩下一个，其余人都将被杀掉。例如N=6，M=5，被杀掉的人的序号为5，4，6，2，3。最后剩下1号。方法一.a Option Explicit '用元素循环的方法解决Joseph环的问题 Sub Joseph_1() '定义元素长度，关键值 Dim m&, n& '定义元素数组,变量 Dim arrM(), iM

2015-12-17 12:32:34 361

转载全排列（序)

原理: http://wenku.baidu.com/view/4550ed19a300a6c30c229f3b.html 列出全排列的初始思想：解决一个算法问题，我比较习惯于从基本的想法做起，我们先回顾一下我们自己是如何写一组数的全排列的：1,3,5,9 1，3，5，9.（第一个）首先保持第一个不变，对3，5，9进行全排列。同样地，我们先保持3不变

2015-12-07 12:19:47 439

转载数独（九宫格)

2015-11-25 09:40:05 1601

转载十进制转为二进制

用递归的方法将十进制转换为低进制 '//此程序只适合10转2 Public str$ '转换后字符 Sub Convert() Dim n&, b& '需转换字符,转换进置 With Sheet5 n = .Cells(3, 1) '原始10进制值 b = 2 '需转换成进制 '//将十进制转换为二进制 .Cells(3, 2) = Ten2Two(n, b) End With E

2015-11-24 17:48:25 518

转载相同格式EXCEL汇总

以下VBA用以汇总相同格式的工作表. Option Explicit Sub Collection() 'Collection Data into TTL worksheet Dim Sh As Worksheet, SQL$, m%, Conn As Object Dim MaxClm&, TitleArr() '++++++++++++++++++++++++++++++++++++++++

2015-11-23 13:28:37 448

转载枚举法-填数

在奥数中会有如下的题目: 算法描述题 X 算题题题题题解法: 假设每个数字都从0-9循环直到计算出的结果与真实结果相等 pesudeocode: 算=i1:法=i2:描=i3:述=i4:题=i5 for i1=1 to 9 for i2=0 to 9 for i3=0 to 9 for i

2015-11-22 09:50:01 397

转载等额本金-逆推

等额本金是递归逆推的一个方法：父亲准备4年的生活费,使且整存零取的方式,控制每月底只能提取1000元,假设银行年利息为1.71% 思路: 第48个月取出1000,则要先求出47个月时银行存款的具体金额: 第47个月的存款=1000/(1+1.71%/12) 第47个月的存款=(第47个月的存款+1000)/(1+1.71%/12) ........ 第1个月的存款=(第2个月的存款

2015-11-22 09:34:41 773

转载 FIBONACCI-顺推

公元1202年欧洲数学家伦纳德·斐波那契在他所著的《珠算的书》（Liber Abbaci）中有这样一道习题：假定每对兔子每个月生出一对兔子。新生的兔子一个月后有了生育能力，再过一个月又生出一对兔子。那么买一对新生的兔子回来，一年后有多少对兔子？显然，第一个月有一对，第二个月还是一对，第三个月有两对，第四个月有三对，第五个月有五对……容易推得，某月的兔子数正好是前两个月兔子数之和。如果用F(n)

2015-11-21 19:37:25 314

转载二分法猜价格

'//程序用逐步法猜价格 '//假设价格都是整数,没有小数 Sub GP_Step() Dim Price&, i&, Guess&, Step& ' 正确价格,变量,猜想值 Dim Min&, Max& ' 最小值,最大值 Min = 1: Max = 999 With Sheet1 Price = .Cells(3, 1) For i = Min To Max Step = Ste

2015-11-20 16:36:15 924