Question

我试图让以下代码用于Fibonacci移位寄存器以生成伪随机数。似乎无法让它工作，所以是否有任何明显的问题（？）

Shared Function Main() As Integer
    Dim start_state As UShort = &HACE1UI ' Any nonzero start state will work.
    Dim lfsr As UShort = start_state
    Dim bit As UInteger
    Dim period As UInteger = 0

    Do While lfsr <> start_state
        ' taps: 16 14 13 11; feedback polynomial: x^16 + x^14 + x^13 + x^11 + 1 
        bit = ((lfsr >> 0) Xor (lfsr >> 2) Xor (lfsr >> 3) Xor (lfsr >> 5)) And 1
        lfsr = (lfsr >> 1) Or (bit << 15)
        period += 1
    Loop 

    Return 0
End Function

最后，“句号”是否需要除以一个大整数来得到U（0,1）？

以下是原始C ++代码：

# include <stdint.h>
int main(void)
{
    uint16_t start_state = 0xACE1u;  /* Any nonzero start state will work. */
    uint16_t lfsr = start_state;
    uint16_t bit;                    /* Must be 16bit to allow bit<<15 later in the code */
    unsigned period = 0;

    do
    {
        /* taps: 16 14 13 11; feedback polynomial: x^16 + x^14 + x^13 + x^11 + 1 */
        bit  = ((lfsr >> 0) ^ (lfsr >> 2) ^ (lfsr >> 3) ^ (lfsr >> 5) ) & 1;
        lfsr =  (lfsr >> 1) | (bit << 15);
        ++period;
    } while (lfsr != start_state);

    return 0;
}

Answer 1

与@ dummy的评论一样，

Do While lfsr <> start_state
...
Loop

因为lfsr = start_state开头而无法运行。

相当于C ++的代码

do {
...
} while (lfsr != start_state);

VB.NET中的

是

Do
...
Loop While lfsr <> start_state

Fibonacci移位寄存器伪随机数发生器

1 个答案: