Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.07.2009, 23:18
darksoftware darksoftware вне форума
Прохожий
 
Регистрация: 03.09.2008
Сообщения: 20
Репутация: 10
Радость Pevrica - собственный алгоритм сжатия информации

PEVRICA - разработанный мной нестандартный алгоритм сжатия информации. Сверхбыстрая легкая компрессия информации с высокой избыточностью. Особенность: возможно сжатие в два прохода для увеличения уровня копрессии. Крайне простой код, полезно студентам.

Использует два словаря.

Один типа COMPRESS (64 байта), 8 -> 7 бит
Второй типа NULL (32 байта), 8 -> 8 бит

Словари генерируются на основе анализа файла, сбора и сортировки статистики.

Сразу скажу, что это не попытка доработать что-либо или изобрести велосипед. Здесь не использовались какие-либо существующие идеи, ведь глупо повторять тот же алгоритм хаффмана, великолепный LZMA или неповторимый PPMD.

Просто попробовал сегодня накатать что-то свое. Не так давно разработал класс для работы с файлом побитово - использовал для реализации своих стегопримитивов (стеганография в изображении, тексте, аудио и др.), вот теперь решил создать класс для сжатия информации.

Перепробовал несколько своих идей. Остановился именно на этой.

Сразу скажу: копрессия довольно легкая, но и скорость (без какой-либо оптимизации) очень и очень высокая.

Алгоритм адаптивный, словарь генерируется в зависимости от файла. Естественно, текст и любая информация с низкой энтропией дает лучшие результаты. Фишка еще в том, что можно прогонять несколько раз. Комрессия заметно улучшается. Можно использовать как префильтр перед прогоном другого алгоритма.
Вложения
Тип файла: zip pevrica.zip (4.4 Кбайт, 47 просмотров)
Ответить с цитированием
  #2  
Старый 16.02.2010, 13:38
Моторокер Моторокер вне форума
Прохожий
 
Регистрация: 16.02.2010
Адрес: Пермь
Сообщения: 4
Репутация: 10
По умолчанию

В файле pevcoder.pas

Цитата:
uses Classes, Windows, SysUtils, Math;

type
TPevCoder = class

type
TBitA = array of byte;
END expected but TYPE found и не компилируется.
Delphi 6.
__________________
www.motorocker.ru, www.autoaf.ru - мои программы
Ответить с цитированием
  #3  
Старый 02.04.2010, 22:16
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

Цитата:
Сообщение от Моторокер
В файле pevcoder.pas


END expected but TYPE found и не компилируется.
Delphi 6.

на D7 так же
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:59.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter