VBA：抛物线拟合~

最新推荐文章于 2024-02-09 08:15:00 发布

Quality_Of_Perfect

最新推荐文章于 2024-02-09 08:15:00 发布

阅读量1.5k

点赞数 1

分类专栏： VBA 文章标签： vba 抛物线拟合最小二乘法

本文链接：https://blog.csdn.net/weixin_37243654/article/details/78030143

版权

利用VBA进行抛物线拟合，采用最小二乘法进行数据处理，展示VBA在数值分析中的应用。

摘要由CSDN通过智能技术生成

VBA写的抛物线拟合~ 最小二乘法~

请各位大牛指正~

Public Function SecFit(x As Range, y As Range, xcontinue As Double)
    
    Dim l1 As Integer
    
    l1 = x.Rows.Count
    
    Dim l2 As Integer
    
    l2 = y.Rows.Count
    
    Dim n As Integer
    
    If l1 <> l2 Then
    
        spline = "Error: Range count does not match"
        GoTo endnow
        
    Else
        
        n = l1
    
    End If
    
    
    Dim t0 As Double
    Dim t1 As Double
    Dim t2 As Double
    Dim t3 As Double
    Dim t4 As Double
    Dim sy As Double
    Dim syx As Double
    Dim syxx As Double
    
    t0 = 0
    t1 = 0
    t2 = 0
    t3 = 0
    t4 = 0
    sy = 0
    syx = 0
    syxx = 0
    
    For i = 1 To n
    
        t0 = t0 + 1
        t1 = t1 + x(i)
        t2 = t2 + x(i) * x(i)
        t3 = t3 + x(i) * x(i) * x(i)
        t4