vb中线性拟合_VB做曲线拟合

本文主要是代码，附带详细注释

最小二乘法多次曲线拟合的VB实现

'窗体代码

Option Explicit

'****************************************************************************************************'

'   编程世界:www.ibiancheng.cn

'   X()                     Double　实型一维数组，长度为 n 。

存放给定 n 个数据点的　X　坐标。 **

'   Y()－－－－－－Double　实型一维数组，长度为 n 。存放给定 n 个数据点的　Y　坐标。

'   n－－－－－－－Integer 变量。给定数据点的个数。 **

'   a()－－－－－－Double　实型一维数组，长度为 m 。返回 m-1　次拟合多项式的 m 个系数。

'   m－－－－－－－Integer 变量。拟合多项式的项数，即拟合多项式的最高次数为 m-1。

'   要求 m<=n 且m<=20。若 m>n 或 m>20 ，则本函数自动按 m=min{n,20} 处理。

'   rdblAverageX－－Double 变量，