Критерий Фишера

    begin

      writeln('Kriterii Fishera'); 

      write('1.Vvdeite kolichestvo elementov 1-i viborki, n=');

      readln(n);

      SetLength(x,n); 

      writeln('Vvod znachenii 1-i viborki');

      x:=fill_array(x,'a[');

      writeln; 

      write('Vvdeite kolichestvo elementov 2-i viborki, m=');

      readln(n);

      SetLength(y,n); 

      writeln('Vvod znachenii 2-i viborki');

      y:=fill_array(y,'b[');

      writeln;

      av_x:=get_average(x);

      av_y:=get_average(y);

      val_fisher:=get_fisher(x,y,av_x,av_y); 

      writeln;

      writeln('Chislovoe znachebie kriteriya Fishera, F=',val_fisher); 

      readln; 

end. 
5.2 Описание работы программы. 

    Для тестирования программы возьмем  задачу 212 из [5] .

    Условие:

    Две партии приборов были испытаны на надежность. В результате были получены следующие  значения моментов их отказов (в условных единицах):

    x_i :12,14,16,20,30,40,60,85 (n=8)

    y_{j :} 22,38,44,54,68,72 (m=6)

Необходимо  проверить нулевую гипотезу. 

Работа программы:

1) Ввод данных 1-й выборки

2) Ввод данных 2-й выборки

3) Расчет численного  значения критерия Фишера. 

 

Численный расчет :

675,6

357,5

Значение Критерия Фишера:

      Исходя  из таблицы значений Критерия Фишера находим что полученный результат F=1.890<F(8/6)=4.15, следовательно нулевая гипотеза не отклоняется для уровня значимости 0,005.

 

         Приложение А.

    Значения  критерия Фишера  для уровня значимости p = 0.05.

    f₁ - число степеней свободы большей дисперсии, f₂ - число степеней свободы меньшей дисперсии 

 

          6 Выводы

    В результате курсовой работы была написана программа полностью соответствующая  требованиям.

 

         7. Литература

    1.Дьяконов В.П. «Справочник по алгоритмам и программам на языке бейсик для персональных ЭВМ» справочник, Москва: «Наука» 1987г.

    2. Турчак Л.И «Основы численных методов», Москва 1987 г

    3. Сборник задач по методам вычислений: Учебное пособие. Под редакцией  П.И. Монастырского. – 2-е изд.  – Мн.:  Университетское, 2000.

    4. Учебное пособие по Паскалю (Лексикон). Андрей Янишевский http://www.inf.vspu.ac.ru/library/pas5030.zip

    5. Кобзарь А.И. «Прикладная математическая  статистика. Для инженеров и научных  работников»,Москва: ФИЗМАЛИТ 2006г.

    6. К. Дерффель, «Статистика в аналитической химии», Москва, "Мир", 1994.