数据拟合程序.docVIP

线性拟合方法 第三节 1.线性拟合 例1：实验测得二甲醇(DME)的饱和蒸气压和温度的关系如下表： 序号 温度/oC (xi) 饱和蒸气压/Mpa (yi) 1 -23.7 0.101 2 -10 0.174 3 0 0.254 4 10 0.359 5 20 0.495 6 30 0.662 7 40 0.880 请用线性函数拟合饱和蒸气压和温度之间的关系。 例2： 下表为实验测得的某一物性和温度之间的关系数据，表中x为温度数据，y为物性数据。请用线性函数拟合温度和物性之间的关系。 Private Sub Command1_Click() Dim x(5), y(5), c, d, m, p, a, b, eer Const n = 5 For i = 1 To 5 x(i) = InputBox(x(i)=) y(i) = InputBox(y(i)=) 数据输入 Print x(i)=; x(i); y(i)=; y(i) Next i c = 0 d = 0 m = 0 p = 0 For i = 1 To 5 c = c + x(i) d = d + x(i) ^ 2 m = m + y(i) p = p + x(i) * y(i) Next i a = (m * d - c * p) / (n *