d6r8.txt

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

Private Sub Command1_Click()
    'PROGRAM D6R8
    'Driver for routine POIDEV
    N = 20: NPTS = 10000: ISCAL = 200: LLEN = 50
    Dim DIST(21), Text$(50)
    IDUM& = -13
    Do
        For J = 1 To 21
            DIST(J) = 0#
        Next J
        Print "  Order of Poisson distribution (x=1..20); -1 to end."
        XM = 5
        Print Tab(3); XM
        If XM <= 0 Then End
    Loop While XM > 20
    For I = 1 To NPTS
        J = Int(POIDEV(XM, IDUM&)) + 1
        If (J >= 1) And (J <= 21) Then DIST(J) = DIST(J) + 1
    Next I
    Print "  Poisson-distribution deviate, order "; XM; "of "; NPTS; " points"
    Print "   x      p(x)         graph:"
    For J = 1 To 20
        DIST(J) = DIST(J) / NPTS
        For K = 1 To 50
            Text$(K) = " "
        Next K
        KLIM = Int(ISCAL * DIST(J))
        If KLIM > LLEN Then KLIM = LLEN
        For K = 1 To KLIM
            Text$(K) = "*"
        Next K
        Print Tab(3); Format$(CSng(J), "####.#0");
        Print Tab(10); Format$(DIST(J), "#####.###0");
        Print "   ";
        For M = 1 To 50
            Print Text$(M);
        Next M
    Next J
End Sub