irbit2.txt

常用的数值算法的VB程序

Static Function IRBIT2(ISEED)
    IB1 = 1: IB3 = 4: IB5 = 16: IB14 = 8192: MASK = 21
    If (ISEED And IB14) <> 0 Then
        ISEED = ISEED Xor MASK
        If ISEED > 2 ^ 14 Then ISEED = ISEED - 2 ^ 14
        ISEED = 2 * ISEED Or IB1
        IRBIT2 = 1
    Else
        If ISEED > 2 ^ 14 Then ISEED = ISEED - 2 ^ 14
        ISEED = 2 * ISEED And (Not IB1)
        IRBIT2 = 0
    End If
End Function