Текст подпрограммы и версий
bk03r_p.zip , bk03e_p.zip 		Тексты тестовых примеров
tbk03r_p.zip , tbk03e_p.zip

Подпрограмма:  BK03R (модуль BK03R_p)

Назначение

Проверка совпадения дисперсий двух генеральных совокупностей по заданным выборкам.

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

По выборкам X1 и X2 подпрограмма вычисляет отношение выборочных дисперсий и по нему оценивает уровень значимости критерия ALFA. Чем меньше уровень значимости ALFA, тем больше оснований утверждать, что выборки X1 и X2 сделаны из генеральных совокупностей с разными дисперсиями.

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

procedure BK03R(var X1 :Array of Real; var N1 :Integer;
                var X2 :Array of Real; var N2 :Integer;
                var ALFA :Real);


   Параметры
X1 - вещественный вектор длины N1, содержащий выборку из первой генеральной совокупности;
N1 - длина вектора X1 (тип: целый);
X2 - вещественный вектор длины N2, содержащий выборку из второй генеральной совокупности;
N2 - длина вектора X2 (тип: целый);
ALFA - вещественная переменная, содержащая вычисленный уровень значимости. 
   Версии
BK03E - проверка совпадений дисперсий двух генеральных совокупностей по выборкам, заданным с расширенной (Extended) точностью. Параметры X1, X2, ALFA должны иметь тип Extended. 
   Вызываемые подпрограммы
SF36R - вычисление бета - функции распределения вероятностей; используется в подпрограмме BK03R.
SF36E - вычисление бета - функции распределения вероятностей с расширенной (Extended) точностью; используется в подпрограмме BK03E. 
   Замечания по использованию:  нет

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

Unit tbk03r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, BK03R_p;

function tbk03r: String; 

implementation

function tbk03r: String;
var
N1,N2 :Integer;
ALFA :Real;
const
X1 :Array [0..2] of Real = ( 1.0,2.0,3.0 );
X2 :Array [0..3] of Real = ( 4.0,5.0,6.0,7.0 );
begin
Result := '';
N1 := 3;
N2 := 4;
BK03R(X1,N1,X2,N2,ALFA);
Result := Result + Format('%s',[' TBK03R:  ALFA=']);
Result := Result + Format('%20.16f',[ALFA]) + #$0D#$0A;
UtRes('tbk03r',Result);  { вывод результатов в файл tbk03r.res }
end;

end.


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