|
Текст подпрограммы и версий ( Фортран ) sf66r.zip sf66d.zip |
Тексты тестовых примеров ( Фортран ) tsf66r.zip tsf66d.zip |
|
Текст подпрограммы и версий ( Си ) sf66r_c.zip sf66d_c.zip |
Тексты тестовых примеров ( Си ) tsf66r_c.zip tsf66d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf66r_p.zip , sf66e_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf66r_p.zip , tsf66e_p.zip |
Вычисление натурального логарифма гамма - функции вещественного аргумента.
SF66R вычисляет значение ln Г(x), где
∞
Г(x) = ∫ e - t t x - 1 dt , x > 0 .
0
Справочник по специальным функциям. Под ред. M.Абрамовица, И.Стеган. M.: "Hаука", 1979.
SUBROUTINE SF66R (X, ALNGX, IERR)
Параметры
| X - | заданное значение аргумента x (тип: вещественный); |
| ALNGX - | вещественная переменная, содержащая вычисленное значение натурального логарифма Г(x); |
| IERR - | целая переменная, служащая для сообщения об ошибках; при этом |
| IERR=67 - | когда x ≤ 0; значение ln Г(x) полагается равным 1. |
Версии
| SF66D - | вычисление натурального логарифма гамма - функции вещественного аргумента с повышенной точностью. |
Вызываемые подпрограммы
| UTSF16 - | подпрограмма выдачи диагностических сообщений при работе подпрограммы SF66R. |
Замечания по использованию: нет
CALL SF66R (0.5, Y, IERR)
Результаты:
Y = 0.572 364 942 9228
IERR = 0