Энтропия сообщения, С++ Builder Опции

[18192123]

Требуется определить энтропию сообщения при условии независимости символов и при условии попарной зависимости символов..
Что касается 1-го случая -
H = -сумма (i=1,m)pi * log pi, логарифм берётся по основанию два, а pi - вероятность появления i-го символа..
Здесь проблем не возникает...нахождение вероятности не вызывает трудностей..
Во 2-м случае:
H = -1/2*сумма (i) сумма(j) pij * log pij, pij - вероятность появления пары символов. И как раз с этой вероятностью pij проблемка - не пойму, как её получить..

struct str
{
        char symbol; // очередной символ алфавита
        unsigned int count; // частота появления
        float probability; // вероятность
};
typedef str STR;
STR Alph[n];
int amount=0; //кол-во всех символов в сообщении

.....

i=0;
while (Alph[i].count)
{
 Alph[i].probability=(float)(Alph[i].count)/(amount); //нашли вероятность pi
 i++;
}

......
//и дальше вычисляем энтропию на основе pi
float entropy(int i)
{
 float Hp=(float)((-1)*Alph[i].probability*((log10(Alph[i].probability))/(log10(2))));
 return Hp;
}

.......

void __fastcall TFormTIPiS1::BitBtnHpClick(TObject *Sender)
{
 float HpAll=0;
 int i=0;
 while (Alph[i].count)
 {
  HpAll+=entropy(i);
  i++;
 }

}

Объясните пожалуйста, а что нужно делать, чтобы найти вероятность pij (при условии попарной зависимости символов)?

[18192123]

Пытаюсь сформировать массив структур, в котором каждая будет хранить ин-цию о паре символов...

define nn 1000
struct str
{
        char symbol;
        unsigned int count;
        float probability;
};
typedef str STR;
STR TWO[nn];
char *fileIn;
char two[26]={'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'};

...........
for (i=1;i<=26;i++)
 for (j=1;j<=26;j++)  {
  TWO[26*(i-1)+j].symbol=(char)strcat((char*)(&TWO[26*(i-1)+j].symbol),(char*)(&two[i]));
  TWO[26*(i-1)+j].symbol=(char)strcat((char*)(&TWO[26*(i-1)+j].symbol),(char*)(&two[j]));
  Memo1->Lines->Add(TWO[26*(i-1)+j].symbol);
 }

т.е. в TWO[1] хочу получить aa, в TWO[2] - ab и т.д.. а получается "Ь и ф...."
Подскажите, как добиться желаемого результата?