d6r11.txt

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

Private Sub Command1_Click()
    'PROGRAM D6R11
    'Driver for routine IRBIT2
    'Calculate distribution of runs of zeros
    NBIN = 15: NTRIES = 10000
    Dim DELAY(15)
    ISEED = 111
    For I = 1 To NBIN
        DELAY(I) = 0#
    Next I
    IPTS = 0
    For I = 1 To NTRIES
        If IRBIT2(ISEED) = 1 Then
            IPTS = IPTS + 1
            IFLG = 0
            For J = 1 To NBIN
                If (IRBIT2(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