Курсовая работа: Теорема Бернулли Закон распределения Пуассона Критерий Колмогорова

End;

End; WriteLn; Write(' Смоделирована ');

WriteLn('последовательность случайных чисел (з. Пуассона):');

WriteLn; Mx := 0;

For i := 1 To n Do Begin

Write(X[i]:2, ' ');

Mx := Mx + X[i] / n;

End; Pause; Dx := 0; Sk := 0;

Xmin := X[1]; Xmax := Xmin;

For i := 1 To n Do Begin

Dx := Dx + Sqr(x[i]-Mx) / (n - 1);

If Xmin > X[i] Then Xmin := X[i];

If Xmax < X[i] Then Xmax := X[i];

End;

Sx := Sqrt(Dx); WriteLn;

Rx := d; h := Rx / k; Ex := -3;

For i := 1 To n Do Begin

Sk := Sk + Sqr(x[i]-Mx)*(x[i]-Mx)/(Dx*Sx*k);

Ex := Ex + Sqr(x[i]-Mx)*Sqr(x[i]-Mx)/(k*Sqr(Dx));

End;

WriteLn(' Диапазонзначений: ', Xmin:0:3, ' - ', Xmax:0:3);

WriteLn(' Мат. ожидание: ', Mx:0:3);

WriteLn(' Дисперсия: ', Dx:0:3);

WriteLn(' Ср. кв. отклонение: ', Sx:0:3);

WriteLn(' Коэффициент скошенности: ', Sk:0:3);

WriteLn(' Эксцесс: ', Ex:0:3); Pause;

For i := 1 To n Do Begin

j := Trunc((x[i]-Xmin) / h); If j > d Then j := d;

y[j] := y[j] + 1/n;