irbit2.txt

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

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