Текст подпрограммы и версий bk07r_p.zip |
Тексты тестовых примеров tbk07r_p.zip |
Тест Колмогорова - Смирнова совпадения распределения вероятностей двух выборок.
По заданным выборкам X1 и X2 вычисляется статистика Колмогорова - Смирнова и по ее значению определяется уровень значимости критерия ALFA. Чем меньше уровень значимости ALFA, тем больше оснований утверждать, что выборки X1 и X2 имеют различные распределения вероятностей.
Айвазян С.А., Енюков И.С., Мешалкин Л.Д. Прикладная статистика: основы моделирования и первичная обработка данных. М., "Финансы и статистика", 1983.
procedure BK07R(var X1 :Array of Real; var N1 :Integer; var X2 :Array of Real; var N2 :Integer; var ALFA :Real);
Параметры
X1, X2 - | вещественные векторы длины N1 и N2 соответственно, содержащие заданные выборки; |
N1, N2 - | длина векторов X1 и X2 соответственно (размеры выборок) (тип: целый); |
ALFA - | вещественная переменная, содержащая вычисленный уровень значимости. |
Версии: нет
Вызываемые подпрограммы
AVZ5R - | упорядочивание вектора по возрастанию значений его компонент. |
Замечания по использованию
По окончании работы подпрограммы массивы X1 и X2 содержат компоненты исходных векторов X1 и X2 в возрастающем порядке. |
Unit tbk07r_p; interface uses SysUtils, Math, { Delphi } LStruct, Lfunc, UtRes_p, BK07R_p; function tbk07r: String; implementation function tbk07r: String; var N1,N2 :Integer; ALFA :Real; const X1 :Array [0..3] of Real = ( 0.0,1.0, 2.,3.0 ); X2 :Array [0..3] of Real = ( 0.8,1.5,4.0,6.0 ); begin Result := ''; N1 := 4; N2 := 4; BK07R(X1,N1,X2,N2,ALFA); Result := Result + Format('%s',[' TBK07R: ALFA=']); Result := Result + Format('%20.16f',[ALFA]) + #$0D#$0A; UtRes('tbk07r',Result); { вывод результатов в файл tbk07r.res } end; end. Результат: ALFA = 0.6993742