Текст подпрограммы и версий
bk06r_p.zip 		Тексты тестовых примеров
tbk06r_p.zip

Подпрограмма:  BK06R (модуль BK06R_p)

Назначение

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

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

По заданным выборке  X и функции распределения FUNC вычисляется статистика Колмогорова - Смирнова и по ее значению определяется уровень значимости критерия ALFA. Чем меньше уровень значимости ALFA, тем больше оснований утверждать, что выборка  X имеет распределение вероятностей, отличное от распределения, заданного функцией FUNC.

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

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

procedure BK06R(var DATA :Array of Real; var N :Integer; FUNC :FUNC_F1;
                var PROB :Real);


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

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

Unit tbk06r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, F_BK06R_p, BK06R_p;

function tbk06r: String; 

implementation

function tbk06r: String;
var
N :Integer;
ALFA :Real;
const
X :Array [0..4] of Real = ( 0.0,1.5,2.5,5.0,6.0 );
begin
Result := '';
N := 5;
BK06R(X,N,F_BK06R,ALFA);
Result := Result + Format('%s',[' TBK06R: ALFA=']);
Result := Result + Format('%20.16f',[ALFA]) + #$0D#$0A;
UtRes('tbk06r',Result);  { вывод результатов в файл tbk06r.res }
end;

end.


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