|
Текст подпрограммы и версий ( Фортран ) sf21r.zip |
Тексты тестовых примеров ( Фортран ) tsf21r.zip |
|
Текст подпрограммы и версий ( Си ) sf21r_c.zip |
Тексты тестовых примеров ( Си ) tsf21r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf21r_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf21r_p.zip |
Вычисление значений гамма-функции вещественного аргумента.
Функция SF21R вычисляет значения гамма-функции
∞
Г (x) = ∫ t x - 1 e - t dt
0
для вещественных значений аргумента x.
J.F.Hart, E.W.Cheney, C.L.Lawson et al, Computer Approximations, Wiley, New York, 1968.
REAL FUNCTION SF21R (X, IERR)
Параметры
| X - | заданное значение аргумента x (тип: вещественный); |
| IERR - | целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом: |
| IERR=65 - | когда значение аргумента pавно нулю или целому отрицательному числу; значение функции полагается равным 3.4E38; |
| IERR=66 - | если значение аргумента больше чем 21.43; значение функции полагается равным 3.4E38. |
Версии: нет
Вызываемые подпрограммы
| UTSF10 - | подпрограмма выдачи диагностических сообщений при работе функции SF21R. |
Замечания по использованию: нет
X = 1.25
Y = SF21R (X, IERR)
Результаты:
Y = 0.906402477054, IERR = 0