Критерий Колмогорова

[Veryn4ik1993]

мне колмогоров и смрнов не нужен, мне нужен другой критерий дя проверки, он называется "максимум-t" при t=5

[type_Oleg]

Все равно там же сказано ...

Сообщение от Veryn4ik1993

...Применим критерий Колмогорова-Смирнова к последовательности V0, V1,...,Vn-1
... F(x) = xt, 0 <= x <= 1. Можно также ...

Только надо как-то создать какую-то последовательность. Я не понял, как..
И еще смущает0 <= x <= 1 . То есть, непрерывных, нецелых величин. Как в стандартном Random. А у вас - целые от 0 до 9.

Это - отсюда http://omop.su/article/11/980392.html ?
Там посмотрите выше - Критерий перестановок - написано вроде, как эти группы создавать.

[Veryn4ik1993]

program kolm;
var
f: array[1..1000] of integer;
A: array[1..1000] of integer;
B: array[1..1000] of integer;
C: array[1..1000] of integer;
D: array[1..1000] of integer;
E: array[1..1000] of integer;
i, j: integer;k, t, N: integer;Kpp,Kpo, max, m: double;
//генератор
begin
i := 2;
t:=5;
N := 1000;
f[1] := 1;
f[2] := 1;
while (i < N) do
begin
f[i + 1] := (f[i] + f[i-1]) mod 10;
//writeln(f[i-1], ' ');
inc(i);
end;

for i:=1 to 200 do begin
A[i]:=f[i];
write(A[i], ' ');
end;writeln;
for i:=201 to 400 do begin
B[i]:=f[i];
write(B[i], ' ');
end;writeln;
for i:=401 to 600 do begin
C[i]:=f[i];
write(C[i], ' ');
end;writeln;
for i:=601 to 800 do begin
D[i]:=f[i];
write(D[i], ' ');
end;writeln;
for i:=801 to 1000 do begin
E[i]:=f[i];
write(E[i], ' ');
end;writeln;

Что мне дальше делать
//сортировка
for j:=1 to N-1 do
begin
for i := 1 to N-1 do
if f[i] > f[i+1] then
begin
t := f[i];
f[i] := f[i+1];
f[i+1] := t;
end;
// writeln(' ',f[j]);
end;
//находим максимум
// for j := 1 to N do
//begin
// m := j / N - f[j] / 9;
// end;
// inc(j);
max := 1/ N - (f[1]*5) / 9;
for j := 2 to N do
if (j / N - (f[j]*5) / 9) > max then begin
max := (j / N - (f[j]*5) / 9);
end;
// writeln(max);
Kpp := sqrt(N) * max;
writeln( 'К+ ',Kpp);


max := ((f[1]*5)/9)-(1-1)/N;
for j := 2 to N do
if (((f[j]*5)/9)-(j-1)/N) > max then begin
max := ((f[j]*5)/9)-(j-1)/N;
Kpo := sqrt(N) * max;
end;
writeln('К- ',Kpo );
end.

[Veryn4ik1993]

ну явно, что тут надо делить на 5 групп по 200 элементов в каждой, мне не понятно Обозначим Vj = max (Utj, Utj+1,...,Utj+t-1) для 0 <= j < n.
как дальше

[type_Oleg]

Какая жуть. Вы вообще не умеете программы писать?

А если надо будет (где-то в другой задаче) не 5, а 55 групп. Букв A,B,C .. для массивов не хватит. Массивы бывают и 2-мерные
А если будет не 1000 , а 200 или 567 чисел, что делать с этими for i:=1 to 200 do begin ?
И вообще, менять все цифры. Я же нарочно писал эти const

[Veryn4ik1993]

главное что выычисляет правильно, я вот не понимаю, мы тут выбираем максимальную последовательность что ли, или что

[type_Oleg]

Я не знаю. Я не понял вообще этот максимум-t

[Veryn4ik1993]

В данный момент мне нужен лишь результат, причем правильный

[Veryn4ik1993]

что написано в скобках (Utj, Utj+1,...,Utj+t-1)- мы делим всю 1000 последовательность на t групп по n элементов в каждой. то есть на 5 групп по 200 элементов.