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

AnsiString Prametru[6] = {"P0","P1","P00","P01","P10","P11"};

for(int i = 0; i <= 5; i ++)

{SrZnach = (experiment[0][i] + experiment[1][i] + experiment[2][i])/3;

Err = fabs(P[i] - (experiment[0][i] + experiment[1][i] + experiment[2][i])/3);

PrnScr.sprintf("|%18d|%9s|%5.3lf|%5.3lf|%5.3lf|%9.3lf|%15.3lf|%6.3lf|", Count, Prametru[i], experiment[0][i], experiment[1][i], experiment[2][i], SrZnach, P[i], Err); REditAddColor(RichEdit1, PrnScr, clBlue);

switch(i)

{case 0:

{LineP0->Add(SrZnach, "при N = " + (AnsiString)Count, clRed);

if(Prn)LineP0->Add(P[i], "Теорет.", clRed);

} break;

case 1:

{

LineP1->Add(SrZnach, "при N = " + (AnsiString)Count, clGreen);

if(Prn)LineP1->Add(P[i], "Теорет.", clGreen);

} break;

}

}

for (int i = 0; i < 3; i++) { delete [] experiment[i]; }

delete [] experiment;

}

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

void __fastcall TMainForm::StartSimulationClick(TObject *Sender)

{LineP0->Clear();

LineP1->Clear();

RichEdit1->Lines->Clear();

StartSimulation->Enabled = false;

double P[6];

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

ZakonRaspr(InSequence->Lines->Strings[0], P);