2004年07月_iteye_3946

利用最小二乘法实现图片中多个点的一元线性回归

在日常生活和科学实验中，人们会经常发现因变量y和自变量x之间存在一定线性关系设一组数据为：则y与x的关系可以用线性方程表示：按最小二乘法可得：线性关系的程度可以用相关系数r表示所以，如果想在图象框中根据已知的多个存在线性关系的点描出相应的离所有的点最靠近的直线，应该...

2004-07-31 22:03:00 88

GetTempPath取得的是一个DOS名称,当文件名长度大于8时，长文件名格式“C:\Documents and Settings\Administrator\Local Settings\Temp”会显示成“C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp”的短文件名格式，如何根据自己需要取得系统临时目录的途径，下面是一个新写的函数，调用两个API 实现，相信许多朋友可能用...

2004-07-30 17:49:00 545

如何随机生成指定数目的国标汉字？

　　为了使每一个汉字有一个全国统一的代码，1980年，我国颁布了第一个汉字编码的国家标准： GB2312-80《信息交换用汉字编码字符集》基本集，这个字符集是我国中文信息处理技术的发展基础，也是目前国内所有汉字系统的统一标准。由于国标码是四位十六进制，为了便于交流，大家常用的是四位十进制的区位码。所有的国标汉字与符号组成一个94×94的矩阵。在此方阵中,每一行称为一个"区",每一列称为一个"位",...

2004-07-25 14:26:00 147

动态裁剪窗体标题栏

本文演示了如何利用API进行窗体标题栏的裁剪和恢复，一并演示了控件的动态添加方法： 'This sample show you how to cut the caption title exactly and create controls with code.'add a new form ,do nothing but copy this codes for it.Option Expli...

2004-07-25 10:03:00 46

非递归解决组合问题

从m 个互不相同元素中取 n 个元素,一般选用递归或回溯算法解决，本文旨在利用进制转换的方法达到这一目的。代码如下 Sub GETALL(ByVal num As Integer, ByRef x As Variant, ByRef RESULT() As String, Optional ByRef all As Long) Dim A() As String, b() As Integ...

2004-07-25 09:29:00 69

一道趣味数学题

题目：将+，-，*，/ 添加到 1，2，3，4，5，6，7，8，9 之间，使其构成的算式四则运算结果等于100，如： 1*2*3*4+5+6+7*8+9=100 分析：以上算式相当于把1~9 9 个数字和 8个（+，-，*，/ ）作一个特殊顺序的排列，共有4^8=65536 种可能，再从中进行取舍。代码： Option ExplicitPrivate Declare Function Eb...

2004-07-25 01:08:00 106

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

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

2004-07-24 16:04:00 225

再谈八皇后问题

题目:十九世纪著名的数学家高斯提出：在8×8格的国际象棋棋盘上摆放八个皇后，使其不能互相攻击，即任意两个皇后都不能处于同一行、同一列或同一斜线上，问有多少种摆法。分析:其实问题可以转化为12345678的满足某种条件(行已不等,列亦不等,只需设定其不在同一斜线上,即斜率不为 1 或-1 )的排列.通过前两天用非递归方式解决序列的全排列问题(.http://blog.csdn.net/nor...

2004-07-24 00:16:00 44

关于走楼梯的递归算法

题目：一个共有20个台阶的楼梯，从下面走到上面。一次只能迈一个台阶或两个台阶，并且不能后退，走完这个楼梯共有多少种方法。分析：1 步台阶只有1种走法（1）2步台阶2种(11、2）3步台阶有3种（111、12、21）4 步台阶有5种（1111、112、121、211、22）5 步台阶有8种（11111、1112、1121、1211、122、2111、212、221）6步台阶有13种（...

2004-07-23 07:12:00 133

非递归实现不重复序列的全排列（三）

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

2004-07-21 16:43:00 55

非递归实现不重复序列的全排列（二）

下面给出一个回溯算法的代码，在VertyNew(华) 网友提供代码（http://community.csdn.net/Expert/topic/2909/2909080.xml?temp=.9990503）基础上稍作修改： Sub pailie2(ParamArray x())Dim starttime As Single, endtime As SingleDim i As Integer, ...

2004-07-21 14:39:00 49

非递归实现不重复序列的全排列（一）

笔者曾写过利用递归实现不重复序列全排列的例子http://blog.csdn.net/northwolves/archive/2004/04/07/19590.aspx 现在给出另一个利用进制实现的代码： Sub pailie1(ParamArray x())Dim starttime As Single, endtime As SingleDim n As Integer, i As Long,...

2004-07-21 14:29:00 71

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

下面的代码可以将任意日期（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, temp As StringConst all As String = "○一二三四五六七八...

2004-07-21 14:12:00 251

laravel framework