Текст подпрограммы и версий
sfg7r_p.zip  sfg7e_p.zip 
Тексты тестовых примеров
tsfg7r_p.zip  tsfg7e_p.zip 

Функция:  SFG7R

Назначение

Вычисление обратной гамма - функции  1 / Г (x) вещественного аргумента.

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

Функция SFG7R вычисляет обратную вещественную гамма - функцию  1 / Г (x) для вещественных значений x. Для вычисления аппроксимирующего многочлена используется схема Горнера.

Абрамовиц М., Стиган И. Справочник по специальным функциям. М.: Наука, 1979.

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

function SFG7R(X :Real): Real;

Параметры

X - заданное значение аргумента, для которого требуется вычислить значение обратной гамма - функции (тип: вещественный).

Версии

SFG7E - вычисление обратной гамма - функции  1 / Г (x) вещественного аргумента в режиме расширенной (Extended) точности; при этом параметр X должен иметь тип Extended.

Вызываемые подпрограммы: нет

Замечания по использованию: нет

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

Unit tsfg7r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SFG7R_p;

function tsfg7r: String;

implementation

function tsfg7r: String;
var
X,Y :Real;
begin
Result := '';  { результат функции }
X := 1.0;
Y := SFG7R(X);
Result := Result + Format('%15.8f ',[Y]) + #$0D#$0A;
UtRes('tsfg7r',Result);  { вывод результатов в файл tsfg7r.res }
exit;
end;

end.

Результат:    Y = 1.0