|
Текст подпрограммы и версий sfg7r_p.zip sfg7e_p.zip |
Тексты тестовых примеров tsfg7r_p.zip tsfg7e_p.zip |
Вычисление обратной гамма - функции 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