d6r10.txt

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

Private Sub Command1_Click()
    'PROGRAM D6R10
    'Driver for routine IRBIT1
    'Calculate distribution of runs of zeros
    NBIN = 15: NTRIES = 10000
    Dim DELAY(15)
    ISEED = 12345
    For I = 1 To NBIN
        DELAY(I) = 0#
    Next I
    IPTS = 0
    For I = 1 To NTRIES
        If IRBIT1(ISEED) = 1 Then
            IPTS = IPTS + 1
            IFLG = 0
            For J = 1 To NBIN
                If (IRBIT1(ISEED) = 1) And (IFLG = 0) Then
                    IFLG = 1
                    DELAY(J) = DELAY(J) + 1#
                End If
            Next J
        End If
    Next I
    Print "Distribution of runs of N zeros"
    Print "    N     Probability   Expected"
    For N = 1 To NBIN
        Print Tab(5); Format$(N - 1, "####0");
        Print Tab(12); Format$(DELAY(N) / IPTS, "#.#####0");
        Print Tab(25); Format$(1# / (2# ^ N), "#.#####0")
    Next N
End Sub