{ Тестирование алгоритма Хаффмана 

	      Cжатие буфера в ОЗУ.
}
{---------------------------------------------------------------------------
(c) Copyright	 Aleksandrov O.E., 2000

   Molecular Physics department, USTU, Ekaterinsburg, K-2, 620002, RUSSIA
   phone 75-47-15
   E-mail: aleks@dpt.ustu.ru

(c) Copyright Александров О.Е., 1999

   620002, Екатеринбург, К-2, УГТУ, Кафедра молекулярной физики
   тел. 75-47-15
   E-mail: aleks@dpt.ustu.ru
----------------------------------------------------------------------------}
{$Define Seg16}
{$Define Asm}
program HuffmanTest;
  USES  uMiscFun, HufTypes, HuffBase, HuffmanE;

const
  cBufLength=64000;
  cPassCount=55*1;

type
   tTestArrayIndex=1..cBufLength+128;
   tTestArray=array[tTestArrayIndex] of tByte;
   tPTestArray=^tTestArray;

var
  Huffman:tHuffman;
  OBuf0,OBuf1,OBuf2:tPTestArray;
  OSize0:tBufferIndex;
  OSize1,OSize2:tBufferIndex;
  OptSize:tBufferIndex;
  eq,Encoded:boolean;
  j:tTestArrayIndex;
  Cnt:word;
  x,xMax:tByte;
  i,iMax:word;
  t0:tTimerTiks;
  dt:tTimerDecimalTiks;
  BytesPerSeconds:longint;

BEGIN

  writeln;
  write('Программа HuffmanTest запущена ');
{$IfDef MsDOS}
  write('(real mode)');
{$Else}
  write('(protected mode)');
{$EndIF}
  writeln('...');
  writeln;

  New(OBuf0);
  New(OBuf1);
  New(OBuf2);

{  HuffBase.ProcTypeSet(pAll,ptAdvanced);}
{  HuffBase.ProcTypeSet(pDecode, ptAdvanced);}
{  HuffBase.ProcTypeSet(pEncode, ptSimple);
  HuffBase.ProcTypeSet(pBuildTree,ptSimple);
  HuffBase.ProcTypeSet(pCountBytes,ptSimple);}

   write('Неоптимальны:');
  if ProcTypeGet(pDecode)<>ptAdvancedAsm then begin
    write(' Decode');
  end;
  if ProcTypeGet(pEncode)<>ptSimpleAsm then begin
    write(' Encode');
  end;
  if ProcTypeGet(pBuildTree)<>ptSimpleAsm then begin
    write(' BuildTree');
  end;
  if ProcTypeGet(pCountBytes)<>ptSimpleAsm then begin
    write(' CountBytes');
  end;
  writeln;

  write(' Генерация массива...');

  Randomize;
  j:=Low(j);
  xMax:=Ord(High(OBuf0^[1]));

{ Генерация случайного массива с искуственным нарушением равномерной частоты }
  while j<=(cBufLength) do begin
    x:=Random(xMax);
    if (100<x) and (x<150) then begin
      OBuf0^[j]:=x;
      Inc(j);
    end;
  end;
  for j:=1 to 150 do begin
    OBuf0^[j]:=j;
  end;
{  for j:=Low(j) to cBufLength do begin
    OBuf0^[j]:=200;
  end;}

(*
{ Генерация случайного массива с равномерной частотой
ЕСЛИ РАСКОММЕНТИРОВАТЬ ЭТОТ СПОСОБ ГЕНЕРАЦИИ, ТО метод Хаффмана не сможет
упаковать данные}
  while j<(cBufLength) do begin
    x:=Random(Ord(High(OBuf0^[1])));
    OBuf0^[j]:=x;
    Inc(j);
  end;
*)

  iMax:=cPassCount;
  write(' сжатие (повтор, раз: ',iMax,')...');

  OSize0:=cBufLength;

  t0:=WaitNextTickCount;

  for i:=1 to iMax do begin
    { многократная упаковка для более точного определения времени }
    Huffman.EncodeBuf(OBuf0^, OSize0, OBuf1^, OSize1, Encoded);
  end;

  GetTickSpent(t0,iMax,dt);
  BytesPerSeconds:=GetBytesPerSeconds(OSize0,dt);

  writeln(' завершено.');

  writeln('   Начальный размер данных, байт: ',OSize0);
  if Encoded then begin
    writeln('   Размер после сжатия, байт: ',OSize1);
  end else begin
    writeln(^G'   НЕ СЖИМАЕТСЯ!'^G);
    writeln('   Размер после сжатия, байт: ',
	     Huffman.CompressedSize*SizeOf(tByte)+
	     Huffman.SizeOfPackedTreeInBytes+
	     tPEncodedBuffer(OBuf1)^.HeaderSizeInBytes);
  end;
    writeln('   В том числе:');
    writeln('     размер данных после сжатия, байт: ',   Huffman.CompressedSize*SizeOf(tByte));
    writeln('     размер упаков. дерева, байт: ',   Huffman.SizeOfPackedTreeInBytes);
    writeln('     размер заголовка, байт: ',  tPEncodedBuffer(OBuf1)^.HeaderSizeInBytes);
    writeln('   Длина неупак. дерева, узлов: ',Huffman.SizeOfTreeInNodes,
	    ', байт: ', Huffman.SizeOfTreeInNodes*SizeOf(tNode));
    writeln('   Минимальная длина кода, бит: ',Huffman.MinCodeSize,
	  ', максимальная длина кода, бит: ',Huffman.MaxCodeSize);

  if Encoded then begin
    writeln('   Время на упаковку 1 буфера, мс: ',dt.mSec,'.',dt.mAfterDotSec);
    writeln('   Скорость упаковки, байт/с: ',BytesPerSeconds);

    write(' Декодирование (повтор, раз: ',iMax,')...');

    {чтобы изменить данные дерева и кодов }
    Huffman.EncodeBuf(OBuf1^, OSize1, OBuf2^, OSize2, Encoded);

    t0:=WaitNextTickCount;
    for i:=1 to iMax do begin
      Huffman.DecodeBuf(OBuf1^, OBuf2^, OSize0);
    end;
    GetTickSpent(t0,iMax,dt);
    BytesPerSeconds:=GetBytesPerSeconds(OSize0,dt);

    write(' проверка...');
    for j:=Low(j) to cBufLength do begin
      eq:=(OBuf2^[j]=OBuf0^[j]);
      if not eq then
	break;
    end;

    if eq then writeln(' правильно.') else writeln(^G' НЕправильно.'^G);

    writeln('   Время на распаковку 1 буфера, мс: ',dt.mSec,'.',dt.mAfterDotSec);
    writeln('   Скорость распаковки, байт/с: ',BytesPerSeconds);
  end;

  writeln;
  writeln('программа HuffmanTest завершена.');
END.