d14r8.txt

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

Dim X(11), D(10, 7)
Private Sub Command1_Click()
    'PROGRAM D14R8
    'Driver for routine RZEXTR
    'Feed values from a rational function
    'Fn(x)=(1-x+x^3)/(x+1)^n
    NV = 4
    NUSE = 5
    Dim YEST(4), YZ(4), DY(4)
    For I = 1 To 10
        IEST = I
        XEST = 1# / CSng(I)
        DUM = 1# - XEST + XEST ^ 3
        For J = 1 To NV
            DUM = DUM / (XEST + 1#)
            YEST(J) = DUM
        Next J
        Call RZEXTR(IEST, XEST, YEST(), YZ(), DY(), NV, NUSE)
        Print Tab(5); "IEST= "; I; "   XEST= "; Format$(XEST, "#.###0")
        Print Tab(5); "Extrap. Function: ";
        For J = 1 To NV
            Print Tab(15 + J * 14); Format$(YZ(J), ".#####0");
        Next J
        Print Tab(5); "Estimated Error: ";
        For J = 1 To NV
            Print Tab(15 + J * 14); Format$(DY(J), ".#####0");
        Next J
    Next I
    Print Tab(5); "Actual Values:"; Tab(29); "1.0";
    Print Tab(43); "1.0"; Tab(57); "1.0"; Tab(71); "1.0"
End Sub