d9r6.txt

数据拟合源程序

Private Sub Command1_Click()
    'PROGRAM D9R6
    'Driver for routine FPOLY
    NVAL = 15
    DX = 0.1
    NPOLY = 5
    Dim AFUNC(5)
    Print Tab(5); "               Powers of X"
    Print
    Print Tab(5); "X    X^0    X^1    X^2    X^3   X^4"
    For I = 1 To NVAL
        X = I * DX
        Call FPOLY(X, AFUNC(), NPOLY)
        Print Format$(X, "#.#000"),
        For J = 1 To NPOLY
            Print Format$(AFUNC(J), "#.#000"),
        Next J
        Print
    Next I
End Sub