Документ взят из кэша поисковой машины. Адрес оригинального документа : http://num-anal.srcc.msu.ru/lib_na/cat/bk_htm_p/bk05r_p.htm
Дата изменения: Tue Nov 10 13:57:12 2015
Дата индексирования: Sun Apr 10 03:19:57 2016
Кодировка: Windows-1251
БЧА НИВЦ МГУ. BK05R_P. Статистические критерии
Текст подпрограммы и версий
bk05r_p.zip 		Тексты тестовых примеров
tbk05r_p.zip

Подпрограмма:  BK05R (модуль BK05R_p)

Назначение

Хи - квадрат тест совпадения распределения вероятностей двух группированных выборок.

Математическое описание

Пусть область значений случайных величин  X и  Y разбита на  N интервалов, целые вектора KX и KY длины N содержат группированные выборки случайных величин  X и  Y соответственно ( i - тая компонента вектора KX содержит количество реализаций случайной величины  X, попавших в  i - тый интервал).

По векторам KX и KY вычисляется Хи - квадрат статистика и по ее значению определяется уровень значимости критерия ALFA. Чем меньше уровень значимости ALFA, тем больше оснований утверждать, что случайные величины  X и  Y имеют разные распределения вероятностей.

Айвазян С.А., Енюков И.С., Мешалкин Л.Д. Прикладная статистика: основы моделирования и первичная обработка данных. М., "Финансы и статистика", 1983.

Использование 

procedure BK05R(var KX :Array of Integer; var KY :Array of Integer;
                NBINS :Integer; var PROB :Real);


   Параметры
KX, KY - заданные целые вектора длины  N, содержащие группированные выборки случайных величин  X и  Y соответственно;
N - длина векторов KX и KY (количество групп группированных выборок KX и KY) (тип: целый);
ALFA - вещественная переменная, содержащая вычисленный уровень значимости. 
   Версии:  нет 
   Вызываемые подпрограммы
SF47R - вычисление функции Хи - квадрат распределения вероятностей с вещественными степенями свободы. 
   Замечания по использованию:  нет

Пример использования 

Unit TBK05R_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, BK05R_p;

function TBK05R: String; 

implementation

function TBK05R: String;
var
N :Integer;
ALFA :Real;
const
КХ :Array [0..3] of Integer = ( 1,2,2,5 );
KY :Array [0..3] of Integer = ( 5,2,2,1 );
begin
Result := '';
N := 4;
BK05R(KX,KY,N,ALFA);
Result := Result + Format('%s',[' TBK05R:  ALFA=']);
Result := Result + Format('%20.16f',[ALFA]) + #$0D#$0A;
UtRes('TBK05R',Result);  { вывод результатов в файл TBK05R.res }
end;

end.

Результат:   ALFA  =  0.1489540