|
Текст подпрограммы и версий bk05r_p.zip |
Тексты тестовых примеров tbk05r_p.zip |
Хи - квадрат тест совпадения распределения вероятностей двух группированных выборок.
Пусть область значений случайных величин 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