需要从机器采集的数据求变化趋势,在网上找了很久没找到,用delphi2010自编了一个,与需要的朋友共享。有全部代码和可执行文件。 根据已知的数据点(集)求线性方程:Y=aX+b 依据:利用最小二乘法列方程,根据拉格朗日乘数法解方程,计算方法不复杂,就是手工计算量大,用计算机设置一个循环就简单多了。着急代码如下: //获得横轴数据之和、横轴数据平方和、纵轴数据之和、纵轴与横轴数据之积的和 for i := 0 to CT-1 do begin CTi:=CTi+i; CTi2:=CTi2+i*i; CYi:=CYi+Data[i]; CYiTi:=CYi