ИННОВАЦИИ БИЗНЕСУ

Результат выполнения научно-исследовательской работы.

« MoveToFront» ( MTF), известный также как сжатие методом «стопки книг» - один из наиболее широко известных и часто применяемых на практике методовпреобразования потока неоднородных цифровых данных перед частотным сжатием, способный за счёт унификации типа распределений частот неоднородных фрагментов значительно повысить его результирующий уровень. Ниже предлагается простая и эффективная реализация алгоритма MTF на основе использования линейной ссылочной структуры для представления упорядочений и динамической поддержки их перестановок.

Program RRC; (* Recency Rank Coding Algorithm *)

(* Copyrights (C) Yuri A. Gadzhiev, 2004, all rights reserved *)

{Определения}

const ALPHABETSIZE=256;

TOP=ALPHABETSIZE;

type TNextNode=integer;

TList = array[0..ALPHABETSIZE] of TNextNode;

var NextMess: TList;

Procedure InitList;

var i:integer;

begin

for i:=1 to ALPHABETSIZE do NextMess[i-1]:=i;

NextMess[ TOP]:=0;

end;

{ Алгоритм прямого преобразования}

Procedure Encode;

var c,d,p,q:integer;

begin

InitList;

while not EOI do begin

c:=get;

d:=0;

q:=TOP; p:=NextMess[q];

if p<>c then begin

repeat

q:=p;

p:=NextMess[q];

inc(d)

until p=c;

NextMess[q]:=NextMess[p];

NextMess[p]:=NextMess[TOP];

NextMess[TOP]:=p

end;

put(d)

end

end;

{ Алгоритм обратного преобразования}

ProcedureDecode;

var d,c,q:integer;

begin

InitList;

while not EOI do begin

d:=get;

q:=TOP;

for d:=d downto 1 do q:=NextMess[q];

c:=NextMess[q];

NextMess[q]:=NextMess[c];

NextMess[c]:=NextMess[TOP];

NextMess[TOP]:=c;

put( c)

end

end;