Лабораторная работа: Проверка гипотезы о нормальности закона распределения экспериментальных данных

{

//HideCaret(RichEditX->Handle);

RichEditX->SelAttributes->Color = Color; //задаёмцветтекста

RichEditX->Lines->Add(Text);//выводимтекст

RichEditX->Perform(EM_LINEINDEX, RichEditX->Lines->Count-1, 0);//устанавливаемпозициюкаретки

RichEditX->Perform(EM_SCROLLCARET, 0, 0);//прокручиваем поле к позиции каретки

}

//---------------------------------------------------------------------------

//Основываясь на входной последовательности формируем закон распределения

void __fastcall TMainForm::ZakonRaspr(AnsiString InSequence, double *P)

{

//P0 //P1 //P00 //P01 //P10 //P11

P[0] = 0; P[1] = 0; P[2] = 0; P[3] = 0; P[4] = 0; P[5] = 0;

int i;

//по определённому алгоритму формируем закон распределения

for(i = 1; i <= InSequence.Length(); i += 2)

{

switch(((AnsiString)InSequence[i]+(AnsiString)InSequence[i+1]).ToInt())

{

case 00:

{

P[0] += 2;//P0

P[2] ++; //P00

} break;

case 01:

{

P[0] ++;//P0

P[1] ++;//P1

P[3] ++;//P01