用NI的CWStat1的多阶多项式拟合曲线

　　　　　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