Кодирование

[Bugrimov]

Доброе время суток!
Столкнулся с проблемой реализации кодирование Шеннона.
Есть определенный алгоритм кодирования. Возможно он не совсем точный.
Кто-нибудь сталкивался с реализацией этого алгоритма??? Просьба помочь разобраться в его работе и реализации знающих людей.

n - количество символов исходного алфовита.
P - массив вероятностей, упорядоченных по убыванию
Q - массив для величин Q
L - массив длин кодовых слов
C - матрица элементарных кодов

P[0]:=0, Q[0]=0
DO (i=1,...,n)
     Q[i]:=Q[i-1]+P[i]
     L[i]:=-|log2P[i]|
OD

DO (i=1,...,n)
    DO (j=1,..,L[i])
         Q[i-1]:=Q[i-1]*2
         C[i,j]:=|Q[i-1]|
         IF(Q[i-1]>1) Q[i-1]:=Q[i-1]-1 FI
    OD
OD