Генерировать псевдослучайные биты из строки в msword VBA

Question

Мне нужен код в MS Word VB A, у меня есть последовательность бит как 10110001110000111 .... мой интерес заключается в том, как генерировать случайную последовательность бит, предполагает, что сначала генерирует четвертый бит 1, затем следующий, если мне нужно 3 бита, генерируются три случайных бита как 1 0 1, поэтому, если требуется четыре бита, четыре случайных бита генерируются как 1001. После выполнения всего этого, если я снова запустил, который может снова сгенерировать последовательность бит.

Answer 1

Используйте CRC. Не слишком знакомы с VBA, но если вы используете, например, CRC32, то вы можете создать хороший псевдослучайный бит-поток.

Вам нужно сделать хороший выбор для так называемого полинома, но если вы используете известные, результаты очень хорошие.

Это кодируется как C, а не как VBA, извините, но из памяти VBA предоставляет соответствующие операторы.

int nextbit(void) 
{ 
    uint32_t seed = 1; 

    seed = (seed&0x80000000? 0x04c11db7 : 0)^(seed<<1); 

    return seed&1; 
} 

или

int nextbit(void) 
{ 
    uint32_t seed = 1; 

    seed = (seed&1? 0x82608EDB : 0)^(seed>>1); 

    return seed&1; 
} 

Который, верить этому или нет, как тот же полином. Просто переходите к разным направлениям - полный полином должен быть добавлен 2^32, который обычно считается избыточным. Используемый здесь многочлен - это 32-битный CRC-CCITT, используемый для контрольных сумм данных.

Второй вариант, вероятно, лучше, так как первый начнется с 32 0, прежде чем он начнет двигаться.

Изначальное семя для любого значения, которое вы хотите, и тщательный выбор полинома гарантируют, что он имеет цикл 2^32, прежде чем он повторится.