Помогите с условной энтропией

[Gezhel]

Всем здравствуйте. У меня есть проблемка: не получается написать программу вычисления условной энтропии. Входным параметром является строка, энтропию которой каждой буквы надо расчитать. Программу я написала, проблем с компилятором нет, программа запускается и работает, вот только считает энтропию неправильно. Помогите исправить ошибки

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
i,j:byte;
sum,int:real;
mas:array[1..100,1..100] of char;
begin
s:=Edit1.Text;
h:=length(s);
 for i:=1 to h do
  mas[1,i+1]:=s[i];
 for i:=1 to h do
  mas[i+1,1]:=s[i];

 for i:=1 to h-1 do
  begin
   for j:=1 to h do
    begin
     if mas[i+2,1]=mas[1,j+1] then
      mas[i+1,j+1]:='1';
    end;
  end;

sum:=0;
 for i:=1 to h-1 do
  begin
   for j:=1 to h do
    begin
     if mas[i+1,j+1]<>'' then
      sum:=sum+1;
    end;
    int:=(sum/h)*log2(sum/h);
    ListBox1.Items.Add(s[i]+' = '+FloatToStr(int));
    sum:=0;
  end;

end;

[Gezhel]

Предыдущую программу, расчет энтропии, я выводила  в стрингрид, таблицу с алфавитом тоже там же. В этой программе решила сделать массив только с буквами строки и вывела условную энтропию в лист. Преподаватель сказал, ято считает неправильно. Помогите разобраться, где здесь ошибки

[Алексей++]

Gezhel, опиши на словах, какой алгоритм применяешь ?

[Gezhel]

С помошью двумерного массива записываю буквы строки в первую строку массива и в первую колонку. Затем проверяю стоит ли после данной буквы следущая. В совпавшие клетки массива помещаю '1'. Далее считаю сумму появления буквы (по строке массива) и по формуле вычисляю условную энтропию для каждого символа. Для последнего символа, кажется не считается энтропия.   
Плохо как-то описала =((

[Алексей++]

Gezhel, я, вот, например, понятия не имею, как считается условняа энтропия Нашёл вот http://ru.wikipedia.org/wiki/%D0%98%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%86%D0%B8%D0%BE%D0%BD%D0%BD%D0%B0%D1%8F_%D1%8D%D0%BD%D1%82%D1%80%D0%BE%D0%BF%D0%B8%D1%8F#.D0.A3.D1.81.D0.BB.D0.BE.D0.B2.D0.BD.D0.B0.D1.8F_.D1.8D.D0.BD.D1.82.D1.80.D0.BE.D0.BF.D0.B8.D1.8F

пока ещё втыкаю....

[Gezhel]

Спасибо, сейчас посмотрю, поразбираюсь

[Алексей++]

мне кажется, в 2-мерный массив надо не строку записывать, а символы алфавита (массив для ASCII будет максимум 256*256)

Для каждой клетки считаем, сколько раз символ "слева" идёт за символом "сверху". Вероятность = частота_появления/длина_сообщения. Затем считаем сумму по формуле из вики

[Sla]

по коду пару замечаний
массив mas не инициализирован

Код:

for i:=1 to h-1 do
  begin
   for j:=1 to h do
    begin
     if mas[i+2,1]=mas[1,j+1] then
      mas[i+1,j+1]:='1';
    end;
  end;

видимо нужно сделать следующим

Код:

for i:=1 to h-1 do
  begin
   for j:=1 to h do
     if mas[i+2,1]=mas[1,j+1] then
      mas[i+1,j+1]:='1'
      else mas[i+1,j+1]:=' '
  end;

Код:

h:=length(s);
 for i:=1 to h do
  mas[1,i+1]:=s[i];
 for i:=1 to h do
  mas[i+1,1]:=s[i];

переделываем в более наглядный

Код:

h:=length(s);
 for i:=1 to h do
  begin 
    mas[1,i+1]:=s[i];
    mas[i+1,1]:=s[i];
  end;

И не забываем проверить длину строки s (а если она больше 99?)