最小二乘法直线拟合数据处理VB程序设计.docVIP

最小二乘法直线拟合数据处理VB程序设计 　　摘要：利用Visual Basic语言实现对数据的最小二乘法处理，使数据处理非常方便且可靠性高，避免了大量的计算过程，保证数据处理的质量和效果． 　　关键词：数据处理；最小二乘法；直线拟合；visual basic 　　中图分类号：TP311文献标识码：A 文章编号：1009-3044(2007)15-30782-02 　　The VB Programming to Deal with the Data for Linear Fitting with Least Square Method 　　WANG Suo-ming, HOU Bin, CHEN Ze-zhen 　　(Yanshan University, Qinhuangdao 066004,China) 　　Abstract: This paper introduces the least square method on the data processing and the programming design with visual basic language. This program will make the data processing more convenient and reliable, so the complicated computing will be avoided. Accordingly, the quality and the effect of the data processing will be ensured. 　　Key words: data processing; least square method; linear fitting; visual basic 　　 　　1 引言 　　 　　在数据处理中,经常遇到两测试量x、y间存在y=ax+b的线性关系，a、b为此线性函数的参数，通常是具有物理含义的，而且一般是我们的间接待求量（或相差一常数倍）．通过测出多组x,y值，同时求出未知参数a、b的过程，即为组合测量。求最佳直线参数在组合测量中比较简单，应用较广，但数据处理较为复杂。而Visual Basic作为一种可视化的计算机编程语言,具有界面友好和编程简单的特点,为数据处理中的大量计算提供了的捷径，从而减少计算工作量，得到准确的拟合曲线。 　　 　　2 最小二乘法应用 　　 　　在实际工作中，许多测量量之间的关系并非都是线性的，但可通过适当的变换化成线性关系，即将曲线变换成直线，做这样的变换不仅是线性关系简单、直线容易描绘，更重要的是直线的参数（斜率和截距）所包含的物理内涵是我们所需要的。常见的可化为线性关系进行处理的函数关系有以下几种： 　　（1）y=axb，式中a、b常量，可变换成lgy=blgx+lga，lgy为lgx的线性函数，斜率为b，截距为lga； 　　（2）y=abx，式中a、b为常量，可变换成lgy=（lgb）x+lga，lgy为x的线性函数，斜率为b，截距为lga； 　　（3）PV=C，式中C为常量，可变换成P=C(1/V)，P为1/V的线性函数，斜率为C； 　　（5）y=x/(a+bx)，式中a、b为常量，可变换成 1/y=a(1/x)+b，1/y为1/x的线性函数，斜率为a，截距为b； 　　（6）s=v0t+at2/2，式中v0、a为常量，可变换成s/t=(at/2)+v0， s/t为t的线性函数，斜率为a/2，截距为v0。 　　 　　3 主要数据处理代码 　　 　　3.1 数据计算部分 　　Dim xx!, xh!, yy!, yh!, xy!, r!, dyy!, myy! 　　Dim pmx!, pmy!, pdx!, pdy!, xjiao!, yjiao! 　　Dim rr As String 　　xx = 0: xh = 0: yy = 0: yh = 0: xy = 0: r = 0 　　For i = 1 To n 　　xx = xx + X(i) * X(i) 　　xh = xh + X(i) 　　yy = yy + Y(i) * Y(i) 　　yh = yh + Y(i) 　　xy = xy + X(i) * Y(i) 　　If X(i) mx Then 　　mx = X(i) 　　End If 　　If Y(i) my Then 　　my = Y(i) 　　End If 　　If dx X(i) Then 　　dx = X(i) 　　End If 　　If dy Y(i) Then 　　dy = Y(i) 　　End If