d2r6.txt

常用的数值算法的VB程序

Private Sub Command1_Click()
    'PROGRAM D2R6
    'DRIVER for routine HUNT
    N = 100
    Dim XX(100)
    'Create array to be searched
    For I = 1 To N
        XX(I) = Exp(I / 20#) - 74#
    Next I
    Print
    Print Tab(5); "  Result of:    J=0 indicates x too small"
    Print Tab(5); "                J=100 indicates x too large"
    Print Tab(5); " locate   guess   J       xx(J)        xx(J+1)"
    'FOR test
    For I = 1 To 19
        X = -100# + 200# * I / 20#
    'Trial parameter
        JI = 5 * I
        J% = JI
    'Begin search
        Call HUNT(XX, N, X, J%)
        If J% = 0 Then
            Print Tab(4); Format$(X, "#0.00000");
            Print Tab(16); Format$(JI, "00");
            Print Tab(22); Format$(J%, "00");
            Print Tab(29); "lower lim";
            Print Tab(42); Format$(XX(J% + 1), "##.####00")
        ElseIf J% = N Then
            Print Tab(4); Format$(X, "#0.00000");
            Print Tab(16); Format$(JI, "00");
            Print Tab(22); Format$(J%, "00");
            Print Tab(29); Format$(XX(J%), "##.####00");
            Print Tab(42); "upper lim"
        Else
            Print Tab(4); Format$(X, "#0.00000");
            Print Tab(16); Format$(JI, "00");
            Print Tab(22); Format$(J%, "00");
            Print Tab(29); Format$(XX(J%), "##.####00");
            Print Tab(42); Format$(XX(J% + 1), "##.####00");
        End If
    Next I
End Sub