Текст подпрограммы и версий
bk01r_p.zip , bk01e_p.zip 		Тексты тестовых примеров
tbk01r_p.zip , tbk01e_p.zip

Подпрограмма:  BK01R (модуль BK01R_p)

Назначение

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

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

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

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

procedure BK01R(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 - вещественная переменная, содержащая вычисленный уровень значимости. 
   Версии
BK01E - проверка совпадения средних значений двух имеющих одинаковую дисперсию генеральных совокупностей по выборкам, заданным с расширенной (Extended) точностью. Параметры X1, X2, ALFA должны иметь тип Extended. 
   Вызываемые подпрограммы
SF36R - вычисление бета - функции распределения вероятностей; используется в подпрограмме BK01R.
SF36E - вычисление бета - функции распределения вероятностей с расширенной (Extended) точностью; используется в подпрограмме BK01E. 
   Замечания по использованию:  нет

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

Unit tbk01r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, BK01R_p;

function tbk01r: String; 

implementation

function tbk01r: 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;
BK01R(X1,N1,X2,N2,ALFA);
Result := Result + Format('%s',[' TBK01R:  ALFA=']);
Result := Result + Format('%20.16f',[ALFA]) + #$0D#$0A;
UtRes('tbk01r',Result);  { вывод результатов в файл tbk01r.res }
end;

end.


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