Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы / Захаров (10 вариант) / lab6 / Критерий Н.-П
..txt _alpha := 0.05;
sigma0 := 2.4;
sigma1 := 2.9;
n := 98;
sumsqr1 := 0;
sumsqr2 := 0;
for i:=1 to n do
begin
sumsqr1 := sumsqr1 + data(i,1)^2;
sumsqr2 := sumsqr2 + data(i,2)^2;
end;
h := (sigma0^2)*VChi2(1-_alpha, 2*n);
data (99,1) := h;
data(100,1) := sumsqr1;
data(100,2) := sumsqr2;
sigma0 := 2.4;
sigma1 := 2.9;
n := 98;
sumsqr1 := 0;
sumsqr2 := 0;
for i:=1 to n do
begin
sumsqr1 := sumsqr1 + data(i,1)^2;
sumsqr2 := sumsqr2 + data(i,2)^2;
end;
h := (sigma0^2)*VChi2(1-_alpha, 2*n);
data (99,1) := h;
data(100,1) := sumsqr1;
data(100,2) := sumsqr2;