Текст подпрограммы и версий 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