Dim xPolyFit() As Single
        Dim yPolyFit() As Single
        ReDim xPolyFit(30)
        ReDim yPolyFit(30)
        Dim z As Variant, coef As Variant, mse As Variant
        Dim order As Integer
        order = 2 '默认2阶
        'N阶拟合,至少要N+1个点
        If pt > order Then
            Call CWStat1.PolyFit(xFlowData, yInputPowerData, order, z, coef, mse)
            ptrWaveBox.Plots(1).PlotXvsY xPolyFit, yPolyFitx
        end if

  

posted on 2020-08-18 11:32  Gu  阅读(191)  评论(0编辑  收藏  举报