Генерация М последовательностей.

32-х 
16-тиprocedure GenPsp_n (Pol,Ust : PStr_bit; Kol : word);
procedure GenPsp_p (Kol : word);

Kol  – количество генерируемых бит М последовательности;
Pol  – полином М последовательности;
Ust  – начальная установка (комбинация, с которой начнется М последовательность).

Процедура GenPsp_n осуществляет генерацию Kol  бит ПСП. Максимальная степень полинома ПСП равна 32. Начальная установка Ust  и вид полинома Pol  задаются в виде битовых последовательностей, при этом нулевой отвод полинома не вводится. Степени полинома соответствуют единичными битам в битовой последовательности, причем позиция “1” бита на единицу меньше степени отвода полинома (нумерация бит начинается с 0).

Процедура GenPsp_p продолжает процесс генерации Kol  бит ПСП с прерванного значения. Правильная работа процедуры (генерация бит М последовательности без смены фазы ПСП на переходе от одного блока к другому) осуществляется только при значении Kol  кратном 8, в том числе и при первом вызове (подпрограмма GenPsp_n).

Внимание!  Процедуры существуют только в 16-ти разрядной версии.

Пример генерации последовательности блоков ПСП с образующим полиномом Х8+Х2+1, в которой первый блок длиной 64 бита начинается с битовой последовательности вида (11010001) приведен в таблице.

32-х 
16-ти

Var BitStr, Ust, Pol : PStr_bit; {Объявление переменной}

…

Ust^.Init_Sim(‘11010001’);
Pol^.Init_Sim(‘01000001’);
BitStr^.GenPsp_n (Pol, Ust, 64); {Первый блок ПСП}
BitStr^.GenPsp_p (128); {Второй блок ПСП}

…