- 博客(0)
- 资源 (2)
- 收藏
- 关注
*根据数据点求线性方程
需要从机器采集的数据求变化趋势,在网上找了很久没找到,用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);
2015-05-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人