Недавно добавленные исходники

•  Animation Loaders  1 060

•  DeLiKaTeS Tetris (Тетрис)  6 000

•  TDictionary Custom Sort  7 929

•  Fast Watermark Sources  7 587

•  3D Designer  10 828

•  Sik Screen Capture  8 170

•  Patch Maker  8 357

•  Айболит (remote control)  8 406

•  ListBox Drag & Drop  7 272

•  Доска для игры Реверси  101 605

•  Графические эффекты  8 465

•  Рисование по маске  7 826

•  Перетаскивание изображений  6 419

•  Canvas Drawing  6 804

•  Рисование Луны  6 746

•  Поворот изображения  5 841

•  Рисование стержней  4 792

•  Paint on Shape  3 483

•  Генератор кроссвордов  4 510

•  Головоломка Paletto  3 625

 

 

Каталог исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

 

 

Delphi Sources

Delphi Sources

ИСХОДНИК ПРОГРАММЫ

 

. : Оптимальное кодирование информации : .

 

Исходник программы, предназначенной для подсчета повторений букв

Исходник программы, предназначенной для подсчета повторений букв (дискретная математика - алгоритмы Шеннона-Фано, Хаффмана).

В этой программе используется подсчет повторений букв. Из расчета повторяемости, т.е. чем чаще повторяется буква, тем короче двухзначный код (алгоритмы Шеннона-Фано, Хаффмана), программа выдает результаты: длина сообщения, кол-во символов алфавита, энтропия сообщения, средняя энтропия символа, длина символа при равномерном кодировании, абсолютная избыточность в представлении сообщения, средняя абсолютная избыточность в представлении символа.

Просмотры: 1 577
Дата: 06.09.2006, Автор: Al Ar
Скачивания: 292
Написать сообщение:

 

 

Скачать (18 Кб)     Регистрация >>

   

 













 

© 2004-2026 "DS"

Соглашение пользователя • Конфиденциальность • Правила обработки cookie       SiteAnalyzer


Форум по Delphi программированию - Ошибка базы данных

Кажется, произошла проблема с базой данных Форум по Delphi программированию.
Пожалуйста, попробуйте зайти снова, нажав на кнопку Обновить вашего браузера.

Нашей службе технической поддержке был послан email. Вы также можете написать им письмо, если проблема не решиться.

Извените за причинённые неудобства.