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

Функция:  SF54R (модуль SF54R_p)

Назначение

Вычисление функции нецентрального t - распределения вероятностей Стьюдента.

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

SF54R вычисляет вероятность того, что случайная величина, подчиненная закону нецентрального t - распределения вероятностей Стьюдента с параметром D и степенью свободы IDF (IDF > 0), меньше или pавна  x.

M.Abramowitz, I.A.Stegun, Handbook of Mathematical Functions, Dover Publications, Inc., New York, 1965.

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

function SF54R(X :Real; D :Real; IDF :Integer;
                var IERR :Integer): Real;


   Параметры
X - заданное значение аргумента  x (тип: вещественный);
D - заданное значение параметра нецентрального t - распределения Стьюдента (тип: вещественный);
IDF - заданное значение степени свободы нецентрального t - распределения Стьюдента (тип: целый);
IERR - целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом:
IERR=65 - когда заданная степень свободы нецентрального t - распределения Стьюдента меньше или pавна 0; значение функции полагается равным 3.4E38. 
   Версии:  нет 
   Вызываемые подпрограммы
SF49R - вычисление стандартизованной (нормированной) функции нормального распределения вероятностей.
SF35R - вычисление дополнительной функции ошибок (дополнительного интеграла вероятности) erfc x.
UTSF14 - подпрограмма выдачи диагностических сообщений в ходе работы функции SF54R. 
   Замечания по использованию:  нет

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

Unit tsf54r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF54R_p;

function tsf54r: String;

implementation

function tsf54r: String;
var
IDF,IERR :Integer;
X,D,P :Real;
begin
Result := '';  { результат функции }
X  := 2.0;
D  := 1.0;
IDF  := 2;
P  := SF54R(X,D,IDF,IERR);
Result := Result + Format(' %16.7f  %16.7f  %20d %16.7f ',[X,D,IDF,P]) + #$0D#$0A;
Result := Result + Format('%5d ',[IERR]) + #$0D#$0A;
UtRes('tsf54r',Result);  { вывод результатов в файл tsf54r.res }
exit;
end;

end.


Результаты:    P  =  0.706662049503 ,   IERR  =  0