ran0.txt

常用的数值算法的VB程序

Static Function RAN0(IDUM&)
    Dim V(97)
    If IDUM& < 0 Or IFF = 0 Then
        IFF = 1
        ISEED% = Abs(IDUM&)
        IDUM& = 1
        For J = 1 To 97
            DUM = Rnd(ISEED%)
        Next J
        For J = 1 To 97
            V(J) = Rnd(ISEED%)
        Next J
        Y = Rnd(ISEED%)
    End If
    J = 1 + Int(97! * Y)
    If J > 97 Or J < 1 Then Print "Abnormal exit": Exit Function
    Y = V(J)
    RAN0 = Y
    V(J) = Rnd(ISEED%)
End Function