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

double Pi1, Pi2, Pi3, Pi4;

GenSequence = "";

Pi1 = P[2];

Pi2 = P[2] + P[3];

Pi3 = P[2] + P[3] + P[4];

Pi4 = P[2] + P[3] + P[4] + P[5];

double rnd;

for (int i = 0; i < Count; i+=2)

{

rnd = Randouble(0.0, 1.0);

if (rnd < Pi1) { GenSequence += "00"; }

if ((rnd >= Pi1) && (rnd < Pi2)) { GenSequence += "01"; }

if ((rnd >= Pi2) && (rnd < Pi3)) { GenSequence += "10"; }

if ((rnd >= Pi3) && (rnd < Pi4)) { GenSequence += "11"; }}

return GenSequence;}

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

//моделирование случайной последовательности двоичных чисел

void __fastcall TMainForm::ModelSlPosl(double *P, int Count, bool Prn)

{

double **experiment = new double*[3];

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

{experiment[i] = new double[6];

ZakonRaspr(GenModel(P, Count), experiment[i]);

}

REditAddColor(RichEdit1, "|---------------------------------------------------------------------------------------------------------|", clBlue);

REditAddColor(RichEdit1, "| Длина| | Номеропыта | Среднее | Теоретическое | |", clBlue);

REditAddColor(RichEdit1, "|последовательности|Параметры| 1 | 2 | 3 | значение| значение|Ошибка|", clBlue);

REditAddColor(RichEdit1, "|---------------------------|---------------|-----|------|------|-------------|--------------------|---------|", clBlue);

AnsiString PrnScr;