d11r1.txt

来自「VB常用数值算法集2」· 文本 代码 · 共 21 行

Private Sub Command1_Click()
    'PROGRAM D11R1
    'Driver for routine MNBRAK
    For I = 1 To 10
        AX = I * 0.5
        BX = (I + 1#) * 0.5
        Call MNBRAK(AX, BX, CX, FA, FB, FC)
        Print Tab(5); "              A             B             C"
        Print Tab(5); "X";
        Print Tab(15); Format$(AX, "0.####00");
        Print Tab(29); Format$(BX, "0.####00");
        Print Tab(43); Format$(CX, "0.####00")
        Print Tab(5); "F";
        Print Tab(15); Format$(FA, "0.####00");
        Print Tab(29); Format$(FB, "0.####00");
        Print Tab(43); Format$(FC, "0.####00")
    Next I
End Sub
Function FUNC(X)
    FUNC = BESSJ0(X)
End Function