// вычисление полинома локатора лямбда

     //-----------------------------------------------------------------------------------------------

     // вычисляем полином локатора ошибки через итеративный алгоритм Берлекэмпа. Следуя терминологии

// Lin and Costello (см. "Error Control Coding: Fundamentals and Applications" Prentice Hall 1983

// ISBN 013283796) d[u] представляет собой m («мю»), выражающую расхождение (discrepancy),

// где u = m + 1 и m есть номер шага из диапазона от –1 до 2t. У Блейхута та же самая величина

// обозначается D(x) («дельта») и называется невязкой. l[u] представляет собой степень elp

// для данного шага итерации, u_l[u] представляет собой разницу между номером шага и степенью elp,

     // инициализируем элементы таблицы

     d[0] = 0;        // индексная форма

     d[1] = s[1];    // индексная форма

     elp[0][0] = 0;  // индексная форма

     elp[1][0] = 1;  // полиномиальная форма

     for (i = 1; i < n - k; i++)

     {

        elp[0][i] = -1; // индексная форма

        elp[1][i] = 0;  // полиномиальная форма

     }

     l[0] = 0; l[1] = 0; u_lu[0] = -1; u_lu[1] = 0; u = 0;

     do

     {

        u++;

        if (d[u] == -1)

        {

           l[u + 1] = l[u];

           for (i = 0; i <= l[u]; i++)

           {

              elp[u+1][i] = elp[u][i];

              elp[u][i] = index_of [elp[u][i]];

           }