使用VBA进行多项式拟合

loveme279 · 发表于 2015-11-18 14:43

平时经常要进行多项式拟合进行平滑滤波，由于数据量庞大，使用Excel自带的LinEst公式进行拟合不够方便，针对大量数据时通常使用Matlab进行处理，不过这样一来对于大数据自动处理时需要通过VBA调用Matlab（或者手动在Matlab中处理），这样效率也不高。这两天要做的数据比较麻烦，就想办法用VBA编写了求多项式拟合系数的公式，与Matlab的计算结果基本吻合，误差在可接受范围。这样以后进行平滑滤波直接调用函数就行了。
代码比较简单，见笑。

Function XlaPloyFit(YY As Variant, XX As Variant, N As Integer) As Variant
'多项式拟合算法，YY为因变量，XX为自变量，N为多项式阶次
'XlaPloyFit 为1行N+1列数据，返回数组为{mn,mn-1,...,m1,b}
Dim UbYY As Long
Dim YYValue()
Dim XXValue()
If UCase(TypeName(YY)) = "RANGE" Then
YYValue = YY.Value
XXValue = XX.Value
Else
YYValue = YY
XXValue = XX
End If
UbYY = UBound(YYValue)
Dim Crr()
ReDim Crr(1 To UbYY, 1 To N)
Dim Crrii As Long
Dim Crrjj As Integer
For Crrii = 1 To UbYY
For Crrjj = 1 To N
Crr(Crrii, Crrjj) = XXValue(Crrii, 1) ^ Crrjj
Next
Next
Dim XlaPolyFitTemp()
XlaPolyFitTemp = Application.WorksheetFunction.LinEst(YYValue, Crr, True, True)
Dim CoffRR()
ReDim CoffRR(1 To 1, 1 To N + 1)
For Crrjj = 1 To N + 1
CoffRR(1, Crrjj) = XlaPolyFitTemp(1, Crrjj)
Next
XlaPloyFit = CoffRR
End Function

复制代码

loveme279 · 发表于 2015-11-18 14:45

附件里是公式用法和误差验证

yangzhendh · 发表于 2017-5-9 16:06

大神，太厉害了。

yayahzmeng · 发表于 2017-5-9 22:34

强烈不建议用EXCEL去拟合
推荐专业软件Origin

联谊会 · 发表于 2018-6-20 15:59

厉害，多谢分享，试用成功

sla · 发表于 2019-7-18 17:02

测试了2次多项式，挺不错的。

cctva1 · 发表于 2020-10-22 01:26

感谢楼主，大神，厉害，鲜花

blackttea1 · 发表于 2021-3-30 16:22

多谢分享，试用成功

amao47kiki2 · 发表于 2021-6-22 10:13

很好用，而且还学会了linest的多项式用法

amao47kiki2 · 发表于 2021-6-22 10:15

不过还是想问问，我没看出来linest和楼主自定义函数在使用方面的便捷性。请问楼主说使用Excel自带的LinEst公式进行拟合不够方便，是因为公式比自定义的要稍微复杂，这样原因吗？

		自动登录	找回密码
密码			免费注册

[原创] 使用VBA进行多项式拟合