excel - 如何使用 Excel VBA 获得多项式回归系数？

Question

我有两列，比如说 x和 f(x) .我想在 Excel VBA 中进行多项式回归后得到二次方程的系数。

我是 Excel VBA 的新手，不知道该怎么做。

例如-

x y
-1 -1
0 3
1 2.5
2 5
3 4
5 2
7 5
9 4

方程的系数 f(x)=a*x^2+b*x+c将会

a= -.008571
b= 0.99555
c= 1.648439. 

我使用 THIS 得到了系数网站

Answer 1

就为此使用代码而言，请使用 LINEST , 下面的一种方式

Sub Quaddy()
Dim X
X = Application.Evaluate("=linest(b1:B8,A1:A8^{1,2})")
MsgBox "Equation is y=" & Format(X(1), "0.###") & "x2+" & Format(X(2), "0.###") & "x+" & Format(X(3), "0.###")
End Sub

这显示在下面的 Excel 图表中