d3r5.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 26 行

Private Sub Command1_Click()
    'PROGRAM D3R5
    'Driver for routine MIDPNT
    NMAX = 10
    A = 0#
    B = 1#
    Print
    Print Tab(5); "Integral of FUNC2 computed with MIDPNT"
    Print
    Print Tab(5); "Actual value of integral is";
    Print Tab(35); Format$((FINT2(B) - FINT2(A)), "#.000000")
    Print
    Print Tab(5); "  n    Approx.Integral"
    For I = 1 To NMAX
        Call MIDPNT(A, B, S, I)
        Print Tab(7); Format$(I, "##");
        Print Tab(17); Format$(S, "0.####00")
    Next I
End Sub
Function FUNC2(X)
    FUNC2 = 1# / Sqr(X)
End Function
Function FINT2(X)
    'Integral of FUNC2
    FINT2 = 2# * Sqr(X)
End Function