如何使用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图表中