Документ взят из кэша поисковой машины. Адрес оригинального документа : http://num-anal.srcc.msu.su/lib_na/cat/bk_htm_p/bk07r_p.htm
Дата изменения: Fri Dec 4 14:14:25 2015
Дата индексирования: Sun Apr 10 02:13:15 2016
Кодировка: Windows-1251
БЧА НИВЦ МГУ. BK07R_P. Статистические критерии
Текст подпрограммы и версий
bk07r_p.zip
Тексты тестовых примеров
tbk07r_p.zip

Подпрограмма:  BK07R (модуль BK07R_p)

Назначение

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

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

По заданным выборкам 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