d3r8.txt

VB常用数值算法集 内含有解线性代数方程组

Private Sub Command1_Click()
    'PROGRAM D3R8
    'Driver for routine QGAUS
    X1 = 0#
    X2 = 5#
    NVAL = 10
    DX = (X2 - X1) / NVAL
    Print
    Print Tab(5); "0.0to     QGAUS       Expected"
    For I = 1 To NVAL
        X = X1 + I * DX
        Call QGAUS(X1, X, SS)
        Print Tab(5); Format$(X, "##.#0");
        Print Tab(14); Format$(SS, "0.######");
        AAA = -(1# + X) * Exp(-X) + (1# + X1) * Exp(-X1)
        Print Tab(27); Format$(AAA, "0.######")
    Next I
End Sub
Function FUNC(X)
    FUNC = X * Exp(-X)
End Function