irbit1.txt

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

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