Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
17
Добавлен:
28.06.2014
Размер:
329 б
Скачать
_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;
Соседние файлы в папке lab6