xxiangzi的博客

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

学习Delphi必须Pascal语言。 Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal。