d5r3.txt

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

Private Sub Command1_Click()
    'PROGRAM D5R3
    'Driver for routine POLDIV
    '(X-1)**5/X+1)**3
    N = 6
    NV = 4
    Dim U(6), V(4), Q(6), R(6)
    U(1) = -1#
    U(2) = 5#
    U(3) = -10#
    U(4) = 10#
    U(5) = -5#
    U(6) = 1#
    V(1) = 1#
    V(2) = 3#
    V(3) = 3#
    V(4) = 1#
    Call POLDIV(U(), N, V(), NV, Q(), R())
    Print
    Print Tab(5); "X^0     X^1    X^2    X^3    X^4    X^5"
    Print Tab(5); "Quotient polynomial coefficients:"
    For I = 1 To N
        Print Format$(Q(I), "#0.00"),
    Next I
    Print Tab(5); "Expected quotient coefficients:"
    Print Tab(5); "31.00,    -8.00,     1.00,    0.00,    0.00,    0.00"
    Print Tab(5); "Remainder polynomial coefficients:"
    For I = 1 To NV
        Print Format$(R(I), "#0.00"),
    Next I
    Print Tab(5); "Expected quotient coefficients:"
    Print Tab(5); "-32.00,     -80.00,     -80.00,     0.00"
End Sub