d14r9.txt

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

Private Sub Command1_Click()
    'PROGRAM D14R9
    'Driver for routine PZEXTR
    '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 PZEXTR(IEST, XEST, YEST(), YZ(), DY(), NV, NUSE)
        Print
        Print Tab(5); "I= "; I
        Print Tab(5); "Extrap. Function: ";
        For J = 1 To NV
            Print Tab(15 + J * 12); Format(YZ(J), ".#####0");
        Next J
        Print Tab(5); "Estimated Error: ";
        For J = 1 To NV
            Print Tab(15 + J * 12); Format(DY(J), ".#####0");
        Next J
    Next I
    Print Tab(5); "Actual Values:    "; Tab(27); "1.000000";
    Print Tab(39); "1.000000"; Tab(51); "1.000000"; Tab(63); "1.000000"
End Sub