Курсовая работа: Статистическое исследование свойств псевдослучайных чисел получаемых методом Джона фон Неймана
at:=x_v-D_v*sqrt(3);
bt:=x_v+D_v*sqrt(3);
mt[1]:=N*(alfa[2]-at)/(bt-at);
for k:=2 to s-1 do
mt[k]:=N*(alfa[k+1]-alfa[k])/(bt-at);
mt[s]:=N*(bt-alfa[s])/(bt-at);
Xi2:=0;
for k:=1 to s do
if mt[k]<>0 then
Xi2:=Xi2+(sqr(m[k]-mt[k]))/mt[k];
for k:=1 to s do
writeln('i',k,' x[k]=',x[k]:8:4,' n[k]=', m[k], 'nt[k]=', mt[k]:8:4);
writeln('Xi2=',Xi2:8:4); readkey;
end; end;
end.
Таблица результатов N = 1000, m = 10, k = 7; A1=9887
|
xi |
|
|
|
0.05 |
112 |
103.87 |
|
0.15 |
91 |
100.92 |
|
0.25 |
103 |
100.12 |
|
0.35 |
К-во Просмотров: 292
Бесплатно скачать Курсовая работа: Статистическое исследование свойств псевдослучайных чисел получаемых методом Джона фон Неймана
|
