Шеннон-Фано

void Schennon_Fano(int index1, int index2)
        {
            if(index1==index2) return;
            int i, C;
            double summ=0, p, summCopy=0;
            double vysche, nize;
            double ONO = SummVer(index1, index2);//суммируем все вер-ти от первого индекса до второго
            ONO = ONO/2;//делим на 2
            for (i = index1; i<=index2; i++)
            {
                p = Convert::ToDouble(dataGridView2->Rows[i]->Cells[1]->Value);//получаем вероятность и начинаем суммировать
                summ+=p;
                if(summ == ONO) //если не тот и не друго if то данной суммарной вероятности не достаточно чтобы делить, просто запоминаем p
                {
                    C = WrightColum(index1);
                    Nuli_Edinicy(index1, i, index2, C);
                    Schennon_Fano(index1, i);
                    Schennon_Fano(i+1, index2);
                    return;
                }
                if(summ > ONO) 
                {
                    vysche = ONO - summCopy;
                    nize = summ -ONO;
                    if(vysche<= nize) 
                    {
                        C = WrightColum(index1);
                        Nuli_Edinicy(index1, i-1, index2,C);
                        ONO = SummVer(index1, i-1);
                        Schennon_Fano(index1, i-1);
                        ONO = SummVer(i, index2);
                        Schennon_Fano(i, index2);
                    }
                    else
                    {
                        C = WrightColum(index1);
                        Nuli_Edinicy(index1, i, index2,C);
                        ONO = SummVer(index1, i);//снова получаем сумму вероятностей
                        Schennon_Fano(index1, i);
                        ONO = SummVer(i+1, index2);
                        Schennon_Fano(i+1, index2);
                    }
                    return;
                }
                summCopy = summ;
            }
        }